Listenfelder zeigen Listen an, in denen der Anwender eine Auswahl treffen kann.
Es gibt drei Arten von Listenfeldern:
▪Gewöhnliches Listenfeld (engl. "list box")
Hier kann der Anwender einen der Listeneinträge auswählen.
▪Kombinationsfeld (engl. "combo box")
Hier kann der Anwender entweder einen der Listeneinträge auswählen oder selbst eine Eingabe vornehmen.
▪Dropdown-Listenfeld (engl. "drop-down list box")
Eine platzsparende Variante von Listenfeldern: Der Anwender muss sie aufklappen, bevor er eine Auswahl treffen kann.
Syntax:
ListBox X, Y, Breite, Höhe, Inhalt, .ID
ComboBox X, Y, Breite, Höhe, Inhalt, .ID
DropListBox X, Y, Breite, Höhe, Inhalt, .ID
Die einzelnen Texte werden über das String-Array Inhalt initialisiert, das vor Aufruf von Dialog gefüllt werden sollte.
ID ist eine Variable, die das aktuell markierte Element enthält: Bei ListBox und DropListBox ist das eine Zahl (der Index), bei ComboBox ist es Text.
Beispiel:
Sub Main
Dim MyList$(5)
MyList(0) = "Listeneintrag 1"
MyList(1) = "Listeneintrag 2"
MyList(2) = "Listeneintrag 3"
MyList(3) = "Listeneintrag 4"
MyList(4) = "Listeneintrag 5"
MyList(5) = "Listeneintrag 6"
Begin Dialog BoxSample 16,35,256,89,"Listenfelder, Kombinationsfelder und Dropdown-Listenfelder"
OKButton 204, 24, 40, 14
CancelButton 204, 44, 40, 14
ListBox 12, 24, 48, 40, MyList$(), .Lstbox
DropListBox 124, 24, 72, 40, MyList$(), .DrpList
ComboBox 68, 24, 48, 40, MyList$(), .CmboBox
Text 12, 12, 32, 8, "Listenfeld:"
Text 124, 12, 68, 8, "Dropdown-Listenfeld:"
Text 68, 12, 44, 8, "Kombinationsfeld:"
End Dialog
Dim Dlg1 As BoxSample
Dlg1.Lstbox = 0
Dlg1.CmboBox = "Listeneintrag 2"
Dlg1.DrpList = 2
rc% = Dialog(Dlg1)
End Sub