MultiSelect 和 Selected 属性示例

下例用 MultiSelect 和 Selected 属性来演示用户如何在列表框中选择一项或多项。用户通过选中选项按钮来指定选择的方法，然后在列表框中选择一项或多项。单击命令按钮可以在第二个列表框中显示所选的项。

窗体包含：

• 名为 ListBox1 和 ListBox2 的两个列表框控件。
• 名为 CommandButton1 的命令按钮。
• 名为 OptionButton1 到 OptionButton3 的三个选项按钮控件。

Dim i

Sub UserForm_CommandButton1_Click()
    UserForm_ListBox2.Clear
    
    For i = 0 To 9
        If UserForm_ListBox1.Selected(i) = True Then
            UserForm_ListBox2.AddItem UserForm_ListBox1.List(i)
        End If
    Next

End Sub

Sub UserForm_OptionButton1_Click()
    UserForm_ListBox1.MultiSelect = 0
End Sub

Sub UserForm_OptionButton2_Click()
    UserForm_ListBox1.MultiSelect = 1
End Sub

Sub UserForm_OptionButton3_Click()
    UserForm_ListBox1.MultiSelect = 2
End Sub

Sub UserForm_Initialize()
    For i = 0 To 9
        UserForm_ListBox1.AddItem "Choice " & (UserForm_ListBox1.ListCount + 1)
    Next
    
    UserForm_OptionButton1.Caption = "Single Selection"
    UserForm_ListBox1.MultiSelect = 0
    UserForm_OptionButton1.Value = True
    
    UserForm_OptionButton2.Caption = "Multiple Selection"
    UserForm_OptionButton3.Caption = "Extended Selection"
    
    UserForm_CommandButton1.Caption = "Show selections"
    UserForm_CommandButton1.AutoSize = True
End Sub