标题:更改VFP菜单的背景色
只看楼主
gs2536785678
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:45
帖 子:565
专家分:1668
注 册:2017-7-16
结帖率:100%
 问题点数:0 回复次数:1 
更改VFP菜单的背景色
更改VFP菜单背景颜色  
上网看了很多的关于VFP的资料,对于配色方案,仅仅是寥寥数语,没有更深刻的解释。昨天在书店买了本书,仅有一个例子,更改快捷菜单颜色的。仔细琢磨了一下,有以下体会:  
    对于VFP的菜单,如果用按照向导来建立的话,只能更改其中子项的文字大小,不能更改颜色
只有自己做出一个PRG程序,才能更改文字大小以及子项的颜色
其中要用到关键语句:
*!*    指定菜单失效子项,有效子项的前景色与背景色
set color of scheme 4 to rgb(0,0,0,83,169,255),rgb(250,0,0,165,215,240)
*!*    更改菜单子项的前景色与背景色
SET COLOR OF SCHEME 2 TO SCHEME 1

具体方法如下:
第一步,使用菜单设计器,向导方式创建一个菜单,
在创建结束以后,执行[菜单]→[生成],可以获得一个以 .MPR 为扩展名的菜单程序。
第二步,在VFP的命令窗口中,写入如下的代码
MODIFY  COMM  菜单1.MPR
执行之,将打开刚才的菜单程序,把它另存,另存为 菜单1.PRG
第三步,双击,重新打开 菜单1.PRG
开头 添加三句话
*!*    指定菜单失效项,有效项的前景色与背景色
set color of scheme 4 to rgb(0,0,0,83,169,255),rgb(250,0,0,165,215,240)
*!*    更改菜单子项的前景色与背景色
SET COLOR OF SCHEME 2 TO SCHEME 1
DEFINE MENU YSMENU  IN SCREEN
中间,所有的 _MSYSMENU 替换为 YSMENU
最后,添加一句话 ACTIVATE MENU YSMENU


*下面是完整的PRG程序例子
*_MSYSMENU系统菜单名,通过向导创建时默认
*!*    指定菜单失效项,有效项的前景色与背景色
set color of scheme 4 to rgb(0,0,0,83,169,255),rgb(250,0,0,165,215,240)
*!*    更改菜单子项的前景色与背景色
SET COLOR OF SCHEME 2 TO SCHEME 1
DEFINE MENU YSMENU  IN SCREEN

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _57m0wkhwo OF YSMENU PROMPT "文件" COLOR SCHEME 3 FONT "宋体",14
DEFINE PAD _57m0wkhwp OF YSMENU PROMPT "编辑" COLOR SCHEME 3 FONT "宋体",14
ON PAD _57m0wkhwo OF YSMENU ACTIVATE POPUP 文件
ON PAD _57m0wkhwp OF YSMENU ACTIVATE POPUP 编辑

DEFINE POPUP 文件 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 文件 PROMPT "新建" FONT "宋体",14
DEFINE BAR 2 OF 文件 PROMPT "打开" FONT "宋体",14
DEFINE BAR 3 OF 文件 PROMPT "退出" FONT "宋体",14
ON SELECTION BAR 1 OF 文件 ?"NEW"
ON SELECTION BAR 2 OF 文件 ?"OPEN"
ON SELECTION BAR 3 OF 文件 QUIT

DEFINE POPUP 编辑 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 编辑 PROMPT "剪切" FONT "宋体",14
DEFINE BAR 2 OF 编辑 PROMPT "复制" FONT "宋体",14
ON SELECTION BAR 1 OF 编辑 messagebox("OK")
ON SELECTION BAR 2 OF 编辑 messagebox("AA")


ACTIVATE MENU YSMENU   
搜索更多相关主题的帖子: 更改 菜单 color DEFINE BAR 
2018-05-28 16:04
gs2536785678
Rank: 10Rank: 10Rank: 10
等 级:贵宾
威 望:45
帖 子:565
专家分:1668
注 册:2017-7-16
得分:0 
看看效果

2018-05-29 14:21



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-487359-1-1.html




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

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