【新】用Ex写一个更漂亮的菜单(淡蓝清爽)

1185384801

自绘的菜单大家不陌生吧？但是自绘的菜单一般都是英文（看不懂……），So，我干脆用Ex模块写了个自绘的菜单，虽然使用了部分英文，但是加入了大量的注释（精确到行）

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
指针	整数型
菜单对钩	整数型
菜单格式	Gdip_文本格式
Ex_DirectUI	Ex_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)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 指针, 整数型<br /> .程序集变量 菜单对钩, 整数型<br /> .程序集变量 菜单格式, Gdip_文本格式<br /> .程序集变量 Ex_DirectUI, Ex_DirectUI<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> Ex_DirectUI.挂接皮肤 (取窗口句柄 (), , RGB2ARGB (#白色), , , , , , , , , , , )  ' 先挂接皮肤，既然用了Ex模块不挂接要出问题<br /> Ex_DirectUI.事件_挂接消息 (&消息处理)  ' 消息回调事件<br /> <br /> .子程序 消息处理, 整数型<br /> .参数 hWnd, 整数型<br /> .参数 Msg, 整数型<br /> .参数 wParam, 整数型<br /> .参数 lParam, 整数型<br /> <br /> .判断开始 (Msg ＝ 279)  ' 当菜单要弹出时收到此消息<br />     初始菜单 (wParam, 真)  ' wparam 菜单句柄<br /> .判断 (Msg ＝ 44)  ' 修改菜单大小<br />     .如果真 (wParam ＝ 0)  ' 菜单<br />         修改菜单大小 (lParam)<br />         返回 (1)<br />     .如果真结束<br /> <br /> .判断 (Msg ＝ 43)  ' 自绘菜单<br />     .如果真 (wParam ＝ 0)  ' 菜单<br />         自绘菜单 (lParam)<br />         返回 (1)<br />     .如果真结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (-1)

首先创建完毕，先Set一下窗口信息回调

  

子程序名	返回值类型	公开	备 注
初始菜单
参数名	类 型	参考	可空	数组	备 注
参_子菜单
参_本菜单	逻辑型

变量名	类 型	静态	数组	备 注
i
a	MENUITEMINFO

计次循环首 (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.条目状态)  ' 改变菜单条目
计次循环尾 ()

.版本 2<br /> <br /> .子程序 初始菜单<br /> .参数 参_子菜单<br /> .参数 参_本菜单, 逻辑型, 可空<br /> .局部变量 i<br /> .局部变量 a, MENUITEMINFO<br /> <br /> .计次循环首 (GetMenuItemCount (参_子菜单), i)<br />     a.结构大小 ＝ 44<br />     a.标识符 ＝ 位或 (1, 2, 64)  ' 1=状态 2=id 64=标题<br />     ' a.条目内容 ＝ 取空白文本 (255)<br />     ' a.条目长度 ＝ 255<br />     GetMenuItemInfo (参_子菜单, i － 1, 真, a)  ' 获得菜单MENUITEMINFO结构体<br />     .如果真 (a.条目状态 ＝ 3 且 a.条目ID ＞ 0 且 参_本菜单 ＝ 假)<br />         a.条目状态 ＝ 1<br />     .如果真结束<br />     ModifyMenu (参_子菜单, i － 1, 位或 (1024, 256), a.条目ID, a.条目状态)  ' 改变菜单条目<br /> .计次循环尾 ()

开始初始化菜单

  

子程序名	返回值类型	公开	备 注
修改菜单大小
参数名	类 型	参考	可空	数组	备 注
lparam

变量名	类 型	静态	数组	备 注
miss	MEASUREITEMSTRUCT

CopyMemory_mis (miss, lparam, 24)  ' 复制内存块，数据类型MEASUREITEMSTRUCT
写到内存 (190, lparam ＋ 12, )  ' 159+20=实际宽度
写到内存 (选择 (miss.itemData ＝ 3, 7, 25), lparam ＋ 16, )  ' 高度22

.版本 2<br /> <br /> .子程序 修改菜单大小<br /> .参数 lparam<br /> .局部变量 miss, MEASUREITEMSTRUCT<br /> <br /> CopyMemory_mis (miss, lparam, 24)  ' 复制内存块，数据类型MEASUREITEMSTRUCT<br /> 写到内存 (190, lparam ＋ 12, )  ' 159+20=实际宽度<br /> 写到内存 (选择 (miss.itemData ＝ 3, 7, 25), lparam ＋ 16, )  ' 高度22

修改菜单大小
注意注意！！自绘的核心来了！！

  

子程序名	返回值类型	公开	备 注
自绘菜单
参数名	类 型	参考	可空	数组	备 注
lParam

变量名	类 型	静态	数组	备 注
dis	DRAWITEMSTRUCT
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)  ' 清除画布的函数

.版本 2<br /> <br /> .子程序 自绘菜单<br /> .参数 lParam<br /> .局部变量 dis, DRAWITEMSTRUCT<br /> .局部变量 mGraphics<br /> .局部变量 colour<br /> .局部变量 菜单文本, 文本型<br /> <br /> CopyMemory_dis (dis, lParam, 48)  ' 复制DRAWITEMSTRUCT的内存块<br /> GdipCreateFromHDC (dis.hdc, mGraphics)  ' 创建设备场景相对应的绘图区域（相当于给设备场景创建一个画板）<br /> 图形_填充_矩形 (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是蓝色<br /> .判断开始 (dis.itemData ＝ 3)  ' 分隔条<br />     图形_画直线 (mGraphics, RGB2ARGB (15329769), 0, dis.rcItem.top ＋ 2, dis.rcItem.right ＋ 2, dis.rcItem.top ＋ 2)  ' 绘制分割线<br /> .默认<br />     ' 按钮<br />     .判断开始 (dis.itemData ＝ 1)  ' 绘制禁止，用灰色填充<br />         colour ＝ #浅灰<br />     .默认<br />         colour ＝ 选择 (dis.itemState ＝ 256, #深灰, #白色)  ' 选择一下吧<br />     .判断结束<br />     .如果真 (dis.itemData ＝ 8 或 dis.itemData ＝ 9)<br />         图形_绘图缩放在 (mGraphics, 菜单对钩, MakeR*F13, dis.rcItem.top ＋ 7, 10, 8), MakeR*F选择 (dis.itemState ＝ 256, 0, 10), 0, 10, 8))  ' 缩小，给人一定的立体感<br />     .如果真结束<br />     菜单文本 ＝ 取空白文本 (256)<br />     GetMenuString (dis.hwndItem, dis.itemID, 菜单文本, 256, 0)  ' GetMenuString是计算机编程语言函数。他的功能是将指定菜单项的正文字符串拷贝到指定缓冲区。<br />     .如果真 (菜单文本 ＝ “” 且 dis.itemID ＝ 0)<br />         ' 没用的<br />     .如果真结束<br />     菜单文本 ＝ 子文本替换 (菜单文本, “&”, “”, , 1, 真)  ' 这个就除了，反正也显示不出来<br />     .如果真 (dis.itemID ＝ 113)<br />         .判断开始 (dis.rcItem.top ＝ 0 或 dis.rcItem.top ＝ 132)<br />             ' 没用的<br />         .默认<br />             ' 没用的<br />         .判断结束<br /> <br />     .如果真结束<br />     图形_画文本 (mGraphics, MakeR*F36, dis.rcItem.top ＋ 6, dis.rcItem.right － 40, 16), A2W (菜单文本), 全局_默认字体, RGB2ARGB (colour), 菜单格式.取指针 ())  ' 写出文本“菜单格式.取指针 ()”是为了和系统默认字体接轨<br /> .判断结束<br /> GdipDeleteGraphics (mGraphics)  ' 清除画布的函数

注释量是不是特别的多？
看看效果：

本程序代码虽说少（但是短小精悍），作用还是可以的（主要是好看），开发Ex自绘的小伙伴可以看看！！
源码回复下载！！
感谢您的支持！（好评打赏走一波~！）
自绘菜单.zip (497.32 KB, 下载次数: 146)

2018-4-5 11:24 上传

点击文件名下载附件

zhangkun2001

自绘菜单好看

zhangkun2001

学习了，哦哦

108937101

好东西

落寞23333

自绘菜单好看

龙大创翼

cai.插入项目 (, , “k”, , 1, , , )

棋牌开发定制

学习了，哦哦！！！666

没有细胞的人

66666666666666

FBI追风大大

666666666666666666

小jj

厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害厉害

彡Ksjsd风云

ex不行啊，xp系统打开就GG了