XProfan

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

Proc TestKlasse.TestKlasse

    Parámetros parent&,groesse%,Bild&,Back&
    .parent& = parent&
    .Bild& = Bild&
    .Back& = Back&
    .Size& = groesse%
    .hdl& = Crear("Button",.parent&,Str$(.Back&) + " " + Str$(Bild&),340,280,groesse%,groesse%)

ENDPROC

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

Proc TestButton.TestButton

    Parámetros b#[],parent&,Anzahl&,gr%,back&,Img&

    WhileLoop 0,Anzahl& -1

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

    Wend

ENDPROC

Cls
Declarar TestButton#[],test%
Var Test# = New(TestButton,TestButton#[],%hwnd,8,140,-23456,345673)
imprimir
imprimir "Wenn uno beim ersten Schleifendurchlauf 0 eingibt knallt es"

Mientras que 1

    Entrada test%

    If test%

        Imprimir test%,"Wenn Test% una Valor ha y esta Línea ausgeführt se,\nkann uno en el más Progreso auch otra vez 0 eingeben."
        'si esta Línea no ausgeführt se knallt lo
        Imprimir SizeOf(TestButton#[])

    Más

        Imprimir test%,"draußen"

    EndIf

    With TestButton#[0]

        Imprimir .parent&,.hdl&

    EndWith

Wend