PERCORRER MENU
Olá amigos!
No VB6, num MDIForm, existe a possibilidade de percorrer TODOS os menus através de um FOR NEXT?
Um abraço
No VB6, num MDIForm, existe a possibilidade de percorrer TODOS os menus através de um FOR NEXT?
Um abraço
USA FOR EACH:
For Each ctl In seumdi.Controls
If TypeOf ctl Is Menu Then
bla bla bla...
End If
Next
eu coloco no activate do mdi para controle de acesso de usuários.
For Each ctl In seumdi.Controls
If TypeOf ctl Is Menu Then
bla bla bla...
End If
Next
eu coloco no activate do mdi para controle de acesso de usuários.
Vê se isso resolve o seu problema:
Dim intCont As Integer
Dim strMenu As String
strMenu = [Ô][Ô]
For intCont = 0 To Controls.Count - 1
If TypeOf Controls(intCont) Is Menu Then
strMenu = strMenu + Controls(intCont).Name + vbCrLf
End If
Next intCont
MsgBox strMenu
Dim intCont As Integer
Dim strMenu As String
strMenu = [Ô][Ô]
For intCont = 0 To Controls.Count - 1
If TypeOf Controls(intCont) Is Menu Then
strMenu = strMenu + Controls(intCont).Name + vbCrLf
End If
Next intCont
MsgBox strMenu
Desculpa eu abri o tópico e demorei a responder nem tinha visto que ja tinham respondido
foi mal...
foi mal...
OBRIGADO A TODOS
REDUZI O MEU CÓDIGO EM 1500%.
REDUZI O MEU CÓDIGO EM 1500%.
Tópico encerrado , respostas não são mais permitidas