Ayuda con menus

[mjcc]

alguno de vosotros puede enviarme un ejemplo de como crear un menu de la siguiente forma por favor
* En la parte inferior por ejemplo
opcion 1
opcion 2
opcion 3
* De cada una de las opciones (1-2-3) al realizar un click que me abra otro menu por ejemplo
opcion 1
opcion 1a
opcion 2b
opcion 2
opcion 3

[Antonio Linares]

Revisa este post para entender como se definen los menus:

http://fivetechsoft.com/forums/viewtopic.php?t=4857

[mjcc]

Este no me sirve, necesitaba un ejemplo de un menu como en de una aplicacion de PC. Por ejemplo maestros y que me abra otro menu (clientes,proveedores, articulos), dentro de articulos por ejemplo que me abra (añadir, modificar, eliminar, etc)


gracias.

[Antonio Linares]

Aqui tienes el ejemplo que comentas, hecho
testmnu2.prg:

Code: Select all

#include "FWCE.ch"

function Main()

   local oWnd

   DEFINE WINDOW oWnd TITLE "TestMenu" ;
      MENU BuildMenu()

   ACTIVATE WINDOW oWnd ;
      ON CLICK MsgInfo( "Click!" )
      
return nil

function BuildMenu()

   local oMenu
   
   DEFINE MENU oMenu RESOURCE 102

   REDEFINE MENUITEM ID 110 OF oMenu ACTION MsgInfo( "Clientes" )

   REDEFINE MENUITEM ID 120 OF oMenu ACTION MsgInfo( "Proveedores" )
   
   REDEFINE MENUITEM ID 1310 OF oMenu ACTION MsgInfo( "Añadir" )

   REDEFINE MENUITEM ID 1320 OF oMenu ACTION MsgInfo( "Modificar" )

   REDEFINE MENUITEM ID 210 OF oMenu ACTION MsgInfo( "Albaranes" )

   REDEFINE MENUITEM ID 310 OF oMenu ACTION MsgInfo( "Manual" )

return oMenu

TestMnu2.rc:

Code: Select all

#ifdef _CE
   #include "c:\vce\include\arm\windows.h"
   #include "c:\vce\include\arm\commctrl.h"
#endif

#define I_IMAGENONE		(-2)

#ifdef _CE
102 RCDATA
BEGIN
  102, 3,
  I_IMAGENONE, 100, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 100, 0, 0,  
  I_IMAGENONE, 200, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 200, 0, 1,  
  I_IMAGENONE, 300, TBSTATE_ENABLED, TBSTYLE_DROPDOWN | TBSTYLE_AUTOSIZE, 300, 0, 2  
END
#endif

STRINGTABLE DISCARDABLE 
BEGIN
   100 "Maestros"
   200 "Varios"
   300 "Ayuda"
END

102 MENU DISCARDABLE 
BEGIN
    POPUP ""
    BEGIN
        MENUITEM "Clientes",    110
        MENUITEM "Proveedores", 120
        POPUP "Artículos"
        BEGIN
           MENUITEM "Añadir",    1310
           MENUITEM "Modificar", 1320
           MENUITEM "Eliminar",  1330
        END
    END

    POPUP ""
    BEGIN
        MENUITEM "Albaranes", 210
        MENUITEM "Facturas", 220
    END

    POPUP ""
    BEGIN
        MENUITEM "Manual", 310
        MENUITEM SEPARATOR
        MENUITEM "Acerca de...", 320
    END
END

Así queda:

[mjcc]

GRACIAS.