次の方法で共有

ListStyle プロパティ、MultiSelect プロパティの例

  • [アーティクル]

次の例では、 ListStyle プロパティと MultiSelect プロパティを使用して 、ListBox の外観を制御します。

ユーザーは ToggleButton を使用して ListStyle の値を選択し、MultiSelect 値の 1 つに OptionButtonを選択します。 それに応じて、 ListBox の外観と ListBox 内の選択動作が変更されます。

この例を使用するには、このサンプル コードをフォームの Declarations 部分にコピーします。 フォームに次が含まれていることを確認してください。

  • リスト ボックス ( ListBox ) コントロール (ListBox1)
  • ラベル ( Label ) コントロール (Label1)
  • 3 つのオプション ボタン ( OptionButton ) コントロール (OptionButton1、OptionButton2、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 のサポートおよびフィードバックを参照してください。