Listar Menus

[ssccaann43 ©]

Sencillo, deseo listar en un ListBox o en un ListView el menu que contenga un formulario. Pero que sea algo automatico, ya que si modifico el menu o agrego un item, que me los liste todos. Agradezco si alguien sabe como hacerlo.

Saludos.

[LeandroA]

Hola fijate asi

Código [Seleccionar] Expandir

Option Explicit

Private Sub Form_Load()
ListarMenu Me, List1
End Sub

Private Sub ListarMenu(Frm As Form, List As ListBox)
    Dim ctrl As Control
    For Each ctrl In Frm.Controls
        If TypeName(ctrl) = "Menu" Then
            List.AddItem ctrl.Name
        End If
    Next
End Sub

saludos

[seba123neo]

Hola ssccaann43, aca tenes una forma para listar los menues de una aplicación y tambien puede ser externa...

Obtener estructura de un menú

saludos.

[ssccaann43 ©]

Che, gracias...