GETBAR() 函 数

返回用 DEFINE POPUP 命令定义的菜单或 Visual FoxPro 系统菜单上某个菜单项的编号

语 法

GETBAR ( MenuItemName , nMenuPosition )

返 值 类 型

数值型

参 数 描 述

MenuItemName

指 定 菜 单 项

nMenuPosition

指 定 菜 单 上 的 某 一 位 置 nMenuPosition 取 值 范 围 为 1 到 菜 单 中 菜 单 项 的 数目 1 与 菜 单 中 的 第 一 个 菜 单 项 相 对 应 而 2 与 第 二 个 菜 单 项 相 对 应 依 此类 推

说 明

使用 GETBAR() 函数可以确定菜单特定位置上的菜单项 当在菜单中添加 删除或重新安排菜单项时 此函数很有用 使用 DEFINE BAR 命令可以向菜单中添加菜单项用 RELEASE BAR 命令可从菜单中删除菜单项 用 DEFINE POPUP 命令创建菜单

时 如果包含 MOVER 子句 则可以更改菜单项在菜单中的位置

示 例

以下 示例 创建了一个名为 popDemo 的菜单 包含 MOVER 关键字是为了使菜单中的数据项可以重新组织 有关重新组织菜单项的内容 请参阅稍前部分的语言参考

DEFINE POPUP 命 令 中 的 MOVER 子句

激活菜单 使用一系列 GETBAR() 函数以返回每个菜单的标题 在重新组织了菜单项之后 按下 CTRL+Z 键以显示新的菜单顺序

CLEAR

ON KEY LABEL CTRL+Z DO showorder

WAIT WINDOW "Press CTRL+Z to refresh." NOWAIT

DEFINE POPUP popDemo MOVER FROM 2,2 DEFINE BAR 1 OF popDemo PROMPT 'One' DEFINE BAR 2 OF popDemo PROMPT 'Two'

DEFINE BAR 3 OF popDemo PROMPT 'Three' DEFINE BAR 4 OF popDemo PROMPT 'Four'

DO showorder

ACTIVATE POPUP popDemo

PROCEDURE showorder CLEAR

@ 3,12 SAY '1 ' + PRMBAR('popDemo', GETBAR ('popDemo',1 ) ) @ 4,12 SAY '2 ' + PRMBAR('popDemo', GETBAR ('popDemo',2 ) ) @ 5,12 SAY '3 ' + PRMBAR('popDemo', GETBAR ('popDemo',3 ) ) @ 6,12 SAY '4 ' + PRMBAR('popDemo', GETBAR ('popDemo',4 ) ) RETURN

请 参 阅

DEFINE BAR, DEFINE POPUP, RELEASE BAR