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

Пример использования свойства TakeFocusOnClick

  • Статья

В следующем примере свойство TakeFocusOnClick используется для управления тем, получает ли commandButton фокус, когда пользователь щелкает его.

Сначала пользователь нажимает на другой элемент управления, а потом нажимает на CommandButton1. Если свойство TakeFocusOnClick имеет значение True, CommandButton1 получает фокус после нажатия. Пользователь может изменить значение TakeFocusOnClick , щелкнув ToggleButton.

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

  • Элемент CommandButton с именем CommandButton1.
  • Элемент ToggleButton с именем ToggleButton1.
  • Один или два других элемента управления, например OptionButton или ListBox.
Private Sub CommandButton1_Click() 
 MsgBox "Watch CommandButton1 to see if it " _ 
 & "takes the focus." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TakeFocusOnClick = True 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 Else 
 CommandButton1.TakeFocusOnClick = False 
 ToggleButton1.Caption = "TakeFocusOnClick Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TakeFocusOnClick On" 
 ToggleButton1.Value = True 
 ToggleButton1.Width = 90 
End Sub

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

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