XProfan

English

Georg

How can I with whileloop whom Edits a Variable z.B. "edit6& = ..." allocate?

How can I The variables edit1& .... edit5& in a whileloop read?
Compile Mark Separation

DECLARE BUTTON1&,ENDE%,x%,y1%, Mon$,edit1&,edit2&,edit3&,edit4&,edit5&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-977,500
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
x% = 1
y1% = 87

WhileLoop 31

    @Create("Edit",%HWND,"",y1%,86,22,20)
    x% = x% +1
    y1% = y1% + 20

endwhile

edit1& = @Create("Edit",%HWND,"1",107,106,22,20)
edit2& = @Create("Edit",%HWND,"2",127,106,22,20)
edit3& = @Create("Edit",%HWND,"3",147,106,22,20)
edit4& = @Create("Edit",%HWND,"4",167,106,22,20)
edit5& = @Create("Edit",%HWND,"5",187,106,22,20)
waitkey

02/19/13 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

the goes best with a aray:
Compile Mark Separation

Declare Edits&[31]
DECLARE BUTTON1&,ENDE%,x%,y1%, Mon$,edit1&,edit2&,edit3&,edit4&,edit5&
DEF GETSYSCOLOR(1) !"USER32","GetSysColor"
WINDOWSTYLE 63
WINDOWTITLE "Neues Fenster"
WINDOW 22,20-977,500
CLS GETSYSCOLOR(15)
USEFONT "MS Sans Serif",13,0,0,0,0
x% = 1
y1% = 87

WhileLoop 0,30

    Edits&[&Loop] = @Create("Edit",%HWND,Str$(&Loop),y1%,86,22,20)
    x% = x% +1
    y1% = y1% + 20

endwhile

WhileLoop 0,30

    Print "Text: " + GetText$(Edits&[&Loop]) + " Handle: " + Str$(Edits&[&Loop])

Wend

waitkey