Compartir a través de

Ejemplo de propiedad TabStop

  • Artículo

En el ejemplo siguiente se usa la propiedad TabStop para controlar si un usuario puede presionar Tab para mover el foco a un control determinado. El usuario presiona Tab para mover el foco entre los controles del formulario y, a continuación, hace clic en togglebutton para cambiar TabStop para CommandButton1. Cuando TabStop es False, CommandButton1 no recibirá el foco mediante Tab.

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 "Clicked CommandButton1." 
End Sub 
 
Private Sub ToggleButton1_Click() 
 If ToggleButton1 = True Then 
 CommandButton1.TabStop = True 
 ToggleButton1.Caption = "TabStop On" 
 Else 
 CommandButton1.TabStop = False 
 ToggleButton1.Caption = "TabStop Off" 
 End If 
End Sub 
 
Private Sub UserForm_Initialize() 
 CommandButton1.Caption = "Show Message" 
 
 ToggleButton1.Caption = "TabStop 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.