Combobox en vba visual studio
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