Acceso a una pestaña en un control TabStrip

En el ejemplo siguiente se obtiene acceso a una pestaña individual de un control TabStrip de varias formas:

• Con la colección Tabs y un índice numérico.

• Con el nombre del objeto Tab individual.

• Con la propiedad SelectedItem.

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 del elemento Open. Asegúrese de que el formulario contiene un control TabStrip denominado TabStrip1.

Sub Item_Open() 
 Dim TabStrip1 
 Dim TabName 
 
 Set TabStrip1 = Item.GetInspector.ModifiedFormPages.Item("P.2").Controls("TabStrip1") 
 For i = 0 To TabStrip1.Count - 1 
 'Using index (numeric or string) 
 MsgBox "TabStrip1.Tabs(i).Caption = " & TabStrip1.Tabs(i).Caption 
 MsgBox "TabStrip1.Tabs.Item(i).Caption = " & TabStrip1.Tabs.Item(i).Caption 
 
 'Use Tab object without referring to Tabs collection 
 If i = 0 Then 
 MsgBox "TabStrip1.Tab1. Caption = " & TabStrip1.Tab1.Caption 
 ElseIf i = 1 Then 
 MsgBox "TabStrip1.Tab2. Caption = " & TabStrip1.Tab2.Caption 
 End If 
 
 'Use SelectedItem Property 
 TabStrip1.Value = i 
 MsgBox " TabStrip1.SelectedItem.Caption = " & TabStrip1.SelectedItem.Caption 
 Next 
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.