Freigeben über

Beispiele für -Steuerelement, AddItem-, RemoveItem-Methode, ListIndex-, ListCount-Eigenschaft

  • Artikel

Im folgenden Beispiel wird der Inhalt eines ListBox-Objekts mithilfe der Methoden AddItem und RemoveItem sowie der Eigenschaften ListIndex und ListCount gelöscht.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Stellen Sie sicher, dass das Formular folgende Komponenten enthält:

  • Ein ListBox -Steuerelement mit der Bezeichnung "ListBox1".
  • Zwei Befehlsschaltflächen-Steuerelemente ( CommandButton ) mit der Bezeichnung "CommandButton1" und "CommandButton2".
Dim EntryCount As Single 
 
Private Sub CommandButton1_Click() 
 EntryCount = EntryCount + 1 
 ListBox1.AddItem (EntryCount & " - Selection") 
End Sub

Private Sub CommandButton2_Click() 
 'Ensure ListBox contains list items 
 If ListBox1.ListCount >= 1 Then 
 'If no selection, choose last list item. 
 If ListBox1.ListIndex = -1 Then 
 ListBox1.ListIndex = _ 
 ListBox1.ListCount - 1 
 End If 
 ListBox1.RemoveItem (ListBox1.ListIndex) 
 End If 
End Sub

Private Sub UserForm_Initialize() 
 EntryCount = 0 
 CommandButton1.Caption = "Add Item" 
 CommandButton2.Caption = "Remove Item" 
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.