XProfan

Deutsch

Georg

Wie kann ich bei whileloop den Edits eine Variable z.B. "edit6& = ..." zuweisen?

Wie kann ich die Variablen edit1& .... edit5& in einem whileloop auslesen?
Kompilieren Markieren Separieren

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

19.02.2013 ▲

Vollständiges Zitat

Absatzweise zitieren Zeilenweise zitieren

Jörg
Sellmeyer

Das geht am besten mit einem Array:
Kompilieren Markieren Separieren

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