Beispiel für ListBox-Steuerelement, List-Eigenschaft

Das folgende Beispiel vertauscht die Spalten eines mehrspaltigen Listenfelds ( ListBox ). Dieses Beispiel veranschaulicht zwei Einsatzmöglichkeiten der List -Eigenschaft:

• To access and exchange individual values in the ListBox. In this usage, List has subscripts to designate the row and column of a specified value.

• To initially load the ListBox with values from an array. Bei dieser Verwendung besitzt List keine untergeordneten Skripts.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular ein ListBox -Objekt mit der Bezeichnung "ListBox1" und ein CommandButton -Objekt mit der Bezeichnung "CommandButton1" aufweist.

Dim MyArray(6, 3) 
'Array containing column values for ListBox. 
 
Private Sub UserForm_Initialize() 
 Dim i As Single 
 
 ListBox1.ColumnCount = 3 
'This list box contains 3 data columns 
 
 'Load integer values MyArray 
 For i = 0 To 5 
 MyArray(i, 0) = i 
 MyArray(i, 1) = Rnd 
 MyArray(i, 2) = Rnd 
 Next i 
 
 'Load ListBox1 
 ListBox1.List() = MyArray 
 
End Sub

Private Sub CommandButton1_Click() 
' Exchange contents of columns 1 and 3 
 
 Dim i As Single 
 Dim Temp As Single 
 
 For i = 0 To 5 
 Temp = ListBox1.List(i, 0) 
 ListBox1.List(i, 0) = ListBox1.List(i, 2) 
 ListBox1.List(i, 2) = Temp 
 Next i 
End Sub

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.