ListBox 控件、AddItem 和 RemoveItem 方法以及 ListIndex、ListCount 属性示例

下例用 AddItem、RemoveItem 以及 ListIndex 和 ListCount 属性来添加和删除列表框的内容。

窗体包含：

• 名为 ListBox1 的列表框。
• 名为 CommandButton1 和 CommandButton2 的两个命令按钮控件。

示例

金字塔

Dim EntryCount

Sub UserForm_CommandButton1_Click()
    EntryCount = EntryCount + 1
    UserForm_ListBox1.AddItem (EntryCount & " - Selection")
End Sub
Sub UserForm_CommandButton2_Click()
    '确认列表框包含列表项
    If UserForm_ListBox1.ListCount >= 1 Then
        '如果没有选中的内容，用上一次的列表项。
        If UserForm_ListBox1.ListIndex = -1 Then
            UserForm_ListBox1.ListIndex = _ 
                    UserForm_ListBox1.ListCount - 1
        End If
        UserForm_ListBox1.RemoveItem (UserForm_ListBox1.ListIndex)
    End If
End Sub
Sub UserForm_Initialize()
    EntryCount = 0
    UserForm_CommandButton1.Caption = "Add Item"
    UserForm_CommandButton2.Caption = "Remove Item"
End Sub