取鼠标滑动热点菜单项标题

Efly

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
窗口过程	整数型
鼠标经过时候的标题名字	文本型
鼠标点击时候的标题名字	文本型

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

启动捕获菜单消息 ()

子程序名	返回值类型	公开	备 注
启动捕获菜单消息

窗口过程 ＝ 设置窗口过程 (_启动窗口.取窗口句柄 (), -4, 到整数 (&处理菜单事件))

子程序名	返回值类型	公开	备 注
处理菜单事件	整数型
参数名	类 型	参考	可空	数组	备 注
句柄	整数型
消息	整数型
参数1	整数型
参数2	整数型

判断 (消息 ＝ #WM_COMMAND 且 参数2 ＝ 0)  ' 窗口菜单被选择
信息框 (鼠标点击时候的标题名字, 0, , )
判断 (消息 ＝ #WM_MENUSELECT )  ' 鼠标经过菜单
如果真 (参数2 ≠ 0)
鼠标点击时候的标题名字 ＝ 菜单_取标题 (指针_取低16位 (参数2), 指针_取低16位 (参数1))
鼠标经过时候的标题名字 ＝ 菜单_取标题 (指针_取低16位 (参数2), 指针_取低16位 (参数1))
调试输出 (鼠标经过时候的标题名字, 指针_取低16位 (参数1))
' 其中一个用途：
判断 (鼠标经过时候的标题名字 ＝ “菜单1”)
标题 ＝ “这是第一个一级菜单的标题”
判断 (鼠标经过时候的标题名字 ＝ “菜单2”)
标题 ＝ “菜单2是用来复制文本的”
判断 (鼠标经过时候的标题名字 ＝ “菜单3_1”)
标题 ＝ “菜单3_1是用来剪切文本的”
判断 (鼠标经过时候的标题名字 ＝ “菜单3_2”)
标题 ＝ “菜单3_2也是用来剪切文本的”
判断 (鼠标经过时候的标题名字 ＝ “菜单4”)
标题 ＝ “这是第二个一级菜单的标题”
判断 (鼠标经过时候的标题名字 ＝ “菜单5”)
标题 ＝ “菜单5是用来打开文件的”
判断 (鼠标经过时候的标题名字 ＝ “菜单6”)
标题 ＝ “菜单6是用来克隆文件的”
判断 (鼠标经过时候的标题名字 ＝ “菜单7”)
标题 ＝ “菜单7是用来转移文件的”
判断 (鼠标经过时候的标题名字 ＝ “菜单8”)
标题 ＝ “菜单8是用来关闭文件的”
判断 (鼠标经过时候的标题名字 ＝ “菜单9”)
标题 ＝ “菜单9是用来粘贴文本的”





返回 (呼叫窗口函数地址_ (窗口过程, 句柄, 消息, 参数1, 参数2))

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 窗口过程, 整数型<br /> .程序集变量 鼠标经过时候的标题名字, 文本型<br /> .程序集变量 鼠标点击时候的标题名字, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 启动捕获菜单消息 ()<br /> <br /> .子程序 启动捕获菜单消息<br /> <br /> 窗口过程 ＝ 设置窗口过程 (_启动窗口.取窗口句柄 (), -4, 到整数 (&处理菜单事件))<br /> <br /> .子程序 处理菜单事件, 整数型<br /> .参数 句柄, 整数型<br /> .参数 消息, 整数型<br /> .参数 参数1, 整数型<br /> .参数 参数2, 整数型<br /> <br /> .判断开始 (消息 ＝ #WM_COMMAND 且 参数2 ＝ 0)  ' 窗口菜单被选择<br />     信息框 (鼠标点击时候的标题名字, 0, , )<br /> .判断 (消息 ＝ #WM_MENUSELECT)  ' 鼠标经过菜单<br />     .如果真 (参数2 ≠ 0)<br />         鼠标点击时候的标题名字 ＝ 菜单_取标题 (指针_取低16位 (参数2), 指针_取低16位 (参数1))<br />     .如果真结束<br />     鼠标经过时候的标题名字 ＝ 菜单_取标题 (指针_取低16位 (参数2), 指针_取低16位 (参数1))<br />     调试输出 (鼠标经过时候的标题名字, 指针_取低16位 (参数1))<br />     ' 其中一个用途：<br />     .判断开始 (鼠标经过时候的标题名字 ＝ “菜单1”)<br />         标题 ＝ “这是第一个一级菜单的标题”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单2”)<br />         标题 ＝ “菜单2是用来复制文本的”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单3_1”)<br />         标题 ＝ “菜单3_1是用来剪切文本的”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单3_2”)<br />         标题 ＝ “菜单3_2也是用来剪切文本的”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单4”)<br />         标题 ＝ “这是第二个一级菜单的标题”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单5”)<br />         标题 ＝ “菜单5是用来打开文件的”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单6”)<br />         标题 ＝ “菜单6是用来克隆文件的”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单7”)<br />         标题 ＝ “菜单7是用来转移文件的”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单8”)<br />         标题 ＝ “菜单8是用来关闭文件的”<br />     .判断 (鼠标经过时候的标题名字 ＝ “菜单9”)<br />         标题 ＝ “菜单9是用来粘贴文本的”<br />     .默认<br /> <br />     .判断结束<br /> <br /> .默认<br /> <br /> .判断结束<br /> 返回 (呼叫窗口函数地址_ (窗口过程, 句柄, 消息, 参数1, 参数2))

取鼠标滑动热点菜单项标题.e (984.93 KB, 下载次数: 35)

2020-6-28 12:54 上传

点击文件名下载附件
自己配置个精易模块就行了

siyue

支持

易容颜

感谢感谢感谢感谢

舞影无踪

这个我点了！

283688410

谢谢楼主分享开源

PNut

支持一下

a5538779

学习感谢分享

js333

学习感谢分享

希纱

感觉 ... 好像用处不大

李泽勇2

感谢分享源码！！