XProfan

'Code zur freien Disposition de Jörg Sellmeyer

Proc MyClassOf

    Paramètres Hdl&
    Déclarer Class$,Style&
    Class$ = ClassOf(Hdl&)

    Select Class$

        CaseOf "Button"

        Style& = GetStyle(hdl&)

        Si (Style& & 3) = 3

            Class$ = "CheckButton"

        ElseIf (Style& & $9) = $9

            Class$ = Bouton Radio "

        EndIf

    EndSelect

    Retour Class$

ENDPROC

Déclarer ctrl&[6],Class$
Class$ = "Button,CheckBox,RadioButton,Éditer,Listbox,GridBox"
Cls

WhileLoop 0,4

    ctrl&[&Boucle] = Créer($ Substr(Class$,&Boucle +1,»),%hwnd,"Test",260,40 + 30 * &Boucle,160,24)
    Imprimer suis$(GetStyle(ctrl&[&Boucle]))

Wend

WhileLoop 0,4

    Imprimer ClassOf(ctrl&[&Boucle]) + " = " + MyClassOf(ctrl&[&Boucle])

Wend

Tandis que 1

    WaitInput

Wend