ListStyle、MultiSelect 屬性範例

下列範例會使用 ListStyle 和 MultiSelect 屬性來控制 ListBox的外觀。

使用者使用ToggleButton選擇ListStyle的值，並選擇其中一個MultiSelect值的OptionButton。 ListBox 的外觀以及 ListBox 中的選取行為也會相應地改變。

若要使用本範例，請將此範例程式碼複製到表單的宣告部分中。 請確定表單包含：

• 一個名為 ListBox1 的 ListBox 。
• 一個名為 Label1 的 Label 。
• 三個分別名為 OptionButton1 到 OptionButton3 的 OptionButton 控制項。
• 一個名為 ToggleButton1 的 ToggleButton 。

Private Sub UserForm_Initialize() 
 Dim i As Integer 
 
 For i = 1 To 8 
 ListBox1.AddItem "Choice" & (ListBox1.ListCount + 1) 
 Next i 
 
 Label1.Caption = "MultiSelect Choices" 
 Label1.AutoSize = True 
 
 ListBox1.MultiSelect = fmMultiSelectSingle 
 OptionButton1.Caption = "Single entry" 
 OptionButton1.Value = True 
 OptionButton2.Caption = "Multiple entries" 
 OptionButton3.Caption = "Extended entries" 
 
 ToggleButton1.Caption = "ListStyle - Plain" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
 ToggleButton1.Height = 30 
End Sub 
 
Private Sub OptionButton1_Click() 
 ListBox1.MultiSelect = fmMultiSelectSingle 
End Sub 
 
Private Sub OptionButton2_Click() 
 ListBox1.MultiSelect = fmMultiSelectMulti 
End Sub 
 
Private Sub OptionButton3_Click() 
 ListBox1.MultiSelect = fmMultiSelectExtended 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Plain ListStyle" 
 ListBox1.ListStyle = fmListStylePlain 
 Else 
 ToggleButton1.Caption = "OptionButton " _ 
 & "or CheckBox" 
 ListBox1.ListStyle = fmListStyleOption 
 End If 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。