Пример использования свойств ListStyle и MultiSelect

В следующем примере свойства ListStyle и MultiSelect используются для управления внешним видом ListBox.

Пользователь выбирает значение listStyle с помощью toggleButton и выбирает OptionButton для одного из значений MultiSelect . Отображение ListBox изменяется соответственно, так же как и выбор поведения в пределах ListBox.

Чтобы воспользоваться этим примером, скопируйте данный пример кода в раздел описаний формы. Убедитесь, что эта форма содержит:

• Элемент ListBox с именем ListBox1.
• Метка с именем Label1.
• три элемента управления OptionButton с именами от OptionButton1 до OptionButton3;
• элемент ToggleButton с именем ToggleButton1.

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 и обратная связь.