XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
sortierte Listbox erzeugen
Lauffähig ab Profan-Version 6.6
Erklärung:
----------
Dieses Beispiel demonstriert, wie eine Listbox
erzeugt werden kann, die Einträge selbst nach dem
Alphabet sortiert.
Es bedeuten:
------------
X1%     - Abstand der Listbox vom oberen Rand
Y1%     - Abstand der Listbox vom linken Rand
X2%     - Breite der Listbox
Y2%     - Höhe der Listbox
Listbox - handel der Listbox
@CreateSortedListBox(N,S,X1,X2,Y1,Y2)  siehe Profan - Hilfe
@AddString(N,S)                        siehe Profan - Hilfe
-----------------------------------------------
declare X1%,Y1%,X2%,Y2%,Listbox%                   Variablen declarieren
x1%= 100
y1%= 100
x2%= 100
y2%= 100
Cls                                                Standardfenster mit 640 * 480 Pixeln
Let Listbox%=@CreateSortedListBox(%HWnd,,X1%,Y1%,X2%,Y2%) Listbox erzeugen
AddString(Listbox%,C)                            Text in Listbox einfügen
AddString(Listbox%,A)                            Text in Listbox einfügen
AddString(Listbox%,B)                            Text in Listbox einfügen
WaitInput                                          warten auf Eingabe
End                                                Speicher freigeben