MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    Apresentaçõ Menu Vertical

    avatar
    JOSEMORAES
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 220
    Registrado : 23/02/2011

    Apresentaçõ Menu Vertical Empty Apresentaçõ Menu Vertical

    Mensagem  JOSEMORAES 29/8/2013, 02:29

    Apresentaçõ Menu Vertical Qqg2.th
    Apresentaçõ Menu Vertical Fvaq.th
    Apresentaçõ Menu Vertical 8x71.th
    Apresentaçõ Menu Vertical Y06g.th
    Apresentaçõ Menu Vertical A9de.th
    Apresentaçõ Menu Vertical Q3uv.th


    Ola pessoal, com a permissão do forum segue algumas telas de menu vertical que desenvolvi para uma pequena aplicação.

    A função que eu usei foi usar a funaçõ:

    .top


    Ou seja, conforme eu clico no menu desejado os outros botõe são redimencionados, para baixo ou para cima.


    Exemplo:

    Ao clicar no botão cadastros, os outro botões são jogados para baixo atraves da função ".top" sem as aspas.

    e em seguida aparece o form com os submenus do botão cadastro, e assim sucessivamente vão aparecendo os submenus e redimencionandos os botões.


    Basta apenas analisar o que deseja ser dimensionado e para onde.


    Como montar


    Criei as seguintes funções:


    Public Sub GrowCad()
    With Form_ADM_00_MenuPrincipal
    .ln1.Top = !boxTempTop1.Top
    .Registros.Top = !boxTempTop5.Top
    .Consultas.Top = !boxTempTop6.Top
    .Relatorios.Top = !boxTempTop7.Top
    .Administracao.Top = !boxTempTop8.Top
    .AlterarSenha.Visible = False
    .Logoff.Visible = False
    .Encerrar.Visible = False
       End With
       End Sub

    Public Sub GrowReg()
    With Form_ADM_00_MenuPrincipal
    .Registros.Top = !boxTempTop1.Top
    .ln2.Top = !boxTempTop2.Top
    .Consultas.Top = !boxTempTop6.Top
    .Relatorios.Top = !boxTempTop7.Top
    .Administracao.Top = !boxTempTop8.Top
    .AlterarSenha.Visible = False
    .Logoff.Visible = False
    .Encerrar.Visible = False
       End With
       End Sub

    Public Sub GrowCon()
    With Form_ADM_00_MenuPrincipal
    .Registros.Top = !boxTempTop1.Top
    .Consultas.Top = !boxTempTop2.Top
    .ln3.Top = !boxTempTop3.Top
    .Relatorios.Top = !boxTempTop7.Top
    .Administracao.Top = !boxTempTop8.Top
    .AlterarSenha.Visible = False
    .Logoff.Visible = False
    .Encerrar.Visible = False
      End With
       End Sub

    Public Sub GrowRel()
    With Form_ADM_00_MenuPrincipal
    .Registros.Top = !boxTempTop1.Top
    .Consultas.Top = !boxTempTop2.Top
    .Relatorios.Top = !boxTempTop3.Top
    .ln4.Top = !boxTempTop4.Top
    .Administracao.Top = !boxTempTop8.Top
    .AlterarSenha.Visible = False
    .Logoff.Visible = False
    .Encerrar.Visible = False
       End With
       End Sub

    Public Sub GrowAdm()
    With Form_ADM_00_MenuPrincipal
    .Registros.Top = !boxTempTop1.Top
    .Consultas.Top = !boxTempTop2.Top
    .Relatorios.Top = !boxTempTop3.Top
    .Administracao.Top = !boxTempTop4.Top
    .ln5.Top = !boxTempTop9.Top
    .AlterarSenha.Visible = False
    .Logoff.Visible = False
    .Encerrar.Visible = False
       End With
       End Sub

    Public Sub GrowGeral()
    With Form_ADM_00_MenuPrincipal
    .BtTxt.SetFocus
    '.Corpo1.Top = !boxTempTop1.Top
    .Registros.Top = !boxTempTop1.Top
    .Consultas.Top = !boxTempTop2.Top
    .Relatorios.Top = !boxTempTop3.Top
    .Administracao.Top = !boxTempTop4.Top
    DoCmd.Close acForm, "ADM_00_MenuAdministracao"
    DoCmd.Close acForm, "ADM_00_MenuCadastro"
    DoCmd.Close acForm, "ADM_00_MenuConsulta"
    DoCmd.Close acForm, "ADM_00_MenuRegistro"
    DoCmd.Close acForm, "ADM_00_MenuRelatorio"
    .AlterarSenha.Visible = True
    .Logoff.Visible = True
    .Encerrar.Visible = True
       End With
       End Sub




    Os campos:

    boxTempTop1
    boxTempTop2
    boxTempTop3
    boxTempTop4
    boxTempTop5
    boxTempTop6
    boxTempTop7
    boxTempTop8
    boxTempTop9

    são campos (invisiveis) para onde os botões principais serão direcionados



    Depois é so chamar nos botões principais as funções:



    Private Sub Cadastros_Click()
    GrowCad
    End Sub

    Private Sub Registros_Click()
    GrowReg
    End Sub

    Private Sub Consultas_Click()
    GrowCon
    End Sub

    Private Sub Relatorios_Click()
    GrowRel
    End Sub

    Private Sub Administracao_Click()
    GrowAdm
    End Sub


    Depois voce pode chamar também ao mover o mouse


    Private Sub CorpoMenu_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    GrowGeral
    End Sub

    Para que os botões volte para seus estado de origem




    Para chamar os submenus, voce pode optar pelo método "SourceObject"



    é isso ai, bons estudos....


    .................................................................................
    Apresentaçõ Menu Vertical 10715412
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    Apresentaçõ Menu Vertical Empty Re: Apresentaçõ Menu Vertical

    Mensagem  Leandro 29/8/2013, 14:00

    Muito bom! Parabéns!
    As funções ficram mais simples que as que eu fiz no meu menu tipo 'treeview'.
    Veja ele no link da minha assinatura.


      Data/hora atual: 28/3/2024, 17:39