Question

vfp表单中设置菜单不可用 怎么操作

Answer 1

请参阅 set skip of

SET SKIP OF MENU MenuBarName1 lExpression1

SET SKIP OF PAD MenuTitleName OF MenuBarName2 lExpression2

SET SKIP OF POPUP MenuName1 lExpression3

SET SKIP OF BAR nMenuItemNumber | SystemItemName OF MenuName2
lExpression4

参数
MENU MenuBarName1lExpression1

允许或禁止 Visual FoxPro 系统菜单栏或由 DEFINE MENU 创建的用户自定义菜单栏。例如，Visual FoxPro 系统菜单栏 _MSYSMENU 可以通过这个命令废止： 复制代码
SET SKIP OF MENU _MSYSMENU .T.

它可以通过这个命令激活： 复制代码
SET SKIP OF MENU _MSYSMENU .F.

PAD MenuTitleNameOF MenuBarName2lExpression2

允许或禁止 Visual FoxPro 系统菜单标题或由 DEFINE PAD 创建的用户自定义菜单标题。例如，Visual FoxPro 的编辑菜单(Edit)标题可以通过这个命令废止： 复制代码
SET SKIP OF PAD _MSM_EDIT OF _MSYSMENU .T.

该菜单标题可以通过这条命令激活： 复制代码
SET SKIP OF PAD _MSM_EDIT OF _MSYSMENU .F.

POPUP MenuName1lExpression3

允许或禁止 Visual FoxPro 系统菜单或由 DEFINE POPUP 创建的用户自定义菜单。例如，Visual FoxPro 的编辑菜单(Edit)可以通过这条命令废止： 复制代码
SET SKIP OF POPUP _MEDIT .T.

该菜单可以通过这条命令激活： 复制代码
SET SKIP OF POPUP _MEDIT .F.

BAR nMenuItemNumber| SystemItemNameOF MenuName2lExpression4

允许或禁止 Visual FoxPro 系统菜单上的菜单项，或由 DEFINE BAR 创建的用户自定义菜单项。例如，Visual FoxPro 的文件菜单上的新建(New)命令可以通过这条命令废止： 复制代码
SET SKIP OF BAR _MFI_NEW OF _MFILE .T.

其中 SystemItemName 指定了菜单命令 _MFI_NEW，MenuName2 指定了菜单 _MFILE，lExpression4 指定了逻辑表达式 .T.。该菜单命令可以通过这条命令激活： 复制代码
SET SKIP OF BAR _MFI_NEW OF _MFILE .F.

使用 nMenuItemNumber 来指定由 DEFINE BAR 创建的菜单项。

Answer 2

在菜单设计器窗口中有一项“选项”，点开后里面有一项“跳过”栏，在那里输入你的条件，当条件为真时，该栏跳过。