Márcio
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 14/08/2006 11:07 hs
Como faço um for each para pegar os nomes de todos os menus do meu formulátio. Preciso disso para colocar as permissões no sistema. |
|
|
|
|
|
RMI@
|
CAMPO BELO
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 14/08/2006 21:46 hs
Olá, tente assim: For Each ctrl In formulario.Controls
If TypeOf ctrl Is Menu Then
msgbox ctrl.Name & " -> " & ctrl.Caption
End If
Next ctrl
 RMI
|
|
|
|
Márcio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 15/08/2006 07:30 hs
Ok, mas como declaro a variável ctrl ? Eu tentei como Controls mas deu erro. Obrigado. |
|
|
|
|
|
Postada em 15/08/2006 10:45 hs
Tenta assim: Dim ctrl as Control t+ |
|
|
|
