Hallo, guten Tag.
Ich möchte bitte eine Editbox löschen mit "ClearList".
Es funktioniert nicht.
Danke.
Gruss
Code
{$cleq}
declare url$,urlpart$,text$
declare b_esp_on&,b_esp_off&,b_cls&
declare ende&,editbox&,schrift&
Window 20,20-600,600
Cls RGB(230,230,230)
SetTimer 200
urlpart$="0ON"
url$="http://192.168.2.102/?pin="+urlpart$
b_esp_on& = Create("Button",%hwnd,"esp-on", 10, 20, 80, 24)
b_esp_off& = Create("Button",%hwnd,"esp-off", 10, 45, 80, 24)
b_cls& = Create("Button",%hwnd,"cls", 320, 20, 80, 24)
editbox&=Create("multiedit",%hwnd,"",110,20,200,400)
schrift&=Create("Font","ARIAL", 16,0, 0,0,0)
ende&=1
While ende&
WaitInput
Case %wmTimer : TimerProc
If Clicked(b_esp_on&)
urlpart$="0ON"
url$="http://192.168.2.102/?pin=0ON"
EndIf
If Clicked(b_esp_off&)
urlpart$="0OFF"
url$="http://192.168.2.102/?pin=0OFF"
EndIf
If Clicked(b_cls&)
ClearList editbox&
EndIf
endwhile
killtimer
end
proc TimerProc
downloadfile(url$)
while %Loading
waitinput 333
endwhile
text$=text$+$Download+Chr$(13)+Chr$(10)
SetText editbox&, text$
endproc
Alles anzeigen