Bueno chicos, Me puse a inventar con un famoso controlador "TabStrip", Algunos piensan que no sirve para nada ya que no es "container" (No puedes ingresar contenidos en cada pestaña), Pero se equivocan. Hoy aprendí que el TabStrip a diferencia de SSTab, Puede modificarse en tiempo de ejecución cosa que se me hace mas fácil al momento de ingresar nuevas pestañas.
Con eso cree un código que supongo que les sera muy útil al momento de:
-Hacer un navegador por pestañas.
-Un editor que use pestañas (Por ejemplo Excel o FrontPage)
Bueno, les explico.
Primero creen un formulario EXE, Después agregan el control Common Controls 6.0, Agregaran:
-Un CommandButton llamado: Command1
-Un CommandButton llamado: Command2
-Un TabStrip llamado: pestana
Después agregaras el siguiente código:
Private Sub Form_Load()
pestana.Tabs(pestana.Tabs.Count).Caption = "Pagina nueva " & pestana.Tabs(pestana.Tabs.Count).Index
Command1.Caption = "Nueva Pestaña"
Command2.Caption = "Cerrar Pestaña"
End Sub
Private Sub Command1_Click()
If pestana.Tabs.Count < 5 Then
pestana.Tabs.Add
pestana.Tabs(pestana.Tabs.Count).Selected = True
pestana.Tabs(pestana.Tabs.Count).Caption = "Pagina nueva " & pestana.Tabs(pestana.Tabs.Count).Index
Me.Caption = pestana.Tabs(pestana.Tabs.Count).Caption
Else
MsgBox "No puedes crear mas de 5 pestañas."
End If
End Sub
Private Sub Command2_Click()
If pestana.Tabs.Count > 1 Then
pestana.Tabs.Remove (pestana.SelectedItem.Index)
pestana.Tabs(pestana.Tabs.Count).Selected = True
Else
MsgBox "Tienes que tener minimo 1 pestaña abierta."
End If
End Sub
Private Sub pestana_Click()
Me.Caption = pestana.Tabs(pestana.SelectedItem.Index).Caption
End Sub
y Listo!
El command1 creara una nueva pestaña, El command2 cerrara la pestaña actual.
Coloque mínimo 1 pestaña, y como máximo coloque un total de 5.
Espero que les aya servido.
Saludos.
