pad( ) 函数示例

本示例应用 pad( ) 函数向一个过程传送菜单标题。

用 set sysmenu save 命令把当前 visual foxpro 系统菜单栏保存在内存中，并且用 set sysmenu to 命令删除所有系统菜单标题。一些系统菜单标题是用 define pad 命令创建的。当选择了一个菜单标题时，用pad( ) 函数把菜单标题传给名为 choice 的过程，choice 显示所选的菜单标题及菜单栏的名字。如果选择了“退出”菜单标题，则还原原始的 visual foxpro 系统菜单。

*** 此程序名为 padexam.prg ***
clear
set sysmenu save
set sysmenu to
define pad padsys of _msysmenu prompt '\<system' color scheme 3 ;
key alt+s, ''
define pad padedit of _msysmenu prompt '\<edit' color scheme 3 ;
key alt+e, ''
define pad padrecord of _msysmenu prompt '\<record' color scheme 3 ;
key alt+r, ''
define pad padwindow of _msysmenu prompt '\<window' color scheme 3 ;
key alt+w, ''
define pad padreport of _msysmenu prompt 're\<ports' color scheme 3 ;
key alt+p, ''
define pad padexit of _msysmenu prompt 'e\<xit' color scheme 3 ;
key alt+x, ''
on selection menu _msysmenu ;
do choice in padexam with pad( ), menu( )
procedure choice
parameters gcpad, gcmenu
wait window 'you chose ' + gcpad + ;
' from menu ' + gcmenu nowait
if gcpad = 'padexit'
set sysmenu to default
endif