activate menu 命令 _生活百科

activate menu 命令【activate menu 命令】activate menu 命令显示并激活一个选单栏。
语法ACTIVATE MENU MenuBarName[NOWAIT][PAD MenuTitleName]参数MenuBarName指定要激活的选单栏的名称。NOWAIT指定在程式执行时，不等待用户在已激活选单栏中选择选单或按 ESC 键，而是继续执行程式。发出 deactivate menu 命令后，如果选单是用 NOWAIT 选项激活的，则程式的执行不返回到 ACTIVATEMENU 命令的下一行命令。PAD MenuTitleName指定一个选单标题名，当激活选单栏时，选中此选单标题名。如果不指定选单标题名，选单栏激活后，默认激活第一个选单标题名。说明该命令显示并且激活 MenuBarName 指定的选单栏，需要结合 DEFINE MENU 和 DEFINE PAD 命令使用。提示当应用程式中包含 Visual FoxPro 系统选单栏 (_MSYSMENU) 时，不需激活此选单，而是执行 SET SYSMENU AUTOMATIC 命令。activatemenu命令示例下面的示例用 activate menu 命令显示并激活一个用户定义的选单系统。当前系统选单栏先用 set sysmenu save 命令保存在记忆体中，然后用 set sysmenu to 命令删除所有系统选单标题。用 define pad 命令创建两个选单标题，并且用 define popup 为每个选单标题创建下拉式选单，然后用 define bar 命令在每个选单上创建选单项。当选中某个选单标题后，on pad 命令使用 activate popup 子句激活相应选单。activate menu 命令显示并激活这个选中的选单栏。选择选单中的某选单项后，开始执行 choice 过程，choice 过程显示了选择的选单项名和包含此项的选单名。*** 此程式名为 actimenu.prg***clearset sysmenu saveset sysmenu toon key label esc keyboard chr(13)define menu example bar at line 1define pad convpad of example prompt '\<conversions' color scheme 3 ; key alt+c, ''define pad cardpad of example prompt 'card \<info' color scheme 3 ; key alt+i, ''on pad convpad of example activate popup conversionon pad cardpad of example activate popup cardinfodefine popup conversion margin relative color scheme 4define bar 1 of conversion prompt 'ar\<ea' ; key ctrl+e, '^e'define bar 2 of conversion prompt '\<length' ; key ctrl+l, '^l'define bar 3 of conversion prompt 'ma\<ss' ; key ctrl+s, '^s'define bar 4 of conversion prompt 'spee\<d' ; key ctrl+d, '^d'define bar 5 of conversion prompt '\<temperature' ; key ctrl+t, '^t'define bar 6 of conversion prompt 't\<ime' ; key ctrl+i, '^i'define bar 7 of conversion prompt 'volu\<me' ; key ctrl+m, '^m'on selection popup conversion do choice in actimenu; with prompt( ), popup( )define popup cardinfo margin relative color scheme 4define bar 1 of cardinfo prompt '\<view charges' ; key alt+v, ''define bar 2 of cardinfo prompt 'view \<payments' ; key alt+p, ''define bar 3 of cardinfo prompt 'vie\<w users' ; key alt+w, ''define bar 4 of cardinfo prompt '\-'define bar 5 of cardinfo prompt '\<charges ' ; key alt+c, ''on selection popup cardinfo; do choice in actimenu with prompt( ), popup( )activate menu exampledeactivate menu examplerelease menu example extendedset sysmenu to defaulton key label escprocedure choiceparameters mprompt, mpopupwait window 'you chose ' + mprompt + ' from popup ' + mpopup nowait