一个关于右键弹出式菜单的问题,高手们帮个忙,急急急。。。。。。

xymsgw 2004-05-08 12:11:35
问题是,如何写代码才能将右键菜单中的选项,显示灰色不可用,就好像enabled=.f.一样。

小弟就是想,不同身份的用户进入软件后,右键菜单中的选项可用性是不同的,从而达到不同权限的功能。

十分感谢,
...全文
65 8 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
cdbqss1 2004-05-11
  • 打赏
  • 举报
回复
对,同楼上的做法差不多。
如果将全局变量showwhat1,showwhat2等改为数组,并与权限控制联系起来,就更加实用。
magnetmoon 2004-05-10
  • 打赏
  • 举报
回复
關鍵是定義菜單時要有下面一句 ... SKIP FOR showwhat1
DEFINE BAR 1 OF shortcut PROMPT "加到我的最愛(\<A)..." SKIP FOR showwhat1
然后對變量showwhat1賦不同的值就可以了


form1.init()

public showwhat1,showwhat2
DEFINE POPUP shortcut SHORTCUT RELATIVE FROM MROW(),MCOL()
DEFINE BAR 1 OF shortcut PROMPT "加到我的最愛(\<A)..." SKIP FOR showwhat1
DEFINE BAR 2 OF shortcut PROMPT "\-"
DEFINE BAR 3 OF shortcut PROMPT "從我的最愛中移除(\<D)..." SKIP FOR showwhat2

ON SELECTION BAR 1 OF shortcut messagebox('1')
ON SELECTION BAR 3 OF shortcut messagebox('3')

*ACTIVATE POPUP shortcut

form1.rightclick()

showwhat1=.f.
showwhat2=.t.
ACTIVATE POPUP shortcut at MROW(),MCOL()
cdbqss1 2004-05-09
  • 打赏
  • 举报
回复
同意楼上意见。
具体而言,实现步骤是:
第一步:是根据菜单项的多少,定义一个逻辑型的数组;
第二步:根据用户权限,设置数组的值;
第三步:在定义菜单时,使用set skip of 命令。
yanzhigang 2004-05-09
  • 打赏
  • 举报
回复
UP
xymsgw 2004-05-09
  • 打赏
  • 举报
回复
还是不很明白,能不能更具体点,十分感谢。能说明一下原理吗?
wwle 2004-05-08
  • 打赏
  • 举报
回复
你对应每个右建菜单选项:对应一个数组的每个成员(逻辑值) 不可用置为真!就行了。
当然更具没个用户,对数组元素进行操作 =.t. 或 =.f.
coolyylu 2004-05-08
  • 打赏
  • 举报
回复

SET SKIP OF BAR 1 OF popEdit nUserLevel > 2
xymsgw 2004-05-08
  • 打赏
  • 举报
回复
up

2,748

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧