XProfan

Class TestKlasse = parent&,\
hdl&,\
Bild&,\
Back&,\
x&,y&,\
Size&,\
TestKlasse@

Proc TestKlasse.TestKlasse

    Paramètres parent&,groesse%,Bild&,Back&
    .parent& = parent&
    .Bild& = Bild&
    .Back& = Back&
    .Size& = groesse%
    .hdl& = Créer("Button",.parent&,Str$(.Back&) + " " + Str$(Bild&),340,280,groesse%,groesse%)

ENDPROC

Class TestButton = TestKlasse,\
Anzahl&,\
TestButton@

Proc TestButton.TestButton

    Paramètres b#[],parent&,Anzahl&,gr%,back&,Img&

    WhileLoop 0,Anzahl& -1

        b#[&Boucle] = New(TestKlasse,%hwnd,gr%,back&,Img&)
        imprimer b#[&Boucle].hdl&,

    Wend

ENDPROC

Cls
Déclarer TestButton#[],test%
Var Test# = New(TestButton,TestButton#[],%hwnd,8,140,-23456,345673)
imprimer
imprimer "Wenn on beim ersten Schleifendurchlauf 0 eingibt knallt es"

Tandis que 1

    Contribution test%

    Si test%

        Imprimer test%,"Wenn Test% une Wert hat et cet la ligne fonctionnement wird,\nkann on im weiteren Verlauf aussi wieder 0 eingeben."
        'si cet la ligne pas fonctionnement wird knallt es
        Imprimer SizeOf(TestButton#[])

    D'autre

        Imprimer test%,"draußen"

    EndIf

    With TestButton#[0]

        Imprimer .parent&,.hdl&

    EndWith

Wend