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.

---

Arquitecto, diseñador y programador | Comenzando a proyectar mi vida bajo mis propios ideales. Administrador de ilDom, Twiteck y Century21

:uhh:
Que mierd estar en un foro donde nadie te entiende D:

Creo que mas de uno se quedo como...  :jum:
xd

---

Arquitecto, diseñador y programador | Comenzando a proyectar mi vida bajo mis propios ideales. Administrador de ilDom, Twiteck y Century21

@SoyJoaquin.

:uhh:
Que mierd estar en un foro donde nadie te entiende D:

Creo que mas de uno se quedo como...  :jum:
xd

Eso mismo me pasa a mi, que no entiendo ná de programación haha
De todas formas, supongo que a alguien le debe servir xd

---

two months ago you said my hair smelled like flowers and today i saw you step on a rose.

LOL, es que joaco, creo que se te olvido la temática ancla del foro " Habbo " XD aca la mayoría viene a pavonearse con concursos, placas y demás, ahora anda tomando un poco de fama la programación web, pero creo que aquí no sera muy bien aprovechado el aporte que acabas de dar x).

---

Políticamente irresistible.

Yo también me quedé así:  :jum:
Es que ni imágenes pones xD

desde cuando no se puede poner contenido en los TabStrip?

cuando pulsas vas haciendo frames visibles y ya
o sino esto
Dim i As Integer        TabStrip1.Tabs.Clear    For i = 1 To 3        TabStrip1.Tabs.Add , , "Ficha " & i    Next        MsgBox "Cantidad de tabs : " & TabStrip1.Tabs.Count          

asi de simplon TabStrip1.Tabs.Add , , "chooose " & i    Next

---

¡Soy el fantasma de Habtium! Me dedico a reemplazar aquellas cuentas que han sido eliminadas. 👻

Joako, si quieres que la gente continúe apreciandote por lo que haces CONTINÚA CON EL MOD JOAKO!!!!!!!!!!!!!!

---

¡Soy el fantasma de Habtium! Me dedico a reemplazar aquellas cuentas que han sido eliminadas. 👻

@Chooose

desde cuando no se puede poner contenido en los TabStrip?

cuando pulsas vas haciendo frames visibles y ya
o sino esto
Dim i As Integer        TabStrip1.Tabs.Clear    For i = 1 To 3        TabStrip1.Tabs.Add , , "Ficha " & i    Next        MsgBox "Cantidad de tabs : " & TabStrip1.Tabs.Count            

asi de simplon TabStrip1.Tabs.Add , , "chooose " & i    Next

No es container en tiempo de diseño, eso ya lo mencione arriba.
En cambio, en tiempo de ejecución si.

@Physlet

Yo también me quedé así:  :jum:
Es que ni imágenes pones xD

Yaa.. Es que no se para que imágenes
Se supone que vas a seguir las instrucciones, colocando los controles, etc..

El orden de los botones lo pones tu D:

@Anon

LOL, es que joaco, creo que se te olvido la temática ancla del foro " Habbo " XD aca la mayoría viene a pavonearse con concursos, placas y demás, ahora anda tomando un poco de fama la programación web, pero creo que aquí no sera muy bien aprovechado el aporte que acabas de dar x).

jaja, Si ya me di cuenta... xD
Pero en PHPeros que es un foro de programación... sigue igual en el topic de visual basic entonces quedo como que "traumado" xd

---

Arquitecto, diseñador y programador | Comenzando a proyectar mi vida bajo mis propios ideales. Administrador de ilDom, Twiteck y Century21