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

Выравнивание заголовка кнопки option с элементом управления

  • Статья

В следующем примере показано свойство Выравнивание , используемое с несколькими элементами управления OptionButton . В этом примере пользователь может изменить выравнивание, щелкнув ToggleButton.

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

  • Два элемента управления OptionButton с именами OptionButton1 и OptionButton2.

  • Элемент ToggleButton с именем ToggleButton1.

Dim OptionButton1 
Dim OptionButton2 
Dim ToggleButton1 
 
Sub Item_Open() 
 Set OptionButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("OptionButton1") 
 Set OptionButton2 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("OptionButton2") 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("ToggleButton1") 
 
 OptionButton1.Alignment = 0 'fmAlignmentLeft 
 OptionButton2.Alignment = 0 'fmAlignmentLeft 
 
 OptionButton1.Caption = "Alignment with AutoSize" 
 OptionButton2.Caption = "Choice 2" 
 OptionButton1.AutoSize = True 
 OptionButton2.AutoSize = True 
 
 ToggleButton1.Caption = "Left Align" 
 ToggleButton1.WordWrap = True 
 ToggleButton1.Value = True 
End Sub 
 
Sub ToggleButton1_Click() 
 If ToggleButton1.Value = True Then 
 ToggleButton1.Caption = "Left Align" 
 OptionButton1.Alignment = 0 'fmAlignmentLeft 
 OptionButton2.Alignment = 0 'fmAlignmentLeft 
 Else 
 ToggleButton1.Caption = "Right Align" 
 OptionButton1.Alignment = 1 'fmAlignmentRight 
 OptionButton2.Alignment = 1 'fmAlignmentRight 
 End If 
End Sub

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

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