Página 1 de 1

Cargar opciones de TMenu

Publicado: Mar Abr 22, 2008 6:41 pm
por Guillermo Guevara Car
Utilizo el Método FormShow() para mostrar a través de un MsgInfo() las
opciones del menú del ejemplo anexo MENU.JPG, sin embargo solo me muestra
las opciones del menu horizontal que son:
Archivo
Edición
Ver
METHOD FormShow( oSender ) CLASS Menu
Local l_oItem := ::oMenu1:aItems
Local l_nItr := 1
Local l_cItem := ''
For l_nItr := 1 to Len(l_oItem)
l_cItem := l_oItem[l_nItr]:cText
MsgInfo(l_cItem)
Next
RETURN NIL
La duda es:
Como hacerle para mostrar con el MsgInfo() las opciones que pertenecen a
Archivo que son:
Nuevo
Abrir
Salir
Saludos:
Ing. Guillermo Guevara Carrillo


Attached files

Cargar opciones de TMenu

Publicado: Jue Abr 24, 2008 1:19 pm
por Guillermo Guevara Car
Toc, Toc, Toc...
Hay alguien en casa
Guillermo Guevara Carrillo
> Utilizo el Método FormShow() para mostrar a través de un MsgInfo() las
> opciones del menú del ejemplo anexo MENU.JPG, sin embargo solo me muestra
> las opciones del menu horizontal que son:
>
> Archivo
> Edición
> Ver
>
> METHOD FormShow( oSender ) CLASS Menu
> Local l_oItem := ::oMenu1:aItems
> Local l_nItr := 1
> Local l_cItem := ''
> For l_nItr := 1 to Len(l_oItem)
> l_cItem := l_oItem[l_nItr]:cText
> MsgInfo(l_cItem)
> Next
> RETURN NIL
>
> La duda es:
>
> Como hacerle para mostrar con el MsgInfo() las opciones que pertenecen a
> Archivo que son:
>
> Nuevo
> Abrir
> Salir
>
> Saludos:
>
> Ing. Guillermo Guevara Carrillo