Tabs personalizables

Este ejemplo simula la utilizacion del control ficha (Tabs Control) de Microsoft Access, la idea es personalizarlo para agregar colores y mover las pestañas a la pocision que nosotros queramos, hechale un vistazo al codigo y de seguro sacaras provecho de el y ya sabes lo que digo siempre "Mejorar se puede mucho, pero eso ya depende de ti".

Parte del codigo utilizado en este invento

'//Author: Juan Amador
'//Email: [email protected]
'//web: www.geocities.com/famaads/tabs
'//Fecha: Ene, 2005
'//Funcion para simular los tabs del Control Ficha
Function SimulaTabs(frm As String, cualctl As String, evento As String)
    Dim subforma As String, cual As String
    subforma = cualctl & "sfrm"
    cual = cualctl & "box"

    Select Case evento
        Case "move", "got"
            Forms(frm).Controls(cualctl).SetFocus
            resete = -1
        Case "up"
            Forms(frm).Controls(cual).SpecialEffect = 0
        Case "down"
            Forms(frm).Controls(cual).SpecialEffect = 2
        Case "click"
            Forms(frm).Controls(subforma).Visible = True
            Forms(frm).Controls(cual).SpecialEffect = 0
            Forms(frm).Controls(cual).BackColor = colorazul
            Forms(frm).Controls("lblmsgbarra").Caption = Forms(frm).Controls(Left(cual, 4)).ControlTipText
            RemoveTabsColor frm, cual
            Hidesfrm frm, subforma
    End Select
End Function

Descargar ejemplo
Ir a la pagina inicial