ComboBox コントロール、AddItem メソッド、Picture プロパティ、PicturePosition プロパティの例

  • [アーティクル]

次の例では、 ComboBox を使用してコントロールの画像配置オプションを表示します。 ユーザーがリストの選択をクリックするたびに、 CommandButton で画像とキャプションが更新されます。 このコード サンプルでは 、AddItem メソッドを使用して ComboBox の選択肢を設定します。

この例を使用するには、以下のサンプル コードをフォームの宣言部分にコピーします。 Make sure that the form contains:

  • ラベル ( Label ) コントロール (Label1)
  • CommandButton1 という名前の CommandButton。
  • ComboBox1 という名前の ComboBox。
Private Sub UserForm_Initialize() 
 Label1.Left = 18 
 Label1.Top = 12 
 Label1.Height = 12 
 Label1.Width = 190 
 Label1.Caption = "Select picture placement " _ 
 & "relative to the caption." 
 
 'Add list entries to combo box. The value of each 
 'entry matches the corresponding ListIndex value 
 'in the combo box. 
 ComboBox1.AddItem "Left Top" 'ListIndex = 0 
 ComboBox1.AddItem "Left Center" 'ListIndex = 1 
 ComboBox1.AddItem "Left Bottom" 'ListIndex = 2 
 ComboBox1.AddItem "Right Top" 'ListIndex = 3 
 ComboBox1.AddItem "Right Center" 'ListIndex = 4 
 ComboBox1.AddItem "Right Bottom" 'ListIndex = 5 
 ComboBox1.AddItem "Above Left" 'ListIndex = 6 
 ComboBox1.AddItem "Above Center" 'ListIndex = 7 
 ComboBox1.AddItem "Above Right" 'ListIndex = 8 
 ComboBox1.AddItem "Below Left" 'ListIndex = 9 
 ComboBox1.AddItem "Below Center" 'ListIndex = 10 
 ComboBox1.AddItem "Below Right" 'ListIndex = 11 
 ComboBox1.AddItem "Centered" 'ListIndex = 12 
 'Use drop-down list 
 ComboBox1.Style = fmStyleDropDownList 
 'Combo box values are ListIndex values 
 ComboBox1.BoundColumn = 0 
 'Set combo box to first entry 
 ComboBox1.ListIndex = 0 
 
 
 ComboBox1.Left = 18 
 ComboBox1.Top = 36 
 ComboBox1.Width = 90 
 ComboBox1.ListWidth = 90 
 
 'Initialize CommandButton1 
 CommandButton1.Left = 230 
 CommandButton1.Top = 36 
 CommandButton1.Height = 120 
 CommandButton1.Width = 120 
 
 'Note: Be sure to refer to a bitmap file that is 
 'present on your system, and to include the path 
 'in the filename. 
 CommandButton1.Picture = _ 
 LoadPicture("c:\windows\argyle.bmp") 
 CommandButton1.PicturePosition = ComboBox1.Value 
End Sub 
 
Private Sub ComboBox1_Click() 
 Select Case ComboBox1.Value 
 Case 0 'Left Top 
 CommandButton1.Caption = "Left Top" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionLeftTop 
 
 Case 1 'Left Center 
 CommandButton1.Caption = "Left Center" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionLeftCenter 
 
 Case 2 'Left Bottom 
 CommandButton1.Caption = "Left Bottom" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionLeftBottom 
 
 Case 3 'Right Top 
 CommandButton1.Caption = "Right Top" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionRightTop 
 
 Case 4 'Right Center 
 CommandButton1.Caption = "Right Center" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionRightCenter 
 
 Case 5 'Right Bottom 
 CommandButton1.Caption = "Right Bottom" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionRightBottom 
 
 Case 6 'Above Left 
 CommandButton1.Caption = "Above Left" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionAboveLeft 
 
 Case 7 'Above Center 
 CommandButton1.Caption = "Above Center" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionAboveCenter 
 
 Case 8 'Above Right 
 CommandButton1.Caption = "Above Right" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionAboveRight 
 
 Case 9 'Below Left 
 CommandButton1.Caption = "Below Left" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionBelowLeft 
 
 Case 10 'Below Center 
 CommandButton1.Caption = "Below Center" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionBelowCenter 
 
 Case 11 'Below Right 
 CommandButton1.Caption = "Below Right" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionBelowRight 
 
 Case 12 'Centered 
 CommandButton1.Caption = "Centered" 
 CommandButton1.PicturePosition = _ 
 fmPicturePositionCenter 
 
 End Select 
 
End Sub

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。