Exemplo Menu Especial

Exemplo:

http://maximoaccess.forumeiros.com/t11861-menu-especial

Muito bom Assis!

Obrigado Leandro

Simples mas trabalhoso ....

Assis se é trabalhoso não é simples, pelo menos eu penso assim.

Assis dentro do meu pequeno conhecimento posso te dar uma dica?
Use o For e Next para exibir e ocultar os comandos, diminui bastante a escrita de programação, é dica do Avelino.

Dim J as Byte
For J = 1 To 200
Me("Comando" & J).Visible = False ou True
Next J

Também dá pra usar em preenchimento de TextBox a partir de ComboBox.

Ola, bem eu uso uma outra técnica, ou seja crio meus submenus individuais, depois no menu principal conforme deseja chama esses submenus conforme a necessidade.

Crio uma linha vertical em forma de invisivel, e apos chamar os submenus, elas ficam rente a esse linha, ou seja todos os submenus aparecem atraves dessa linha , no meu caso utilizo ela sempre do lado esquerdo.

Veja os exemplos:

Menu Horizontal





Menu Vertical







Em relação ao menu principal basta utilizar a criatividade, e montar ao seu gosto.

At+

Muito bom também, bem profissional, se puder deixe um arquivo de exemplo assim como o grande Assis, abraço

É isso ai JoseMorais manda pra nós esse menu será de grande utilidade.
Parabéns e sucesso.

E caso seu aplicativo não tenha tantos formulários e consultas e relatórios, você também pode ter um menu mais enxuto, algo assim




Basta ousar um pouco na criatividade.


Os menus postado não posso passar, mas vou criar algo mais simples, depois podem fazer as adpatações necessárias.

Espero ter ajudado.

At+

Ótimo josé!