2013-06-19 07:56

' Menu Shortcut
' by: Guidance <http://g.slyip.com> 2003-3-15
     SUB onmenufileexit
      application.terminate
      END
     END SUB
     CREATE form AS QFORM
      CREATE mainmenu AS QMAINMENU
       CREATE menufile AS QMENUITEM
        CAPTION="&File"
        CREATE Separator AS QMENUITEM
         CAPTION = "-"
        END CREATE
        CREATE menufiletest1 AS QMENUITEM
         CAPTION="Test&1"
         shortcut="BkSp" 'Backspace
         onclick=onmenufileexit
        END CREATE
        CREATE menufileexit AS QMENUITEM
         CAPTION="退出(&X)" ' Chinese is also OK
         shortcut="Alt+X" 'Must use "+" (not "-"), and "Ctrl" for key Ctrl
         onclick=onmenufileexit
        END CREATE
       END CREATE
      END CREATE
     END CREATE
     form.SHOWMODAL

2013-06-19 07:56