Especificar compatibilidad con pestañas para un control

En el ejemplo siguiente, se usa la propiedad TabStop para controlar si el usuario puede presionar TAB para situar el foco en un control determinado. La propiedad TabIndex es una propiedad de Microsoft Forms 2.0 que se aplica a todos los controles que admiten las tabulaciones. El usuario presiona TAB para mover el foco por los controles de un formulario y después hace clic en el control ToggleButton para cambiar TabStop a CommandButton1. Cuando el valor de TabStop es False, BotónDeComando1 no recibirá el foco con el tabulador.

Para utilizar este ejemplo, copie el código en el Editor de secuencias de comandos de un formulario. Para ejecutar el código debe abrir el formulario con el fin de que se produzca el evento Open. 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.

Sub CommandButton1_Click() 
 MsgBox "Clicked CommandButton1." 
End Sub 
 
Sub ToggleButton1_Click() 
 Dim CommandButton1 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 If ToggleButton1 = True Then 
 CommandButton1.TabStop = True 
 ToggleButton1.Caption = "TabStop On" 
 Else 
 CommandButton1.TabStop = False 
 ToggleButton1.Caption = "TabStop Off" 
 End If 
End Sub 
 
Sub Item_Open() 
 Set ToggleButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("ToggleButton1") 
 Set CommandButton1 = Item.GetInspector.ModifiedFormPages("P.2").Controls("CommandButton1") 
 
 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.