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

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Desabilitar -> For Each ctrl In mdiTELAP.Controls
RMI@
CAMPO BELO
MG - BRASIL
ENUNCIADA !
Postada em 14/08/2006 22:10 hs            
Olá, com o código abaixo consigo pegar todos os menus da tela principal (mditelap)
Porém, preciso desabilitar alguns. Mas se eu coloco ctrl.DESABLED dá erro. Como faço para desativar os itens?
 
         For Each ctrl In mdiTELAP.Controls
            If TypeOf ctrl Is Menu Then
                     ' desabilitar aqui!!!
            End If
         Next ctrl
Obrigado,
 

EmoçõesRMI
   
Croda
OSASCO
SP - BRASIL
ENUNCIADA !
Postada em 14/08/2006 23:56 hs         
Qual a mensagem de erro?
   
RMI@
CAMPO BELO
MG - BRASIL
Postada em 15/08/2006 08:57 hs            
Run-time error "387":
 
"Enabled" property can't be set on this control.
 
O formulário é mdi...

EmoçõesRMI
     
kerplunk
Pontos: 2843 Pontos: 2843 Pontos: 2843
SÃO PAULO
SP - BRASIL
Postada em 15/08/2006 09:09 hs         
tenta assim:
         For Each ctrl In mdiTELAP.Controls
            If TypeOf ctrl Is Menu Then
                    ctrl.enabled = false
            End If
         Next ctrl
     
RMI@
CAMPO BELO
MG - BRASIL
ENUNCIADA !
Postada em 15/08/2006 09:41 hs            
Pessoal, o erro ocorre justamente quando coloco ctrl.enabled=false
Mas consegui uma alternativa que deu certo, segue o código.
 
a variável: vpsMELIU contém os nomes dos menus liberados para o usuário, separados por ;
       '  MENUS DE ACESSO
         If vpsTUSER <> "A" Then
            Dim rmiPOSIC As Double
            '  SOMA O TOTAL DE MENUS
            Dim rmiTMENU As Double
            rmiTMENU = 0
            For Each ctrl In mdiTELAP.Controls
               If TypeOf ctrl Is Menu Then
                  rmiTMENU = rmiTMENU + 1
               End If
            Next ctrl
            Dim rmiMENUP() As String
            ReDim Preserve rmiMENUP(rmiTMENU) As String
            rmiTMENU = 0
            For Each ctrl In mdiTELAP.Controls
               If TypeOf ctrl Is Menu Then
                  rmiTMENU = rmiTMENU + 1
                  rmiPOSIC = InStr(vpsMELIU, ctrl.Name)
                  If rmiPOSIC = 0 Then          '  O MENU NÃO ESTÁ LIBERADO PARA O USUÁRIO
                     rmiMENUP(rmiTMENU) = ctrl.Name
                     mdiTELAP(rmiMENUP(rmiTMENU)).Enabled = False
                  End If
               End If
            Next ctrl
         End If
Obrigado a todos!!!

EmoçõesRMI
   
Renato Tavares
não registrado
ENUNCIADA !
Postada em 05/06/2007 12:22 hs   
Como colocar todos os menus do form md1 em um lisbox e colocar a caixa de verificação em cada menu dentro do lisbox, por exemplo?
 
[[ ]]' e muito obrigado
 
Renato
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



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