• Sábado 18 de Mayo de 2024, 18:09

Autor Tema:  Obtener Los Nombres De Los Menús  (Leído 1202 veces)

Widark

  • Miembro MUY activo
  • ***
  • Mensajes: 246
    • Ver Perfil
Obtener Los Nombres De Los Menús
« en: Jueves 7 de Abril de 2005, 21:47 »
0
Buena Tarde (aunque para algun@s no lo sea)

Quiero saber como puedo recorrer el menu del formulario pricipal mdi y llenar un combo, con sus respectivos nombres.

Muchas gracias, por la atencion prestada.
[:], Yo si se lo que es trabajar duro, por que lo he visto.
http]
programacion,c,c++,
C#,java,linux,videojuegos,
directX,.NET,allegro,asm,codigo
NoSolocodigo --> Blog de Articulos

Widark

  • Miembro MUY activo
  • ***
  • Mensajes: 246
    • Ver Perfil
Re: Obtener Los Nombres De Los Menús
« Respuesta #1 en: Jueves 7 de Abril de 2005, 22:33 »
0
No hay problema, ya lo hize. Que pena con ustedes, disculparán mi lentitud mental para solucionarlo, la proxima vez aguantare un poco más.

El codigo es el siguiente (que facil, que gueb :unsure: )
  Dim Menus As Control
  For Each Menus In fmdPrincipal.Controls
    If Left(Menus.Name, 3) = "mnu" Then
      Combo1.AddItem Menus.Name
    End If
  Next

Dios mio, perdoname esta y las siguientes...
[:], Yo si se lo que es trabajar duro, por que lo he visto.
http]
programacion,c,c++,
C#,java,linux,videojuegos,
directX,.NET,allegro,asm,codigo
NoSolocodigo --> Blog de Articulos

Cyclop

  • Miembro MUY activo
  • ***
  • Mensajes: 323
    • Ver Perfil
    • http://www.geocities.com/icotext/spanish/
Re: Obtener Los Nombres De Los Menús
« Respuesta #2 en: Jueves 7 de Abril de 2005, 22:43 »
0
Tienes que recorrer los controles

Código: Text
  1. For n=1 To Me.ControlCount
  2.      If Me.Control(n).Name = "Menu" Then
  3.         MsgBox("Es un Menu")
  4.      EndIf
  5. Next
  6.  
  7.  

Salu2

Cyclopz
Icotext Evolution v0.5 para los amantes del ASCII Art
http]