SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: BLADDE en Sábado 28 de Abril de 2007, 05:53

Título: Sstab
Publicado por: 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

Título: Re: Sstab
Publicado por: Jose Arriagada 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