| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 533 人关注过本帖
标题:请教高位行家:vfp9权威一书中一例题,有一句代码“ON BAR 1 OF 菜单2 ME ...
取消只看楼主 加入收藏
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1540
专家分:180
注 册:2006-6-3
结帖率:79.38%
收藏
已结贴  问题点数:20 回复次数:1 
请教高位行家:vfp9权威一书中一例题,有一句代码“ON BAR 1 OF 菜单2 MESSAGEBOX("你好!")”是何意思?程序执
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE MENU MyMenu BAR     &&建立菜单
DEFINE PAD FileMenu OF MyMenu PROMPT "菜单标题(\<F)";
    KEY ALT+F,""
ON PAD FileMenu OF MyMenu ACTIVATE POPUP 菜单1

DEFINE POPUP 菜单1         &&可以将该语句替换为下列语句重新查看执行效果
* DEFINE POPUP 菜单1 MARGIN
DEFINE BAR 1 OF 菜单1 PROMPT "我的菜单项1"
DEFINE BAR 2 OF 菜单1 PROMPT "我的菜单项1"
DEFINE BAR 3 OF 菜单1 PROMPT "我的菜单项1" MRU
ON BAR 1 OF 菜单1 ACTIVATE POPUP 菜单2

DEFINE POPUP 菜单2
DEFINE BAR 1 OF 菜单2 PROMPT "我的子菜单项"
ON BAR 1 OF 菜单2   MESSAGEBOX("你好!")    &&表示何意思?程序执行没有动静?

ACTIVATE MENU MyMenu NOWAIT
SET MARK OF BAR 1 OF 菜单1 TO .T. &&为“我的菜单项1”添加标记

[ 本帖最后由 sylknb 于 2012-12-10 17:07 编辑 ]
搜索更多相关主题的帖子: 菜单 
2012-12-10 16:55
sylknb
Rank: 4
等 级:贵宾
威 望:14
帖 子:1540
专家分:180
注 册:2006-6-3
收藏
得分:0 
正因为没有出现"你好!",所以才来请教各位
2012-12-10 20:57
快速回复:请教高位行家:vfp9权威一书中一例题,有一句代码“ON BAR 1 OF 菜单2 ...
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.032900 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved