MENU

USUARIO.EXCLUIDOS 12/01/2005 17:08:51
#60336
Alguém saberia como faço para pegar os dados de todos os menus criados na interface ...

Ex.: Criei dois menus (cadastro e relatorio) e vários submenus. Preciso pegar o nome, caption e index de cada um deles ...

Desde já agradeço.

Luiz Paulo Lewer
MARVB6 12/01/2005 17:26:25
#60344
é meu amigo ...vai se acustumando...nem tudo é Control C e Control V .... A única maneira de ver essa informações é no próprio Menu Editor....pelo menos eu não conheço outra forma ...

Abraço.
USUARIO.EXCLUIDOS 12/01/2005 17:31:21
#60347
valeu ...
USUARIO.EXCLUIDOS 13/01/2005 00:24:58
#60402
Me responda uma coisa eles tem o mesmo nome com a index <> umas das outras. Talvez da para criar um looping e pegar os valores que vc quer tipo assim:

Uma forma é:

For i=1 to 10 'Supondo que tem 10 itens nos menus
MsgBox(Menu(i).Caption)
MsgBox(Menu(i).Index)
MsgBox(Menu(i).name)
Next

Note que os menus tem que ter o mesmo nome que no caso eu chamei de Menu e cada um com um index diferente que no meu caso começou de 1.

Outra forma é:

Sub-Menu.Caption 'Sub-Menu ou Menu
Sub-Menu.Index 'Sub-Menu ou Menu
Sub-Menu.Name 'Sub-Menu ou Menu

Espero ter ajudado,

Sem mais.

RGAFFO
USUARIO.EXCLUIDOS 13/01/2005 08:22:10
#60441
é mais ou menos isso RGAFFO.
Dessa forma eu consigo, mas o q preciso mesmo é quando carregar o form, varrer todos os menus e pegar as propriedades....
Como se eu não soubesse o nome dos menus ...

Mesmo assim obrigado !
USUARIO.EXCLUIDOS 14/01/2005 01:51:14
#60649
Certo!

Então o único jeito é usar a 1Âê forma forma, é só dar o mesmo nome a todos os itens dos menu e para cada nome dar um número de index, então vc cria o looping, o que eu não sei é como pegar a qtd total de itens colocados em tempo de execução para fazer de i=1 até Toal.

Sem mais,

RGAFFO
Tópico encerrado , respostas não são mais permitidas