P A D 函 数

以大写字符串形式返回在某菜单栏中最近选取的菜单标题 或者返回一个逻辑值 表明一个活动菜单栏是否定义了菜单标题

语 法

PAD([ cMenuTitle [, cMenuBarNam e ]])

返 值 类 型

字符型 或 逻辑值 型

参 数 描 述

cMenuTitle

指 定 菜 单 栏 中 菜 单 标 题 的 名 称 包 含 这 个 参 数 可 以 检 测 一 个 活 动 菜 单 栏 是否 定 义 了 菜 单 标 题 如 果 定 义 了 菜 单 标 题 则 返 回 真 ( .T .) 否 则 返 回

假 (.F.)

cMenuBarName

指 定 菜 单 栏 的 名 称 该 菜 单 栏 包 含 菜 单 标 题 cMenuTitle 如 果 省 略

cMenuBarName 则 假 设 菜 单 标 题 位 于 当 前 活 动 菜 单 栏 中

说 明

为使 PAD 函数返回一个菜单标题 必须定义且激活一个菜单栏 可以使用

DEFINE MENU 和 ACTIVATE MENU 命令创建和激活菜单栏

PAD 函 数 也 可 以 应 用 于 Visual FoxPro 的 系 统 菜 单 栏

如果没有定义并激活一个菜单栏或者在命令窗口中使用 PAD 函数 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

请 参 阅

ACTIVATE MENU , B AR , DEFINE PAD, DEFINE MENU, MENU , ON PAD, ON SELECTION PAD, PROMPT