Поделиться через

Размещение изображения и заголовка на кнопке "Команда"

  • Статья

В следующем примере comboBox используется для отображения параметров размещения рисунков для элемента управления . Каждый раз, когда пользователь щелкает выбор списка, изображение и подпись обновляются в CommandButton. В этом примере кода также используется метод AddItem для заполнения вариантов ComboBox .

Чтобы использовать этот пример, скопируйте пример кода в редактор скриптов формы. Чтобы запустить код, необходимо открыть форму, чтобы активировать событие Open . Убедитесь, что эта форма содержит:

  • Метка с именем Label1.

  • Объект CommandButton с именем CommandButton1 со свойством Picture, заданным для использования изображения на компьютере.

  • Элемент ComboBox с именем ComboBox1.

Dim Label1 
Dim CommandButton1 
Dim ComboBox1 
 
Sub Item_Open() 
Set Label1 = Item.GetInspector.ModifiedFormPages("P.2").Label1 
Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").CommandButton1 
Set ComboBox1 = Item.GetInspector.ModifiedFormPages("P.2").ComboBox1 
 
 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 
 
 ComboBox1.Style = 2 'Use drop-down list 
 
 ComboBox1.BoundColumn = 0 'Combo box values are ListIndex values 
 ComboBox1.ListIndex = 0 'Set combo box to first entry 
 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 have set the CommandButton1 to a bitmap file 
 'Note: that is present on your system 
 CommandButton1.PicturePosition = ComboBox1.Value 
End Sub 
 
Sub ComboBox1_Click() 
 Select Case ComboBox1.Value 
 Case 0 'Left Top 
 CommandButton1.Caption = "Left Top" 
 CommandButton1.PicturePosition = 0 
 
 Case 1 'Left Center 
 CommandButton1.Caption = "Left Center" 
 CommandButton1.PicturePosition = 1 
 
 Case 2 'Left Bottom 
 CommandButton1.Caption = "Left Bottom" 
 CommandButton1.PicturePosition = 2 
 
 Case 3 'Right Top 
 CommandButton1.Caption = "Right Top" 
 CommandButton1.PicturePosition = 3 
 
 Case 4 'Right Center 
 CommandButton1.Caption = "Right Center" 
 CommandButton1.PicturePosition = 4 
 
 Case 5 'Right Bottom 
 CommandButton1.Caption = "Right Bottom" 
 CommandButton1.PicturePosition = 5 
 
 Case 6 'Above Left 
 CommandButton1.Caption = "Above Left" 
 CommandButton1.PicturePosition = 6 
 
 Case 7 'Above Center 
 CommandButton1.Caption = "Above Center" 
 CommandButton1.PicturePosition = 7 
 
 Case 8 'Above Right 
 CommandButton1.Caption = "Above Right" 
 CommandButton1.PicturePosition = 8 
 
 Case 9 'Below Left 
 CommandButton1.Caption = "Below Left" 
 CommandButton1.PicturePosition = 9 
 
 Case 10 'Below Center 
 CommandButton1.Caption = "Below Center" 
 CommandButton1.PicturePosition = 10 
 
 Case 11 'Below Right 
 CommandButton1.Caption = "Below Right" 
 CommandButton1.PicturePosition = 11 
 
 Case 12 'Centered 
 CommandButton1.Caption = "Centered" 
 CommandButton1.PicturePosition = 12 
 
 End Select 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.