Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 15/06/2005 12:36 hs
Estou precisando pegar todos os itens do menu do VB6. Tipo meu menu é assim CADASTRO RELATORIOS cliente por periodo fornecedor inventario Gostaria de saber o que esta no nivel 1 CADASTRO, RELATORIO e o seus sub CLIENTE e FORNECEDOR. Estou querendo fazer com que o ususario so tenha acesso ao que é permitido a ele (uma seguranca). Ja tenho isso mais o usuario tem que digitar o nome do programa e isso gera uma dificuldade ja que ele tem que saber o nome correto. Gostaria de listar o menu e ele marcar o que ele vai acessar e fazer uma coisa generica.
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
|
|
Postada em 15/06/2005 14:17 hs
Generico acho q nao da... Vou falar como eu faço... tenho um TreeView que lista a estrutura de menus... Qdo dou um load no formulario de permissoes de acesso, carrego manualmente os nodes do tree com os nomes dos menus (manualmente mesmo, tenho digitado 1 por 1 no codigo fonte)... no meu tree seto a propriedade checkboxes para true... O usuario Administrador deve selecionar os checks para os quais deve permitir acesso para cada nivel de usuario... Depois eu corro todos os nodes do grid, verificando se estao checados, e gravo na tabela de permissoes... Pegar automaticamente o nome e a hierarquia de menus como vc quer, eu acho q nao dá... Flw!
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 15/06/2005 14:29 hs
Valeu elieser, O meu processo é manual tambem e acho que da muita chance a erro. Pois fica tambem tudo dentro se mudar as posicoes ja era, vai ter que lembra em mudar. Vou pesquisar mais se achar algo te falo. Mais alguem ??? 
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 15/06/2005 14:53 hs
Cara, nada com o VB é impossivel. Private Sub Form_Load()
For i = 1 To mnuarquivo.Parent.Count - 1
MsgBox "Menu Pai: " & mnuarquivo.Caption & vbNewLine & " Nome do " & i & "º menu filho: " & mnuarquivo.Parent(i).Name & vbNewLine
Next
End Sub Com variações e criatividade encima deste simples código que fiz só pra responder tua pergunta(pois eu nunca precisei acessar as collections de menus do vb) acho que consiguirás chegar onde queres.... |
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
Postada em 15/06/2005 15:12 hs
7cordas ( violao tem 6 ou 12 guitarra tem 6) voce tem 7 ???  É isso mesmo que quero mais que tipo de ojbeto é mnuarquivo, pois monto o menu atravez do MENU EDITOR e nao cria na mao.
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
|
|
Postada em 20/06/2005 17:43 hs
Eu toco violão de sete cordas. Conheces? Um abraço, 7Cordas |
|
|
|
