WebListBoxItems Object

WebListBox WebListBoxItems

Represents the items in a Web list box control.

Using the WebListBoxItems object

Use the ListBoxItems property to access the items in a Web list box. Use the AddItem method of the WebListBoxItems object to add items to a Web list box. This example creates a new Web list box and adds several items to it. Note that when initially created, a Web list box control contains three default items. This example includes a routine that deletes the default list box items before adding new items.

Sub CreateWebListBox()
    Dim intCount As Integer
    With ActiveDocument.Pages(1).Shapes
        With .AddWebControl(Type:=pbWebControlListBox, Left:=100, _
                Top:=150, Width:=300, Height:=72).WebListBox
            .MultiSelect = msoFalse
            With .ListBoxItems
                For intCount = 1 To .Count
                    .Delete (1)
                Next
                .AddItem Item:="Green"
                .AddItem Item:="Purple"
                .AddItem Item:="Red"
                .AddItem Item:="Black"
            End With
        End With
    End With
End Sub