Freigeben über

Beispiele für ComboBox-Steuerelement, AddItem-Methode, Picture-, PicturePosition-Eigenschaft

  • Artikel

The following example uses a ComboBox to show the picture placement options for a control. Each time the user clicks a list choice, the picture and caption are updated on the CommandButton. In diesem Codebeispiel wird auch die AddItem-Methode verwendet, um die ComboBox-Optionen aufzufüllen.

Kopieren Sie diesen Beispielcode in den Deklarationsbereich eines Formulars. Make sure that the form contains:

  • Ein Bezeichnungsfeld-Steuerelement ( Label ) mit der Bezeichnung "Label1".
  • CommandButton mit dem Namen "CommandButton1".
  • ComboBox mit dem Namen "ComboBox1".
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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.