XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Listbox, mit horizontalem Srollbalken, die auf Einfachklick reagiert
Programm-Listbox1
Beispiel einer Listbox die auf einfachen Klick reagiert. Sortiert oder unsortiert.
Version 1.1  11.12.2002.     Das Programm kann frei benutzt werden, für
Schäden kann keine Haftung übernommen werden.
Autor: Gerhard Putschalka
homepage: http://members.telering.at/g.putschalka/index.html
email: g.putschalka@web.de
Declare Listbox%,Ende%,Dlg%,Ok% ,Text$
SetTrueColor 1
Cls @RGB(255,255,255)
Let Dlg% = @CreateDialog(%Hwnd,Einfachklick - Auswahl,250,40,250,300)
um eine sortierte Listbox zu erstellen ist @CreateSortedListBox zu verwenden.
Let ListBox%=@CreateListBox(Dlg%,,20,10,200,200)
Let Ok% = @CreateButton(Dlg%,Ende,100,230,50,24)
Scrollbalken zuordnen (wenn eine Textzeile länger als die Listboxbreite ist)
Der wert in Parm. 3 bestimmt, wieviel nach rechts verschoben werden kann)
@SendMessage(ListBox%,$0194,400,0)
@AddString(ListBox%,Beispiel)
@AddString(ListBox%,einer)
@AddString(ListBox%,Listbox)
@AddString(ListBox%,die)
@AddString(ListBox%,auf)
@AddString(ListBox%,einfachen Klick)
@AddString(ListBox%,sofort reagiert)
@AddString(ListBox%,Diese Listbox hat auch einen horizontalen Scrollbalken)

WhileNot @GetFocus(Ok%)

    WaitKey

    If @getfocus(ListBox%)

        Print @GetString$(ListBox%,@GetCursel(Listbox%))

    EndIf

EndWhile

Fin