MENU CRIADO EM VB6
Alguem sabe se existe algum metodo que percorra em um form todos os menus existentes no form e liste pra mim esses menus? Agradeço.
Bom dia AMELORP
Não conheço nenhum método pra isso.
Posso indicar um jeito [ô]alternativo[ô] ... meio que gambiarra.
Você pode renomear todos os menus, para inicializar com o prefixo [Ô]mnu[Ô]
E depois percorrer os controles do form e procurar por aqueles que comecem por [Ô]mnu[Ô]
Não conheço nenhum método pra isso.
Posso indicar um jeito [ô]alternativo[ô] ... meio que gambiarra.
Você pode renomear todos os menus, para inicializar com o prefixo [Ô]mnu[Ô]
E depois percorrer os controles do form e procurar por aqueles que comecem por [Ô]mnu[Ô]
Dim Control As Control
For Each Control In Me.Controls
If Left$(Control.Name, 3) = [Ô]mnu[Ô] Then
Debug.Print Control.Name
End If
Next Control
Olá, pegando uma beira no código do nosso amigo Samuka 
Nesse exemplo vc não precisará alterar os nomes dos menus, embora seja altamente recomendado uma nomenclatura padrão para futuras chamadas destes.
Espero ter ajudado. Fique com Deus.
Dim Control As Control
For Each Control In Me.Controls
If TypeName(Control) = [Ô]Menu[Ô] Then
Debug.Print Control.Name
End If
Next Nesse exemplo vc não precisará alterar os nomes dos menus, embora seja altamente recomendado uma nomenclatura padrão para futuras chamadas destes.
Espero ter ajudado. Fique com Deus.
O problema desse código, é que ele irá pegar também a barra separadora.
Tópico encerrado , respostas não são mais permitidas