Recorrer un control SSTAB de visual Basic 6.0

En algún momento de nuestra vida como desarrolladores de aplicaciones de escritorio nos hemos visto en la necesidad de agrupar información en PESTAÑAS (Control SSTab de Ms. Visual Basic 6.0) pero tuvimos cierta dificultad en activar o desactivar (lo hacíamos pestaña por pestaña), por tanto para evitar esta situación de nuevo, aquí les dejo una función escriba en Ms. Visual Basic 6.0 que activa o desactiva pestañas de un control SSTab.

Esta función se llama Activar_Desactivar_Pestanas, y recibe como parámetros Trae (para activar pestañas) o bien False (para desactivar pestañas) y el nombre del control pestaña.

 

 

Public Sub Activar_Desactivar_Pestanas(Activar As Boolean, Pestana As SSTab)

   

    For i = 0 To Pestana.Tabs - 1

        If Activar Then

            Pestana.TabEnabled(i) = True

        Else

            Pestana.TabEnabled(i) = False

        End If

    Next

   

End Sub

Con esta función ya podrá utilizar un control SSTab con cualquier cantidad de Pestañas y activarlas o desactivarlas en cuestión de segundos, ya no tendrá que escribir tantas líneas de código para activar o desactivar como pestañas tenga el control.

---

---