Autor Tema: Sstab (Leído 2283 veces)

BLADDE · « **en:** Sábado 28 de Abril de 2007, 05:53 »

amigos algen de casualidad tiene algun material sobre SSTAB?? me gustaria incluso poder poner un mini boton en cada pestaña asi como las tiene el firefox nose si es este componente el que se usa pero me gustaria usarlo tambien saber como pasar el control a una determinada etiqueta por ejemplo si se cerro la Tabs(1) se incorpore no la tabs(2) sino la tabs (3) para eso devo pasarle el control como se hace?? como modificar las propiedades de una determinada tabs cambiar el caption lo se es SSTab1.TabsCaption(3)="pestaña 3" pero cuando quiero cambiarle otras cosas como hago?? recuerden sobre una pestaña en especifico
gracias amigos

Jose Arriagada · « **Respuesta #1 en:** Jueves 24 de Mayo de 2007, 17:55 »

Crea un formulario con:
1 control sstab1
1 textbox
4 command

y pega el siguiente codigo y prueba... espero te de una idea de lo que necesitas...

Private Sub Command1_Click()
SSTab1.Tabs = Text1.Text
SSTab1.TabsPerRow = Text1.Text
End Sub

Private Sub Command2_Click()
If SSTab1.Tab < SSTab1.Tabs Then
SSTab1.Tab = SSTab1.Tab + 1
End If
End Sub

Private Sub Command3_Click()
If SSTab1.Tab < SSTab1.Tabs Then
If SSTab1.Tab > 0 Then
SSTab1.TabEnabled(SSTab1.Tab) = False
If SSTab1.Tab + 1 < SSTab1.Tabs Then
SSTab1.Tab = SSTab1.Tab + 1
End If
Else
SSTab1.TabEnabled(SSTab1.Tab) = False
SSTab1.Tab = SSTab1.Tab + 1
End If
End If
End Sub

Private Sub Command4_Click()
For i = 0 To SSTab1.Tabs - 1
SSTab1.TabEnabled(i) = True
Next i
End Sub

Private Sub Form_Load()
SSTab1.Tabs = 6
SSTab1.TabsPerRow = 6
Text1.Text = ""
Command1.Caption = "Crear pestañas"
Command2.Caption = "Avanzar pestaña"
Command3.Caption = "Bloquear pestaña"
Command4.Caption = "Habilitar pestañas"
End Sub

SoloCodigo

Autor Tema: Sstab (Leído 2283 veces)

BLADDE

Sstab

Jose Arriagada

Re: Sstab