菜单动态追加子项

Helpyou

就是在“这里哦”下边加选项

zainex

  

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

变量名	类 型	静态	数组	备 注
句柄	整数型
子句柄	整数型
ID	整数型
弹出句柄	整数型

句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())
子句柄 ＝ 菜单_取子句柄 (句柄, 1)
弹出句柄 ＝ 菜单_取子句柄 (子句柄, 0)
如果真 (弹出句柄 ＝ 0)
弹出句柄 ＝ CreatePopupMenu ()
ModifyMenuA (句柄, GetMenuItemID (子句柄, 0), 16, 弹出句柄, 菜单_取标题 (子句柄, 0))
ID ＝ ID ＋ 1
如果真 (ID ＞ 1100)  ' 最多一百个
返回 ()
菜单_添加 (弹出句柄, “新建” ＋ 到文本 (ID), , , 1000 ＋ ID)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 句柄, 整数型<br /> .局部变量 子句柄, 整数型<br /> .局部变量 ID, 整数型, 静态<br /> .局部变量 弹出句柄, 整数型<br /> <br /> 句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())<br /> 子句柄 ＝ 菜单_取子句柄 (句柄, 1)<br /> 弹出句柄 ＝ 菜单_取子句柄 (子句柄, 0)<br /> .如果真 (弹出句柄 ＝ 0)<br />     弹出句柄 ＝ CreatePopupMenu ()<br />     ModifyMenuA (句柄, GetMenuItemID (子句柄, 0), 16, 弹出句柄, 菜单_取标题 (子句柄, 0))<br /> .如果真结束<br /> ID ＝ ID ＋ 1<br /> .如果真 (ID ＞ 1100)  ' 最多一百个<br />     返回 ()<br /> .如果真结束<br /> 菜单_添加 (弹出句柄, “新建” ＋ 到文本 (ID), , , 1000 ＋ ID)

zainex

精易模块 菜单_XXX ：

  

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

变量名	类 型	静态	数组	备 注
句柄	整数型
子句柄	整数型

句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())
子句柄 ＝ 菜单_取子句柄 (句柄, 1)
菜单_添加 (菜单_取子句柄 (子句柄, 0), “新建”)

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 句柄, 整数型<br /> .局部变量 子句柄, 整数型<br /> <br /> 句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())<br /> 子句柄 ＝ 菜单_取子句柄 (句柄, 1)<br /> 菜单_添加 (菜单_取子句柄 (子句柄, 0), “新建”)

效果：

例子.zip (1.21 MB, 下载次数: 1)

2 小时前 上传

点击文件名下载附件

Helpyou

zainex 发表于 2026-4-27 17:32
精易模块 菜单_XXX ：
[e=1].版本 2

每次追加的子项，名字不固定的 怎么在这个新加的子项里面写功能呢 大佬

微信lr

比如选择夹1 2
切换选择夹1  清空菜单 添加菜单
切换选择夹2 清空菜单 添加菜单

点击菜单触发 根据选择夹的当前项  或者菜单标题 跳对应的功能   

zainex

窗口子类化，通过 WM_COMMAND 消息区分按下的菜单项：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
指针	整数型

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

指针 ＝ SetWindowLongA (_启动窗口.取窗口句柄 (), -4, 到整数 (&窗口过程))  ' 改变指定窗口的属性

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

变量名	类 型	静态	数组	备 注
句柄	整数型
子句柄	整数型
ID	整数型

句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())
子句柄 ＝ 菜单_取子句柄 (句柄, 1)
ID ＝ ID ＋ 1
如果真 (ID ＞ 1100)  ' 最多一百个
返回 ()
菜单_添加 (菜单_取子句柄 (子句柄, 0), “新建” ＋ 到文本 (ID), , , 1000 ＋ ID)

子程序名	返回值类型	公开	备 注
窗口过程	整数型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

如果真 (消息 ＝ 十六进制 (“0111”))  ' WM_COMMAND
判断 (参数1 ≥ 1001 且 参数1 ≤ 1100)
信息框 (“新建” ＋ 到文本 (参数1 － 1000) ＋ “被按下”, #信息图标, , )



返回 (CallWindowProcA (指针, 句柄, 消息, 参数1, 参数2))  ' 将消息信息传送给指定的窗口过程的函数

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 指针, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 指针 ＝ SetWindowLongA (_启动窗口.取窗口句柄 (), -4, 到整数 (&窗口过程))  ' 改变指定窗口的属性<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 句柄, 整数型<br /> .局部变量 子句柄, 整数型<br /> .局部变量 ID, 整数型, 静态<br /> <br /> 句柄 ＝ 菜单_取句柄 (_启动窗口.取窗口句柄 ())<br /> 子句柄 ＝ 菜单_取子句柄 (句柄, 1)<br /> ID ＝ ID ＋ 1<br /> .如果真 (ID ＞ 1100)  ' 最多一百个<br />     返回 ()<br /> .如果真结束<br /> 菜单_添加 (菜单_取子句柄 (子句柄, 0), “新建” ＋ 到文本 (ID), , , 1000 ＋ ID)<br /> <br /> <br /> .子程序 窗口过程, 整数型<br /> .参数 句柄, 整数型<br /> .参数 消息, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> <br /> .如果真 (消息 ＝ 十六进制 (“0111”))  ' WM_COMMAND<br />     .判断开始 (参数1 ≥ 1001 且 参数1 ≤ 1100)<br />         信息框 (“新建” ＋ 到文本 (参数1 － 1000) ＋ “被按下”, #信息图标, , )<br />     .默认<br /> <br />     .判断结束<br /> <br /> .如果真结束<br /> 返回 (CallWindowProcA (指针, 句柄, 消息, 参数1, 参数2))  ' 将消息信息传送给指定的窗口过程的函数

效果：

例子.zip (1.21 MB, 下载次数: 1)

1 小时前 上传

点击文件名下载附件

Helpyou

zainex 发表于 2026-4-27 18:10
窗口子类化，通过 WM_COMMAND 消息区分按下的菜单项：
[e=1].版本 2

大佬，我删除了“这里哦”后 点击新建 就没反应了（加不上菜单）

刀子嘴豆腐心

用自己用窗口画，最灵活