如何在VBA中实现ListBox (多选)中所有项目的选择

Private Sub Form_Load()
    Dim items() As Variant
    Dim i As Integer
    
    ' 添加项目到ListBox并保存索引到数组
    ListBox1.AddItem "项目1"
    items(0) = 0
    
    ListBox1.AddItem "项目2"
    items(1) = 1
    
    ListBox1.AddItem "项目3"
    items(2) = 2
    
    ' 设置ListBox的选择模式为MultiExtended
    ListBox1.MultiSelect = fmMultiSelectMulti
    
    ' 默认选中所有项目
    For i = LBound(items) To UBound(items)
        ListBox1.Selected(i) = True
    Next i
End Sub

Private Sub CommandButton1_Click()
    Dim items() As Variant
    Dim i As Integer
    
    ' 遍历ListBox的所有项目
    For i = 0 To ListBox1.ListCount - 1
        ' 判断每个项目的选中状态
        If ListBox1.Selected(i) Then
            ' 执行特定操作，这里只是简单显示选中的项目
            MsgBox ListBox1.List(i)
        End If
    Next i
End Sub