XProfan

Windowstyle 24
Windowtitle "Beispiel zum Erstellen einer Groupbox mit Checkbox"
Window 100,200-250,180
cls External("USER32","GetSysColor",15)
var gb&=Create("GroupBox",%hwnd,"",20,20,width(%hwnd)-40,height(%hwnd)-40)
Create("CheckBox",gb&,"Groupbox Text",10,3,115,18)

while 1

End

Windowstyle 24
Windowtitle "Beispiel zum Erstellen einer Groupbox avec Checkbox"
Fenêtre 100,200-450,280
Déclarer x%,text&
x%=1
cls Externe("User32","GetSysColor",15)
'Checkbox dans Groupbox
var gb&=Créer("GroupBox",%hwnd,»,20,20,width(%hwnd)-40,height(%hwnd)-40)
Créer("CheckBox",gb&,"Groupbox Text",10,3,115,18)
'Button dans Button
text&=Créer("Text",%hwnd,"Button dans Button.. qui kleine Button finissez Programme,40,80,380,18)
Var test&=Créer("Button",%hwnd,"      Test",100,100,160,30)
Var a&=Créer("Button",test&,"1",10,4,22,22)
' Éditer dans Button
text&=Créer("Text",%hwnd,"Checkbox dans Éditer et Éditer dans Button..allez....",40,130,380,18)
Var test2&=Créer("Button",%hwnd,"          Test 2",100,150,160,30)
Var b&=Créer("Edit",Test2&,"An",5,4,50,22)
Var c&=Créer("CHeckbox",b&,»,33,1,16,18)
' Button dans Éditer
text&=Créer("Text",%hwnd,"...et Button dans Éditer allez aussi, mais pas so cool...",40,180,380,18)
Var edit&=Créer("Edit",%hwnd,"Der Test",100,200,160,24)
Var d&=Créer("Button",edit&,"HiHi",100,0,40,20)

tandis que 1

    Si x%>99

        x%=1
        settext a&,str$(x%)
        setfocus(%hwnd)

    Endif

    Si Getfocus(a&)

        pause

    EndIf

    Si Getfocus(test&)

        settext b&,"An"
        setcheck c&,0
        inc x%
        settext a&,str$(x%)
        setfocus(%hwnd)

    EndIf

    Si Getfocus(test2&)

        Si gettext$(b&)="An"

            settext b&,"Aus"
            setcheck c&,1

        EndIf

    EndIf

    Si getfocus(d&)

        inc x%,10
        settext a&,str$(x%)
        setfocus(%hwnd)

    Endif

Endwhile