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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de