Hallo, guten Tag.
Ich möchte bitte eine Editbox löschen mit "ClearList".
Es funktioniert nicht.
Danke.
Gruss
Alles anzeigen
Ich möchte bitte eine Editbox löschen mit "ClearList".
Es funktioniert nicht.
Danke.
Gruss
Quellcode
- {$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