USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Menu Editor
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 30/11/2005 16:30 hs            
Pessoal como faço para conseguir fazer um looping (for) para pegar todas as opcoes que tenho dentro do meu menueditor, para eu habilitar e desabilitar. tem como? alguem pode me ajudar?
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 30/11/2005 16:49 hs         
            For i = 0 To mdiADVANCED.Controls.Count - 1 'corre os controles do MDI
              If TypeOf mdiADVANCED.Controls(i) Is Menu Then 'e verifica quais são menus
                If vgInd = Val(mdiADVANCED.Controls(i).Tag) Then 'e se é o mesmo do arquivo
                  vgOk = True                                    'achou...
                  Exit For
                End If
              End If
            Next
 
     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 30/11/2005 16:55 hs            
martini nao entendi essa parte 
"e se é o mesmo do arquivo", o que vc quis dizer com isso?, e como pego o name das opcoes que estao no menu.?
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 30/11/2005 17:05 hs         
é o id do menu que eu gravo na tabela para verificar o grupo tem acesso aquele menu, por isso eu faço o teste se é o mesmo menu ... este "for" está dentro de um while da tabela de permissões dos grupos de usuários e a variável vgInd é carrega antes do for, para cada linha da tabela
     
Alexandre C.G
Pontos: 2843 Pontos: 2843
PATOS DE MINAS
MG - BRASIL
Postada em 30/11/2005 17:09 hs            
esse id seria a propriedade index do menu? la no menu tem uma propriedade chamada index, é o conteudo dela?
     
Martini
Pontos: 2843 Pontos: 2843
PAROBÉ
RS - BRASIL
Postada em 01/12/2005 06:10 hs         
não, é um id que eu dou para cada menu e grava esse id no banco de dados
     
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página