getpad( ) 函数示例

下面的示例用 getpad( ) 函数测试“编辑”菜单名是否在 visual foxpro 的系统菜单栏上。如果在，getpad( ) 函数返回该菜单名(要把“编辑”菜单栏还原为默认状态，可执行 se sysmenu to default 命令)。

for gncount = 1 to cntpad('_msysmenu') && 菜单的数目
if prmpad('_msysmenu', getpad('_msysmenu', gncount)) = 'edit'
release pad (getpad('_msysmenu', gncount)) of _msysmenu
exit
endif
endfor