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,
 RMI
|
|
|
|
|
|
Croda
|
OSASCO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/08/2006 23:56 hs
|
|
|
|
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...
RMI
|
|
|
|
|
|
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!!!
RMI
|
|
|
|
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 |
|
|
|
