Menu Vertical Expandible

Un lugar dónde compartir funciones, procedimientos y aplicaciones
Avatar de Usuario
jmmiralles
Colaborador
Mensajes: 208
Registrado: Dom Nov 22, 2015 12:41 pm

Menu Vertical Expandible

Mensajepor jmmiralles » Sab Dic 10, 2016 4:07 pm

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. ;) ;)
Saludos desde un lugar de la Mancha
Visita Mi Web en: :oops:
http://jmmirallesortega.wix.com/accessyvba

PterPmntaM
Nivel 3
Mensajes: 67
Registrado: Dom Mar 12, 2017 4:27 am

Re: Menu Vertical Expandible

Mensajepor PterPmntaM » Lun Mar 27, 2017 11:37 pm

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

Avatar de Usuario
jmmiralles
Colaborador
Mensajes: 208
Registrado: Dom Nov 22, 2015 12:41 pm

Re: Menu Vertical Expandible

Mensajepor jmmiralles » Mar Mar 28, 2017 12:34 am

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
Saludos desde un lugar de la Mancha
Visita Mi Web en: :oops:
http://jmmirallesortega.wix.com/accessyvba


Volver a “Almacén Accesiano”

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado