精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 资源出售

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

█     高 收 益 项 目   █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆高价收购QQ单项双向好友██ 实力公司 长期有效 ██高价收购【全部行业精准粉】进群!
█      耗资巨大     █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆高价收购QQ单项双向好友██ 收收收收 引流软件 ██高价收购【全部行业精准粉】进群!
█      市场最牛     █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆高价收购QQ单项双向好友██ 收收收收 引流脚本 ██高价收购【全部行业精准粉】进群!
█   支 持     日 结   █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆最高价收【wz粉.精准粉】加Q加v██ 收收收收 引流思路 ██高价收购【全部行业精准粉】进群!
█   咨询QQ   880194   █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆最高价收【wz粉.精准粉】加Q加v██ 收收收收 群fa软件 ██高价收购【全部行业精准粉】进群!
█公司实力寻引流高手商务合作█日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆寻有实力的短信群fa通道加Q525253██ 收收收收 精准wz粉 ██高价收购【全部行业精准粉】进群!
█公司实力寻引流高手商务合作█日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆寻有实力的短信群fa通道加Q525253██ 收收收收 精准zy粉 ██高价收购【全部行业精准粉】进群!
█公司实力寻引流高手商务合作█日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆寻有实力的短信群fa通道加Q525253██ 收收收收 引流人才 ██高价收购【全部行业精准粉】进群!
█公司实力寻引流高手商务合作█日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆寻有实力的短信群fa通道加Q525253██ 收收收收 引流方式 ██高价收购【全部行业精准粉】进群!
█公司实力寻引流高手商务合作█日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆寻有实力的短信群fa通道加Q525253██ 收收收收 易语言高手██高价收购【全部行业精准粉】进群!
█ 公司 高价 收 引流 软件 渠道 █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆实力收精准粉大量稳定加Q525253██ 收收收收 软件定制 ██高价收购【全部行业精准粉】进群!
█ 公司 高价 收 引流 软件 渠道 █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆实力收精准粉大量稳定加Q525253██收实力的短信群fa通道██高价收购【全部行业精准粉】进群!
█ 公司 高价 收 引流 软件 渠道 █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆实力收精准粉大量稳定加Q525253██收实力的短信群fa通道██高价收购【全部行业精准粉】进群!
█ 公司 高价 收 引流 软件 渠道 █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆实力收精准粉大量稳定加Q525253██收实力的短信群fa通道██高价收购【全部行业精准粉】进群!
█ 公司 高价 收 引流 软件 渠道 █日吃8000+收一手零转化微信小群粉◆出各类精准流量,来实力团队◆实力收精准粉大量稳定加Q525253██ 加qq群:839661627 ██高价收购【全部行业精准粉】进群!
【-->收群fa软件 Q86573011<--】〓出精准粉 可直推平台Q317738〓◆出各类精准流量,来实力团队◆重金招SEO合作加QQ:525253██ 加qq群:839661627 ██高价收购【全部行业精准粉】进群!
星盟社群无限收精准网赚资源〓出精准粉 可直推平台Q317738〓◆出各类精准流量,来实力团队◆重金招SEO合作加QQ:525253██收实力的短信群fa通道██高价收购【全部行业精准粉】进群!
星盟社群免费帮对接担保交易 《包养+包养+包养》◆出各类精准流量,来实力团队◆重金招SEO合作加QQ:525253██收实力的短信群fa通道██高价收购【全部行业精准粉】进群!
星盟社群欢迎买卖方进群合作 *一手短信大户才加我*◆出各类精准流量,来实力团队◆重金招SEO合作加QQ:525253██收实力的短信群fa通道██高价收购【全部行业精准粉】进群!
星盟社群免费帮对接渠道资源 *短信群fa通道我有*◆出各类精准流量,来实力团队◆重金招SEO合作加QQ:525253██ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
全网最高单价收粉QQ420073—》宝妈、女性、商城《—◆出各类精准流量,来实力团队◆██ 收引流思路加Q525253 ████ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
实力收购各种粉加QQ420073—》宝妈、女性、商城《—◆出各类精准流量,来实力团队◆██ 收引流思路加Q525253 ████ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
收购精准兼职粉加QQ420073—》宝妈、女性、商城《—◆出各类精准流量,来实力团队◆██ 收引流思路加Q525253 ████ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
收购精准网赚粉加QQ420073—》宝妈、女性、商城《—◆出各类精准流量,来实力团队◆██ 收引流思路加Q525253 ████ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
收购软件渠道思路QQ420073—》宝妈、女性、商城《—◆出各类精准流量,来实力团队◆██ 收引流思路加Q525253 ████ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
█ 长期收购各种引流软件 █喜欢玩水军的尽管加我◆出各类精准流量,来实力团队◆无限收交友粉 引流软件 qq7305830██ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
█ 长期大量收购各种活粉 █连测试都不支持小咖别加◆出各类精准流量,来实力团队◆无限收交友粉 引流软件 qq7305830██ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
███收精准粉和引流软件███高薪诚聘流量技术员◆出各类精准流量,来实力团队◆无限收交友粉 引流软件 qq7305830██ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
███收精准粉和引流软件███公司高价收购流量◆出各类精准流量,来实力团队◆收一手高质量男女交友粉+q6563057██ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
█收交友粉 价格美丽 只走担保█大量收一手QQ群发量,空间量◆出各类精准流量,来实力团队◆收一手高质量男女交友粉+q6563057██ 进群找管理 备注引流 ██高价收购【全部行业精准粉】进群!
█收交友粉 价格美丽 只走担保█网吧量、家庭量、插件量◆出各类精准流量,来实力团队◆鼎信社群高价收WZ各类热门资源承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
█收交友粉 价格美丽 只走担保█网吧量、家庭量、插件量◆出各类精准流量,来实力团队◆鼎信社万人对接基地高效出粉收粉承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
█收交友粉 价格美丽 只走担保█短信群fa◆出各类精准流量,来实力团队◆███ 鼎信社群 行业顶尖 ███承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
█★█大量收临过期企业Q粉█★█大量收微信进群粉联系q584121900◆出各类精准流量,来实力团队◆鼎信社群欢迎各类 商人对接入驻承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
长期出QQ群QQ号微信精准粉网挣粉大量出各类精准用户粉,全行业私信◆出各类精准流量,来实力团队◆鼎信社欢迎各类粉商精英对接交流承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
出兼职网赚粉,质量好价格忧█网站统计█I引流系统█I◆出各类精准流量,来实力团队◆◆出各类精准流量,来实力团队◆承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
高价收微信进群活跃男粉出Q群粉及交友资源Q:492544249◆出各类精准流量,来实力团队◆◆出各类精准流量,来实力团队◆承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
高价大量收 大龄 空间量 网赚粉出高质量Q群直播微信小群粉加q吧◆出各类精准流量,来实力团队◆◆出各类精准流量,来实力团队◆承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
实力短信群F通道接各种单Q1890702大量出WZ量联系QQ222561◆出各类精准流量,来实力团队◆◆出各类精准流量,来实力团队◆承接:各种引流软件开发-不限语言高价收购【全部行业精准粉】进群!
收各类APP群 交友群 连信群急急急.大量收宝妈粉+Q481689999◆出各类精准流量,来实力团队◆◆出各类精准流量,来实力团队◆承接:各种引流软件开发-不限语言我要租广告位
查看: 10902|回复: 64
收起左侧

[易源码分享] [分享源码] 【新】用Ex写一个更漂亮的菜单(淡蓝清爽)

  [复制链接]

签到天数:5 天

结帖率:100% (4/4)
发表于 2018-4-5 11:24:20 | 显示全部楼层 |阅读模式
分享源码
界面截图:
是否带模块: -
备注说明: -
自绘的菜单大家不陌生吧?但是自绘的菜单一般都是英文(看不懂……),So,我干脆用Ex模块写了个自绘的菜单,虽然使用了部分英文,但是加入了大量的注释(精确到行)
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
指针整数型  
菜单对钩整数型  
菜单格式Gdip_文本格式  
Ex_DirectUIEx_DirectUI  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
Ex_DirectUI.挂接皮肤 (取窗口句柄 (), , RGB2ARGB ( #白色 ), , , , , , , , , , , )  ' 先挂接皮肤,既然用了Ex模块不挂接要出问题
Ex_DirectUI.事件_挂接消息 (&消息处理)  ' 消息回调事件
子程序名返回值类型公开备 注
消息处理整数型 
参数名类 型参考可空数组备 注
hWnd整数型   
Msg整数型   
wParam整数型   
lParam整数型   
判断 (Msg = 279)  ' 当菜单要弹出时收到此消息
初始菜单 (wParam, )  ' wparam 菜单句柄
判断 (Msg = 44)  ' 修改菜单大小
如果真 (wParam = 0)  ' 菜单
修改菜单大小 (lParam)
返回 (1)

判断 (Msg = 43)  ' 自绘菜单
如果真 (wParam = 0)  ' 菜单
自绘菜单 (lParam)
返回 (1)



返回 (-1)

首先创建完毕,先Set一下窗口信息回调
  
子程序名返回值类型公开备 注
初始菜单  
参数名类 型参考可空数组备 注
参_子菜单    
参_本菜单逻辑型  
变量名类 型静态数组备 注
i   
aMENUITEMINFO  
计次循环首 (GetMenuItemCount (参_子菜单), i)
a.结构大小 = 44
a.标识符 = 位或 (1, 2, 64)  ' 1=状态 2=id 64=标题
' a.条目内容 = 取空白文本 (255)
' a.条目长度 = 255
GetMenuItemInfo (参_子菜单, i - 1, 真, a)  ' 获得菜单MENUITEMINFO结构体
如果真 (a.条目状态 = 3 a.条目ID > 0 参_本菜单 = )
a.条目状态 = 1
ModifyMenu (参_子菜单, i - 1, 位或 (1024, 256), a.条目ID, a.条目状态)  ' 改变菜单条目
计次循环尾 ()

开始初始化菜单
  
子程序名返回值类型公开备 注
修改菜单大小  
参数名类 型参考可空数组备 注
lparam    
变量名类 型静态数组备 注
missMEASUREITEMSTRUCT  
CopyMemory_mis (miss, lparam, 24)  ' 复制内存块,数据类型MEASUREITEMSTRUCT
写到内存 (190, lparam + 12, )  ' 159+20=实际宽度
写到内存 (选择 (miss.itemData = 3, 7, 25), lparam + 16, )  ' 高度22


修改菜单大小
注意注意!!自绘的核心来了!!
  
子程序名返回值类型公开备 注
自绘菜单  
参数名类 型参考可空数组备 注
lParam    
变量名类 型静态数组备 注
disDRAWITEMSTRUCT  
mGraphics   
colour   
菜单文本文本型  
CopyMemory_dis (dis, lParam, 48)  ' 复制DRAWITEMSTRUCT的内存块
GdipCreateFromHDC (dis.hdc, mGraphics)  ' 创建设备场景相对应的绘图区域(相当于给设备场景创建一个画板)
图形_填充_矩形 (mGraphics, MakeR*F0, dis.rcItem.top, dis.rcItem.right + 2, 选择 (dis.itemData = 3, 8, 26)), RGB2ARGB (选择 (dis.itemData = 3 dis.itemData = 1 dis.itemState = 256, #白色, 16023874)))  ' 画出一个矩形块,16023874是蓝色
判断 (dis.itemData = 3)  ' 分隔条
图形_画直线 (mGraphics, RGB2ARGB (15329769), 0, dis.rcItem.top + 2, dis.rcItem.right + 2, dis.rcItem.top + 2)  ' 绘制分割线
' 按钮
判断 (dis.itemData = 1)  ' 绘制禁止,用灰色填充
colour = #浅灰
colour = 选择 (dis.itemState = 256, #深灰, #白色 )  ' 选择一下吧
如果真 (dis.itemData = 8 dis.itemData = 9)
图形_绘图缩放在 (mGraphics, 菜单对钩, MakeR*F13, dis.rcItem.top + 7, 10, 8), MakeR*F选择 (dis.itemState = 256, 0, 10), 0, 10, 8))  ' 缩小,给人一定的立体感
菜单文本 = 取空白文本 (256)
GetMenuString (dis.hwndItem, dis.itemID, 菜单文本, 256, 0)  ' GetMenuString是计算机编程语言函数。他的功能是将指定菜单项的正文字符串拷贝到指定缓冲区。
如果真 (菜单文本 = “” dis.itemID = 0)
' 没用的
菜单文本 = 子文本替换 (菜单文本, “&”, “”, , 1, )  ' 这个就除了,反正也显示不出来
如果真 (dis.itemID = 113)
判断 (dis.rcItem.top = 0 dis.rcItem.top = 132)
' 没用的
' 没用的

图形_画文本 (mGraphics, MakeR*F36, dis.rcItem.top + 6, dis.rcItem.right - 40, 16), A2W (菜单文本), 全局_默认字体, RGB2ARGB (colour), 菜单格式.取指针 ())  ' 写出文本“菜单格式.取指针 ()”是为了和系统默认字体接轨
GdipDeleteGraphics (mGraphics)  ' 清除画布的函数


注释量是不是特别的多?
看看效果:
360截图20180405112049235.jpg
本程序代码虽说少(但是短小精悍),作用还是可以的(主要是好看),开发Ex自绘的小伙伴可以看看!!
源码回复下载!!
感谢您的支持!(好评打赏走一波~!)
自绘菜单.zip (497.32 KB, 下载次数: 122)

评分

参与人数 3好评 +2 精币 +4 收起 理由
晨柔 + 1 + 2 啥都好就是看不懂
唯美主义 + 1 + 1 新技能已get√
铅笔刀 + 1 此处应该有鼓励~

查看全部评分


您可以选择打赏方式支持楼主

打赏

参与人数 1 打赏积分 理由 收起 打赏时间
北柠 +10   精币 小小心意,意思一下 2018-11-7 10:32

查看全部打赏

签到天数: 13 天

结帖率:0% (0/1)
发表于 2019-5-28 03:57:19 | 显示全部楼层
cai.插入项目 (, , “k”, , 1, , , )
回复

使用道具 举报

发表于 2019-3-23 10:43:29 | 显示全部楼层
学习了,哦哦!!!666
回复

使用道具 举报

签到天数: 4 天

结帖率:0% (0/1)
发表于 2019-2-12 23:22:51 | 显示全部楼层
66666666666666
回复

使用道具 举报

签到天数: 13 天

发表于 2019-2-10 10:17:20 | 显示全部楼层
666666666666666666
回复

使用道具 举报

结帖率:94% (32/34)
发表于 2019-1-13 12:28:03 | 显示全部楼层
厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害
回复

使用道具 举报

签到天数: 16 天

结帖率:51% (18/35)
发表于 2019-1-10 13:19:32 | 显示全部楼层
ex不行啊,xp系统打开就GG了
回复

使用道具 举报

发表于 2018-11-10 23:29:36 | 显示全部楼层
看看可不可以
回复

使用道具 举报

签到天数: 1 天

发表于 2018-11-7 10:32:40 | 显示全部楼层
厉害了,大佬的精品,会好好学习
回复

使用道具 举报

签到天数: 17 天

结帖率:67% (8/12)
发表于 2018-11-2 19:44:58 | 显示全部楼层
写一个菜单这么麻烦
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

关闭

精易论坛 - 有你更精彩上一条 /1 下一条

发布主题 收藏帖子 返回列表 按钮

sitemap|易语言源码|易语言教程|易语言论坛|诚聘英才|易语言模块|手机版|联系我们|精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
揭阳精易科技有限公司申明:我公司所有的培训课程版权归精易所有,任何人以任何方式翻录、盗版、破解本站培训课程,我们必将通过法律途径解决!
公司简介:揭阳市揭东区精易科技有限公司致力于易语言教学培训/易语言学习交流社区的建设与软件开发,多年来为中小企业编写过许许多多各式软件,并把多年积累的开发经验逐步录制成视频课程供学员学习,让学员全面系统化学习易语言编程,少走弯路,减少对相关技术的研究与摸索时间,从而加快了学习进度!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 800073686,邮箱:800073686@b.qq.com
Powered by Discuz! X3.2 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125

快速回复 返回顶部 返回列表