想实现两个快捷键独立控制两个子程序，应该怎么写？

summer0411

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
记录	整数型
记录1	整数型
句柄	整数型
句柄1	整数型

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

注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F8键 )
' 注册热键 (_启动窗口.取窗口句柄 (), 标签2.取窗口句柄 (), 0, #F9键)

子程序名	返回值类型	公开	备 注
_标签1_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

如果 (记录 ＝ 0)  ' 0为停止，1为开启，判断记录是否为停止
调试输出 (“开始”)
记录 ＝ 1  ' 是停止，然后把记录设置为1，打开状态
启动线程 (&执行脚本1, , 句柄)
记录 ＝ 0  ' 不是停止，时钟正在运行，设置记录为关闭状态
调试输出 (“停止”)
强制结束线程 (句柄)

子程序名	返回值类型	公开	备 注
_标签2_反馈事件	整数型
参数名	类 型	参考	可空	数组	备 注
参数一	整数型
参数二	整数型

如果 (记录1 ＝ 0)  ' 0为停止，1为开启，判断记录是否为停止
调试输出 (“开始”)
记录1 ＝ 1  ' 是停止，然后把记录设置为1，打开状态
启动线程 (&执行脚本2, , 句柄1)
记录1 ＝ 0  ' 不是停止，时钟正在运行，设置记录为关闭状态
调试输出 (“停止”)
强制结束线程 (句柄1)

子程序名	返回值类型	公开	备 注
执行脚本1

编辑框1.内容 ＝ “脚本1执行了”

子程序名	返回值类型	公开	备 注
执行脚本2

编辑框2.内容 ＝ “脚本2执行了”

i支持库列表	支持库注释
shellEx	扩展功能支持库一
spec	特殊功能支持库
EThread	多线程支持库

.版本 2<br /> .支持库 shellEx<br /> .支持库 spec<br /> .支持库 EThread<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 记录, 整数型<br /> .程序集变量 记录1, 整数型<br /> .程序集变量 句柄, 整数型<br /> .程序集变量 句柄1, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> <br /> <br /> 注册热键 (_启动窗口.取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F8键)<br /> ' 注册热键 (_启动窗口.取窗口句柄 (), 标签2.取窗口句柄 (), 0, #F9键)<br /> <br /> <br /> .子程序 _标签1_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> <br /> .如果 (记录 ＝ 0)  ' 0为停止，1为开启，判断记录是否为停止<br />     调试输出 (“开始”)<br />     记录 ＝ 1  ' 是停止，然后把记录设置为1，打开状态<br />     启动线程 (&执行脚本1, , 句柄)<br /> .否则<br />     记录 ＝ 0  ' 不是停止，时钟正在运行，设置记录为关闭状态<br />     调试输出 (“停止”)<br />     强制结束线程 (句柄)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _标签2_反馈事件, 整数型<br /> .参数 参数一, 整数型<br /> .参数 参数二, 整数型<br /> <br /> <br /> .如果 (记录1 ＝ 0)  ' 0为停止，1为开启，判断记录是否为停止<br />     调试输出 (“开始”)<br />     记录1 ＝ 1  ' 是停止，然后把记录设置为1，打开状态<br />     启动线程 (&执行脚本2, , 句柄1)<br /> .否则<br />     记录1 ＝ 0  ' 不是停止，时钟正在运行，设置记录为关闭状态<br />     调试输出 (“停止”)<br />     强制结束线程 (句柄1)<br /> .如果结束<br /> <br /> <br /> <br /> <br /> <br /> .子程序 执行脚本1<br /> <br /> 编辑框1.内容 ＝ “脚本1执行了”<br /> <br /> <br /> <br /> .子程序 执行脚本2<br /> <br /> 编辑框2.内容 ＝ “脚本2执行了”

想实现快捷键F8和F9独立控制子程序运行，互不干扰应该怎么写？

LEOONL

监视按键.e (3.42 KB, 下载次数: 10)

2024-11-25 10:35 上传

点击文件名下载附件