取鼠标滑动热点菜单项标题 - 精易论坛

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

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

启动捕获菜单消息 ()

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

窗口过程＝设置窗口过程 (_启动窗口.取窗口句柄 (), -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))