Part | Description | |
object | Required. A valid object. | |
fmListStyle | Optional. The visual style of the list. |
Constant | Value | Description | |
fmListStylePlain | 0 | Looks like a regular list box, with the background of items highlighted. | |
fmListStyleOption | 1 | Shows option buttons, or check boxes for a multi-select list (default). When the user selects an item from the group, the option button associated with that item is selected and the option buttons for the other items in the group are deselected. |
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