| |
|
|
Jörg Sellmeyer | Ein merkwürdiger Fehler, el mich siempre otra vez veces Etliches a Suchzeit kostet
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
|
|
|
| |
|
|
|
Michael W. | TestButton#[] Evtl. una dynamisches Array sólo con
SetSize TestButton#[],1
beleben y luego zuweisen?? |
|
|
| |
|
|
|
Jörg Sellmeyer | Ist sí entonces genauso una Workaround, como mein Trick. Yo weise SizeOf() simplemente uno temporären Variables a y luego klappt lo. Aber el de hecho puede no Sinn el Sache ser. |
|
|
| |
|
|