|
Visual Basic & Access (VBA): Listenfelder II
Ich möchte in einem Listenfeld per Programmcode einige Einträge als ausgewählt markieren.
Lösung:
Für das folgende Beispiel erstelle man ein Listenfeld (ListBox) und nenne es "MeineListBox". Die Eigenschaft "Mehrfachauswahl" (MultiSelect) stelle man ein auf 2 - Extended (erweiterte Mehrfachauswahl). Dann probiere man folgenden
Code:
Dim i as Integer
'
' 20 Zahlen in die ListBox
schreiben:
'
For i = 0 to 19
MeineListBox.AddItem i
Next i
'
' Zahlen 3,7,9 und 10 markieren:
'
MeineListBox.Selected(3) = True
MeineListBox.Selected(7) = True
MeineListBox.Selected(9) = True
MeineListBox.Selected(10) = True
Man beachte, daß der Index der ListBox bei 0 (Null) beginnt (nicht bei 1) und bei ListCount-1 endet.
|