【更新2.6】中文强大的API菜单类 全面 动态 完善 易懂 易用 高扩展

琪诺兔

【中文强大的API菜单类模块】

全面 动态 完善 易懂 易用 高扩展

(托盘菜单需要精易模块的 类_托盘 使用)

【对不起刚刚发错压缩包了这次是模块了】

【注 全局变量的菜单句柄可以在程序的任何部位弹出】

【更新2.6】
修复了一个大BUG
提高了效率
完善了命令方法
类型标记作为了常量

【以下是使用例程】

请先创建四个按钮[主菜单][二菜单][三菜单][四菜单]在窗口里写以下代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口1			演示窗口的程序集
变量名	类 型	数组	备 注
窗口句柄	整数型		用于存储窗口句柄
菜单	Qn菜单		本模块的Qn菜单
托盘	类_托盘		精易模块的 类_托盘
主菜单句柄	整数型		创建的主菜单句柄
主菜单的子菜单句柄	整数型		用主菜单句柄创建的子菜单句柄
二菜单句柄	整数型		创建的二菜单句柄
二菜单的子菜单句柄	整数型		用二菜单句柄创建的二菜单子菜单句柄
二菜单的子子菜单句柄	整数型		用二菜单子菜单句柄创建的二菜单的子子菜单句柄
三菜单句柄	整数型		创建的三菜单句柄
三菜单的子菜单句柄	整数型		用三菜单句柄创建的三菜单的子菜单句柄
四菜单句柄	整数型		创建的四菜单句柄
菜单起始ID	整数型		创建菜单必须的ID变量建议30000开始
消息指针	整数型		SetWindowLongA方法的指针

子程序名	返回值类型	公开	备 注
_演示窗口_创建完毕

窗口句柄 ＝ 取窗口句柄 ()  ' 取窗口句柄
消息指针 ＝ SetWindowLongA (窗口句柄, #GWL_WNDPROC, 到整数 (&菜单处理过程))  ' 监控窗口消息
托盘.创建 (窗口句柄, #测试图标, “Qn菜单演示例程”)  ' 用精易模块创建托盘图标
托盘.挂接事件 (&托盘事件)  ' 挂接精易模块创建托盘图标的事件
菜单起始ID ＝ 30000  ' 将菜单起始ID设置为30000
主菜单句柄 ＝ 菜单.创建弹出 ()  ' 创建一个弹出菜单并返回一个句柄
菜单.添加_图片 (主菜单句柄, #测试图标, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个用图片当做背景的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “Qn菜单演示例程”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件
主菜单的子菜单句柄 ＝ 菜单.添加 (主菜单句柄, 取文本指针_ (“子菜单演示”), , #菜单类型_激活, , )  ' 用刚刚创建的弹出菜单句柄返回一个子菜单句柄
菜单.插入Ex (主菜单的子菜单句柄, 1, “子菜单带图标演示”, 下一个菜单ID (), #菜单类型_图片句柄, #测试图标, &主菜单单击, &主菜单点燃)  ' 添加一个带图标和文本的子菜单并添加事件
菜单.添加_文本 (主菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, &子菜单单击, &子菜单点燃)  ' 添加一个普通的子菜单并添加事件
菜单.添加_文本 (主菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, &子菜单单击, &子菜单点燃)  ' 添加一个普通的子菜单并添加事件
菜单.插入Ex (主菜单句柄, 3, “带图标演示”, 下一个菜单ID (), #菜单类型_图片句柄, #测试图标, &主菜单单击, &主菜单点燃)  ' 添加一个带图标和文本的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “主菜单演示1”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “主菜单演示2”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “主菜单演示3”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “主菜单演示4”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “主菜单演示5”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “”, 1, #菜单类型_分割线, , )  ' 添加一个分隔符的菜单并添加事件
菜单.添加_文本 (主菜单句柄, “主菜单演示6”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件
二菜单句柄 ＝ 菜单.创建弹出 ()  ' 在创建一个弹出菜单并返回一个句柄
菜单.添加_文本 (二菜单句柄, “带选中的菜单演示”, 下一个菜单ID (), #菜单类型_选中, &带选中的菜单子程序, )  ' 创建一个带选中的菜单演示并添加事件
菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )  ' 添加一个普通的菜单并添加事件
菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )  ' 添加一个普通的菜单并添加事件
菜单.添加_文本 (二菜单句柄, “”, 1, #菜单类型_分割线, , )  ' 添加一个分隔符的菜单并添加事件
菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
二菜单的子菜单句柄 ＝ 菜单.添加_文本 (二菜单句柄, “二菜单演示”, , #菜单类型_激活, , )
菜单.添加_文本 (二菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (二菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (二菜单的子子菜单句柄, “”, 1, #菜单类型_分割线, , )
二菜单的子子菜单句柄 ＝ 菜单.添加_文本 (二菜单的子菜单句柄, “子菜单演示”, , #菜单类型_激活, , )
菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )
四菜单句柄 ＝ 菜单.创建弹出 ()  ' 在创建一个弹出菜单并返回一个句柄
菜单.添加_图片 (四菜单句柄, #测试图标, 下一个菜单ID (), #菜单类型_激活, , )
菜单.添加_文本 (四菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, &四菜单点击, &四菜单点燃)
菜单.添加_文本 (四菜单句柄, “”, 下一个菜单ID (), #菜单类型_换行, , )
菜单.添加_文本 (四菜单句柄, “子子菜单演示2”, 下一个菜单ID (), #菜单类型_ **, &四菜单点击, &四菜单点燃)
菜单.添加_文本 (四菜单句柄, “子子菜单演示3”, 下一个菜单ID (), #菜单类型_禁止, &四菜单点击, &四菜单点燃)
菜单.添加_文本 (四菜单句柄, “子子菜单演示4”, 下一个菜单ID (), #菜单类型_加亮, &四菜单点击, &四菜单点燃)
菜单.添加_文本 (四菜单句柄, “子子菜单演示5”, 下一个菜单ID (), #菜单类型_垂直线, &四菜单点击, &四菜单点燃)
菜单.添加_文本 (四菜单句柄, “子子菜单演示6”, 下一个菜单ID (), #菜单类型_分割列, &四菜单点击, &四菜单点燃)
菜单.添加_文本 (四菜单句柄, “”, 下一个菜单ID (), #菜单类型_分割线, , )
多重加入 ({ “三菜单演示”, “三菜单演示1”, “三菜单演示2”, “三菜单演示3”, “三菜单演示4”, “三菜单演示5”, “三菜单演示6” })  ' 用循环方式添加菜单并变成子程序
调试输出 (菜单.是否菜单 (主菜单句柄))

子程序名	返回值类型	公开	备 注
多重加入			多重加入菜单
参数名	类 型	参考	可空	数组	备 注
菜单名组	文本型

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

三菜单句柄 ＝ 菜单.创建弹出 ()
计次循环首 (取数组成员数 (菜单名组), i)
菜单.插入Ex (三菜单句柄, i, 菜单名组 [i], 下一个菜单ID (), 0, , &多重加入子程序, )
计次循环尾 ()

子程序名	返回值类型	公开	备 注
带选中的菜单子程序			带选中的菜单子程序事件
参数名	类 型	参考	可空	数组	备 注
菜单ID	整数型
窗口句柄	整数型

变量名	类 型	静态	数组	备 注
形态	整数型

形态 ＝ 菜单.取状态 (二菜单句柄, 菜单ID, 真)
如果真 (形态 ＝ 0)
菜单.选中 (二菜单句柄, 菜单ID, 真, 真)
调试输出 (“真”)

如果真 (形态 ＝ 8)
菜单.选中 (二菜单句柄, 菜单ID, 假, 真)
调试输出 (“假”)

子程序名	返回值类型	公开	备 注
多重加入子程序			多重加入菜单的子程序
参数名	类 型	参考	可空	数组	备 注
菜单ID	整数型
窗口句柄	整数型

变量名	类 型	静态	数组	备 注
索引	整数型

判断 (窗口句柄 ＝ 0)
索引 ＝ 菜单.取索引 (三菜单句柄, 菜单ID) ＋ 1
如果 (窗口句柄 ＜ 8 且 窗口句柄 ＞ 0)
索引 ＝ 窗口句柄
索引 ＝ 菜单.取索引 (三菜单句柄, 菜单ID) ＋ 1


信息框子程序 (“主句柄” ＋ 到文本 (三菜单句柄) ＋ #换行符 ＋ “句柄为 ” ＋ 到文本 (窗口句柄) ＋ #换行符 ＋ “ID为 ” ＋ 到文本 (菜单ID) ＋ #换行符 ＋ “索引为 ” ＋ 到文本 (索引) ＋ #换行符 ＋ “标题为 ” ＋ 菜单.取标题 (三菜单句柄, 菜单ID) ＋ #换行符 ＋ “形态 被点击”)

子程序名	返回值类型	公开	备 注
信息框子程序
参数名	类 型	参考	可空	数组	备 注
参数	文本型

信息框 (参数, #信息图标, “Qn菜单演示例程”, )

子程序名	返回值类型	公开	备 注
_主菜单_被单击			主菜单按钮被点击

菜单.弹出 (主菜单句柄, , , , 窗口句柄)

子程序名	返回值类型	公开	备 注
_菜单二_被单击			菜单二按钮被点击

菜单.弹出 (二菜单句柄, , , , 窗口句柄)

子程序名	返回值类型	公开	备 注
_菜单三_被单击			菜单三按钮被点击

菜单.弹出 (三菜单句柄, , , , 窗口句柄)

子程序名	返回值类型	公开	备 注
_菜单四_被单击

菜单.弹出 (四菜单句柄, , , , 窗口句柄)

子程序名	返回值类型	公开	备 注
菜单处理过程	整数型		用于处理菜单过程
参数名	类 型	参考	可空	数组	备 注
窗口句柄	整数型				hWnd
消息	整数型				uMsg
参数1	整数型				wParam
参数2	整数型				lParam

变量名	类 型	静态	数组	备 注
低	整数型
高	整数型

判断 (消息 ＝ #WM_COMMAND )  ' 窗口菜单被选择
低 ＝ 位与 (参数1, 65535)
高 ＝ 参数1 ＼ 65536
如果真 (参数2 ＝ 0 且 高 ＝ 0)
菜单.处理菜单事件 (窗口句柄, 低, )

如果真 (消息 ＝ #WM_MENUSELECT )  ' 鼠标经过菜单
菜单.处理菜单事件 (窗口句柄, 位与 (参数1, 65535), 真)


返回 (CallWindowProcA (消息指针, 窗口句柄, 消息, 参数1, 参数2))

子程序名	返回值类型	公开	备 注
托盘事件
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型

如果真 (操作类型 ＝ #WM_LBUTTONDOWN )
菜单.弹出托盘 (主菜单句柄, , , , 窗口句柄, 真)  ' 准备弹出托盘菜单

如果真 (操作类型 ＝ #WM_RBUTTONUP )
菜单.弹出托盘 (主菜单句柄, , , , 窗口句柄, )  ' 弹出托盘菜单

子程序名	返回值类型	公开	备 注
子菜单点燃			主菜单的子菜单点燃事件

调试输出 (1)

子程序名	返回值类型	公开	备 注
子菜单单击			主菜单的子菜单单击事件

调试输出 (2)

子程序名	返回值类型	公开	备 注
主菜单点燃			主菜单点燃事件
参数名	类 型	参考	可空	数组	备 注
菜单ID	整数型
窗口句柄	整数型

变量名	类 型	静态	数组	备 注
索引	整数型

判断 (窗口句柄 ＝ 0)
索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1
如果 (窗口句柄 ＜ 8 且 窗口句柄 ＞ 0)
索引 ＝ 窗口句柄
索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1

调试输出 (“句柄为” ＋ 到文本 (窗口句柄) ＋ “ ID为” ＋ 到文本 (菜单ID) ＋ “ 索引为” ＋ 到文本 (索引) ＋ “ 点燃”)

子程序名	返回值类型	公开	备 注
主菜单单击			主菜单单击事件
参数名	类 型	参考	可空	数组	备 注
菜单ID	整数型
窗口句柄	整数型

变量名	类 型	静态	数组	备 注
索引	整数型

判断 (窗口句柄 ＝ 0)
索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1
如果 (窗口句柄 ＜ 8 且 窗口句柄 ＞ 0)
索引 ＝ 窗口句柄
索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1

如果真 (索引 ＝ 1)
调试输出 (“一”)

如果真 (索引 ＝ 2)
调试输出 (“二”)

如果真 (索引 ＝ 3)
调试输出 (“三”)

如果真 (索引 ＝ 4)
调试输出 (“四”)

子程序名	返回值类型	公开	备 注
四菜单点燃

调试输出 (“四菜单点燃”)

子程序名	返回值类型	公开	备 注
四菜单点击

调试输出 (“四菜单点击”)

子程序名	返回值类型	公开	备 注
下一个菜单ID	整数型		生存下一个菜单ID

菜单起始ID ＝ 菜单起始ID ＋ 1
返回 (菜单起始ID)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1, , , 演示窗口的程序集<br /> .程序集变量 窗口句柄, 整数型, , , 用于存储窗口句柄<br /> .程序集变量 菜单, Qn菜单, , , 本模块的Qn菜单<br /> .程序集变量 托盘, 类_托盘, , , 精易模块的 类_托盘 <br /> .程序集变量 主菜单句柄, 整数型, , , 创建的主菜单句柄<br /> .程序集变量 主菜单的子菜单句柄, 整数型, , , 用主菜单句柄创建的子菜单句柄<br /> .程序集变量 二菜单句柄, 整数型, , , 创建的二菜单句柄<br /> .程序集变量 二菜单的子菜单句柄, 整数型, , , 用二菜单句柄创建的二菜单子菜单句柄<br /> .程序集变量 二菜单的子子菜单句柄, 整数型, , , 用二菜单子菜单句柄创建的二菜单的子子菜单句柄<br /> .程序集变量 三菜单句柄, 整数型, , , 创建的三菜单句柄<br /> .程序集变量 三菜单的子菜单句柄, 整数型, , , 用三菜单句柄创建的三菜单的子菜单句柄<br /> .程序集变量 四菜单句柄, 整数型, , , 创建的四菜单句柄<br /> .程序集变量 菜单起始ID, 整数型, , , 创建菜单必须的ID变量建议30000开始<br /> .程序集变量 消息指针, 整数型, , , SetWindowLongA方法的指针<br /> <br /> .子程序 _演示窗口_创建完毕<br /> <br /> 窗口句柄 ＝ 取窗口句柄 ()  ' 取窗口句柄<br /> <br /> 消息指针 ＝ SetWindowLongA (窗口句柄, #GWL_WNDPROC, 到整数 (&菜单处理过程))  ' 监控窗口消息<br /> <br /> 托盘.创建 (窗口句柄, #测试图标, “Qn菜单演示例程”)  ' 用精易模块创建托盘图标<br /> 托盘.挂接事件 (&托盘事件)  ' 挂接精易模块创建托盘图标的事件<br /> <br /> 菜单起始ID ＝ 30000  ' 将菜单起始ID设置为30000<br /> <br /> 主菜单句柄 ＝ 菜单.创建弹出 ()  ' 创建一个弹出菜单并返回一个句柄<br /> 菜单.添加_图片 (主菜单句柄, #测试图标, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个用图片当做背景的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “Qn菜单演示例程”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件<br /> <br /> 主菜单的子菜单句柄 ＝ 菜单.添加 (主菜单句柄, 取文本指针_ (“子菜单演示”), , #菜单类型_激活, , )  ' 用刚刚创建的弹出菜单句柄返回一个子菜单句柄<br /> 菜单.插入Ex (主菜单的子菜单句柄, 1, “子菜单带图标演示”, 下一个菜单ID (), #菜单类型_图片句柄, #测试图标, &主菜单单击, &主菜单点燃)  ' 添加一个带图标和文本的子菜单并添加事件<br /> 菜单.添加_文本 (主菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, &子菜单单击, &子菜单点燃)  ' 添加一个普通的子菜单并添加事件<br /> 菜单.添加_文本 (主菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, &子菜单单击, &子菜单点燃)  ' 添加一个普通的子菜单并添加事件<br /> <br /> 菜单.插入Ex (主菜单句柄, 3, “带图标演示”, 下一个菜单ID (), #菜单类型_图片句柄, #测试图标, &主菜单单击, &主菜单点燃)  ' 添加一个带图标和文本的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “主菜单演示1”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “主菜单演示2”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “主菜单演示3”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “主菜单演示4”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “主菜单演示5”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “”, 1, #菜单类型_分割线, , )  ' 添加一个分隔符的菜单并添加事件<br /> 菜单.添加_文本 (主菜单句柄, “主菜单演示6”, 下一个菜单ID (), #菜单类型_激活, &主菜单单击, &主菜单点燃)  ' 添加一个普通的菜单并添加事件<br /> <br /> 二菜单句柄 ＝ 菜单.创建弹出 ()  ' 在创建一个弹出菜单并返回一个句柄<br /> 菜单.添加_文本 (二菜单句柄, “带选中的菜单演示”, 下一个菜单ID (), #菜单类型_选中, &带选中的菜单子程序, )  ' 创建一个带选中的菜单演示并添加事件<br /> 菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )  ' 添加一个普通的菜单并添加事件<br /> 菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )  ' 添加一个普通的菜单并添加事件<br /> 菜单.添加_文本 (二菜单句柄, “”, 1, #菜单类型_分割线, , )  ' 添加一个分隔符的菜单并添加事件<br /> 菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单句柄, “二菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> <br /> 二菜单的子菜单句柄 ＝ 菜单.添加_文本 (二菜单句柄, “二菜单演示”, , #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单的子菜单句柄, “子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单的子子菜单句柄, “”, 1, #菜单类型_分割线, , )<br /> <br /> 二菜单的子子菜单句柄 ＝ 菜单.添加_文本 (二菜单的子菜单句柄, “子菜单演示”, , #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (二菜单的子子菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, , )<br /> <br /> 四菜单句柄 ＝ 菜单.创建弹出 ()  ' 在创建一个弹出菜单并返回一个句柄<br /> 菜单.添加_图片 (四菜单句柄, #测试图标, 下一个菜单ID (), #菜单类型_激活, , )<br /> 菜单.添加_文本 (四菜单句柄, “子子菜单演示”, 下一个菜单ID (), #菜单类型_激活, &四菜单点击, &四菜单点燃)<br /> 菜单.添加_文本 (四菜单句柄, “”, 下一个菜单ID (), #菜单类型_换行, , )<br /> 菜单.添加_文本 (四菜单句柄, “子子菜单演示2”, 下一个菜单ID (), #菜单类型_**, &四菜单点击, &四菜单点燃)<br /> 菜单.添加_文本 (四菜单句柄, “子子菜单演示3”, 下一个菜单ID (), #菜单类型_禁止, &四菜单点击, &四菜单点燃)<br /> 菜单.添加_文本 (四菜单句柄, “子子菜单演示4”, 下一个菜单ID (), #菜单类型_加亮, &四菜单点击, &四菜单点燃)<br /> 菜单.添加_文本 (四菜单句柄, “子子菜单演示5”, 下一个菜单ID (), #菜单类型_垂直线, &四菜单点击, &四菜单点燃)<br /> 菜单.添加_文本 (四菜单句柄, “子子菜单演示6”, 下一个菜单ID (), #菜单类型_分割列, &四菜单点击, &四菜单点燃)<br /> 菜单.添加_文本 (四菜单句柄, “”, 下一个菜单ID (), #菜单类型_分割线, , )<br /> <br /> 多重加入 ({ “三菜单演示”, “三菜单演示1”, “三菜单演示2”, “三菜单演示3”, “三菜单演示4”, “三菜单演示5”, “三菜单演示6” })  ' 用循环方式添加菜单并变成子程序<br /> <br /> 调试输出 (菜单.是否菜单 (主菜单句柄))<br /> <br /> .子程序 多重加入, , , 多重加入菜单<br /> .参数 菜单名组, 文本型, 数组<br /> .局部变量 i, 整数型<br /> <br /> 三菜单句柄 ＝ 菜单.创建弹出 ()<br /> .计次循环首 (取数组成员数 (菜单名组), i)<br />     菜单.插入Ex (三菜单句柄, i, 菜单名组 <i>, 下一个菜单ID (), 0, , &多重加入子程序, )<br /> .计次循环尾 ()<br /> <br /> .子程序 带选中的菜单子程序, , , 带选中的菜单子程序事件<br /> .参数 菜单ID, 整数型<br /> .参数 窗口句柄, 整数型<br /> .局部变量 形态, 整数型<br /> <br /> 形态 ＝ 菜单.取状态 (二菜单句柄, 菜单ID, 真)<br /> <br /> .如果真 (形态 ＝ 0)<br />     菜单.选中 (二菜单句柄, 菜单ID, 真, 真)<br />     调试输出 (“真”)<br /> .如果真结束<br /> <br /> .如果真 (形态 ＝ 8)<br />     菜单.选中 (二菜单句柄, 菜单ID, 假, 真)<br />     调试输出 (“假”)<br /> .如果真结束<br /> <br /> <br /> .子程序 多重加入子程序, , , 多重加入菜单的子程序<br /> .参数 菜单ID, 整数型<br /> .参数 窗口句柄, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> .判断开始 (窗口句柄 ＝ 0)<br />     索引 ＝ 菜单.取索引 (三菜单句柄, 菜单ID) ＋ 1<br /> .默认<br />     .如果 (窗口句柄 ＜ 8 且 窗口句柄 ＞ 0)<br />         索引 ＝ 窗口句柄<br />     .否则<br />         索引 ＝ 菜单.取索引 (三菜单句柄, 菜单ID) ＋ 1<br />     .如果结束<br /> <br /> .判断结束<br /> <br /> 信息框子程序 (“主句柄” ＋ 到文本 (三菜单句柄) ＋ #换行符 ＋ “句柄为 ” ＋ 到文本 (窗口句柄) ＋ #换行符 ＋ “ID为 ” ＋ 到文本 (菜单ID) ＋ #换行符 ＋ “索引为 ” ＋ 到文本 (索引) ＋ #换行符 ＋ “标题为 ” ＋ 菜单.取标题 (三菜单句柄, 菜单ID) ＋ #换行符 ＋ “形态 被点击”)<br /> <br /> .子程序 信息框子程序<br /> .参数 参数, 文本型<br /> <br /> 信息框 (参数, #信息图标, “Qn菜单演示例程”, )<br /> <br /> .子程序 _主菜单_被单击, , , 主菜单按钮被点击<br /> <br /> 菜单.弹出 (主菜单句柄, , , , 窗口句柄)<br /> <br /> <br /> .子程序 _菜单二_被单击, , , 菜单二按钮被点击<br /> <br /> 菜单.弹出 (二菜单句柄, , , , 窗口句柄)<br /> <br /> <br /> .子程序 _菜单三_被单击, , , 菜单三按钮被点击<br /> <br /> 菜单.弹出 (三菜单句柄, , , , 窗口句柄)<br /> <br /> <br /> .子程序 _菜单四_被单击<br /> <br /> 菜单.弹出 (四菜单句柄, , , , 窗口句柄)<br /> <br /> <br /> .子程序 菜单处理过程, 整数型, , 用于处理菜单过程<br /> .参数 窗口句柄, 整数型, , hWnd<br /> .参数 消息, 整数型, , uMsg<br /> .参数 参数1, 整数型, , wParam<br /> .参数 参数2, 整数型, , lParam<br /> .局部变量 低, 整数型<br /> .局部变量 高, 整数型<br /> <br /> .判断开始 (消息 ＝ #WM_COMMAND)  ' 窗口菜单被选择<br />     低 ＝ 位与 (参数1, 65535)<br />     高 ＝ 参数1 ＼ 65536<br />     .如果真 (参数2 ＝ 0 且 高 ＝ 0)<br />         菜单.处理菜单事件 (窗口句柄, 低, )<br />     .如果真结束<br /> <br /> .默认<br />     .如果真 (消息 ＝ #WM_MENUSELECT)  ' 鼠标经过菜单<br />         菜单.处理菜单事件 (窗口句柄, 位与 (参数1, 65535), 真)<br />     .如果真结束<br /> <br /> .判断结束<br /> <br /> 返回 (CallWindowProcA (消息指针, 窗口句柄, 消息, 参数1, 参数2))<br /> <br /> .子程序 托盘事件<br /> .参数 操作类型, 整数型<br /> <br /> .如果真 (操作类型 ＝ #WM_LBUTTONDOWN)<br />     菜单.弹出托盘 (主菜单句柄, , , , 窗口句柄, 真)  ' 准备弹出托盘菜单<br /> .如果真结束<br /> <br /> .如果真 (操作类型 ＝ #WM_RBUTTONUP)<br />     菜单.弹出托盘 (主菜单句柄, , , , 窗口句柄, )  ' 弹出托盘菜单<br /> .如果真结束<br /> <br /> <br /> .子程序 子菜单点燃, , , 主菜单的子菜单点燃事件<br /> <br /> 调试输出 (1)<br /> <br /> .子程序 子菜单单击, , , 主菜单的子菜单单击事件<br /> <br /> 调试输出 (2)<br /> <br /> .子程序 主菜单点燃, , , 主菜单点燃事件<br /> .参数 菜单ID, 整数型<br /> .参数 窗口句柄, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> .判断开始 (窗口句柄 ＝ 0)<br />     索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1<br /> .默认<br />     .如果 (窗口句柄 ＜ 8 且 窗口句柄 ＞ 0)<br />         索引 ＝ 窗口句柄<br />     .否则<br />         索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1<br />     .如果结束<br /> <br /> .判断结束<br /> 调试输出 (“句柄为” ＋ 到文本 (窗口句柄) ＋ “ ID为” ＋ 到文本 (菜单ID) ＋ “ 索引为” ＋ 到文本 (索引) ＋ “ 点燃”)<br /> <br /> .子程序 主菜单单击, , , 主菜单单击事件<br /> .参数 菜单ID, 整数型<br /> .参数 窗口句柄, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> .判断开始 (窗口句柄 ＝ 0)<br />     索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1<br /> .默认<br />     .如果 (窗口句柄 ＜ 8 且 窗口句柄 ＞ 0)<br />         索引 ＝ 窗口句柄<br />     .否则<br />         索引 ＝ 菜单.取索引 (主菜单句柄, 菜单ID) ＋ 1<br />     .如果结束<br /> <br /> .判断结束<br /> .如果真 (索引 ＝ 1)<br />     调试输出 (“一”)<br /> .如果真结束<br /> <br /> .如果真 (索引 ＝ 2)<br />     调试输出 (“二”)<br /> .如果真结束<br /> <br /> .如果真 (索引 ＝ 3)<br />     调试输出 (“三”)<br /> .如果真结束<br /> <br /> .如果真 (索引 ＝ 4)<br />     调试输出 (“四”)<br /> .如果真结束<br /> <br /> <br /> .子程序 四菜单点燃<br /> <br /> 调试输出 (“四菜单点燃”)<br /> <br /> .子程序 四菜单点击<br /> <br /> 调试输出 (“四菜单点击”)<br /> <br /> .子程序 下一个菜单ID, 整数型, , 生存下一个菜单ID<br /> <br /> 菜单起始ID ＝ 菜单起始ID ＋ 1<br /> 返回 (菜单起始ID)

【模块下载 Qn菜单2.6.zip (792.6 KB, 下载次数: 289)

2020-6-6 10:57 上传

点击文件名下载附件 】

【例程下载 Qn菜单类例程.e (3.48 MB, 下载次数: 656)

2020-6-6 10:58 上传

点击文件名下载附件 】

【最后希望本模块可以为你的程序添加一些色彩】

sqg88

中文强大的API菜单类模块

515667395

多谢分享

bianyuan456

已经顶贴，感谢您对论坛的支持！

j351338588

我企鹅亲亲亲亲亲亲温泉恶趣味王企鹅王企鹅哇

wushuide

好屌哦  膜拜大神

渡不得……

图标支持png吗，bmp的话还有一个背景底色在

Hi拂尘

66666666666666666

liaoxiaohu

6666666666666666666

zxzaixian

学习一下，看看。

zxzaixian

好好学习一下。