Von Michael Duttlinger am 21 Dezember, 1997 um 14:40:52:
Antwort auf: Listboxen von Thomas Grobbauer am 21 Dezember, 1997 um 12:38:45:
: Hat jemand eine Idee, wie man @control für eine Listbox anwenden ?
: Danke
: Thomas
Hallo Thomas,
hier hast du den Sourcecode.
Declare dlg%,ende%,ListBox%
Let dlg% = @CreateDialog(%HWnd,"Listboxtest mittels CONTROL",10,10,400,400)
Let ListBox% = @Control("listbox","",$50A00003,10,10,176,96,dlg%,101,%HInstance)
ClearList
AddFiles "*.*"
MoveListToList(ListBox%)
WhileNot ende%
WaitInput
If @Equ(%Key,2)
Let ende% = 1
EndIf
Wend
@DestroyWindow(dlg%)
End