Ejemplo de propiedad TakeFocusOnClick

En el ejemplo siguiente se usa la propiedad TakeFocusOnClick para controlar si un control CommandButton recibe el foco cuando el usuario hace clic en él.

El usuario hace clic en un control distinto de CommandButton1 y, a continuación, hace clic en CommandButton1. Si TakeFocusOnClick es True, CommandButton1 recibe el foco cuando se hace clic en él. El usuario puede cambiar el valor de TakeFocusOnClick haciendo clic en togglebutton.

Para usar este ejemplo, copie este código de muestra en la parte Declaraciones de un formulario. Asegúrese de que el formulario contiene:

• Un control CommandButton denominado CommandButton1.
• Un control ToggleButton denominado ToggleButton1.
• Uno o dos controles más, por ejemplo controles OptionButton o 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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.