Freigeben über

WebListBoxItems.AddItem-Methode (Publisher)

Fügt einem Weblistenfeld-Steuerelement Listenelemente hinzu.

Syntax

Ausdruck. AddItem (Item, Index, SelectState, ItemValue)

Ausdruck Eine Variable, die ein WebListBoxItems-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Item Erforderlich String Der Name des Elements, wie er in der Liste angezeigt wird.
Index Optional Long Die Nummer des Listenelements. Wenn Index nicht angegeben ist oder außerhalb des Bereichs der Indizes vorhandener Listenfeldelemente liegt, wird das neue Element am Ende des Listenfelds hinzugefügt. Andernfalls wird das neue Element an der durch Index angegebenen Position eingefügt, und die Indexposition aller Elemente, nachdem es um eins erhöht wird.
SelectState Optional Boolean True, Wenn das Element ausgewählt ist, wenn das Listenfeld Anfangs angezeigt wird. Der Standardwert ist False.
ItemValue Optional String Der Wert des Listenfeldelements. Wenn nicht angegeben, ist der Wert des neuen Elements mit dem Elementnamen identisch.

Hinweise

Wenn Sie programmgesteuert ein neues Weblistenfeld erstellen, enthält es drei Elemente. Verwenden Sie die Delete -Methode, um sie aus der Liste zu entfernen.

Beispiel

Dieses Beispiel erstellt ein neues Listenfeld in der aktiven Publikation, entfernt die drei Standardlistenelemente und fügt dann mehrere Elemente hinzu.

Sub AddListBoxItems() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes.AddWebControl _ 
 (Type:=pbWebControlListBox, Left:=100, _ 
 Top:=100, Width:=150, Height:=100) 
 With .WebListBox.ListBoxItems 
 For intCount = 1 To .Count 
 .Delete (1) 
 Next 
 .AddItem Item:="Green" 
 .AddItem Item:="Yellow" 
 .AddItem Item:="Red" 
 .AddItem Item:="Blue" 
 .AddItem Item:="Purple" 
 .AddItem Item:="Chartreuse" 
 .AddItem Item:="Pink" 
 .AddItem Item:="Olive" 
 End With 
 End With 
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.

  • Last updated on