Menu Vertical Expandible

[jmmiralles]

Buenas tardes a todos,

quiero aprovechar para felicitar el primer añito de este foro, agradecer a todos los que han sido participes de este proyecto desde administradores, colaboradores hasta el último de los usuarios que se haya registrado.

Por este motivo quiero hacer un regalito a este foro y no es nada más y nada menos que una forma diferente de hacer un menú en access, en este caso se trata de un menú vertical que se acapla lateramente en la pantalla del ordenador, está programado para que se sitúe en la derecha de la pantalla.

Lo he utilizado en algunas de mis aplicaciones y la verdad que queda bastante bien, para mi gusto.

http://www.mediafire.com/file/6660g6g0au6trab/Menu_Vertical_Expandible.rar


Espero que os guste y os sea útil y práctico a la vez.

[PterPmntaM]

Disculpa, existe una forma de hacer que se coloque del lado izquierdo?

[jmmiralles]

Hola,

en el módulo de clase CTL_XSideBAR tienes el siguiente código:

Código: Seleccionar todo

Public Sub load(UIForm As Form)
'// general variable(s)
Dim iLoop As Integer
Dim oPane As SubForm
    '// load sidebar (form)
    Set oXSideBAR = UIForm
    '// reset controls
    For iLoop = 1 To Me.MaxPanes
        '// load pane (subform) pointer
        Set oPane = oXSideBAR.Controls(Me.SidebarPaneCtl & iLoop)
        '// add pane (subform) to collection
        oPanes.Add oPane
        '// reset pane (subform)
        With oPanes(iLoop)
           
            .Left = 0
            .Height = 0
            .Top = 0
            .Tag = ""
            .SourceObject = ""
            .Visible = False
        End With
    Next iLoop
   
   Call dockUI("right")
   
    '// clean up
    Set oPane = Nothing
End Sub

Sustituye Call dockUI("right") por Call dockUI("Left")

Right=Derecha
Left=Izquierda

y con eso lo tienes solucionado.

Ya me cuentas.

Abrazos