精易论坛

标题: 新手小白提问，源码求助！！！ [打印本页]

作者: yanzhaop 时间: 2016-4-29 10:37
标题: 新手小白提问，源码求助！！！
关于监视热键的问题

主要是监视超级列表框2热键

假如我要监视多个热键，  怎么写代码比较简洁清楚方便，  我这样写法太复杂了

比如我要监视很多个热键的话，  我就要弄很多个子程序 [运行代码1~3]

能不能帮忙改进下代码，  新手求助

昨天求助，  没有求助到！！！

作者: yanzhaop 时间: 2016-4-29 10:38

模块.rar (1.45 MB, 下载次数: 1)

源码.rar (491.31 KB, 下载次数: 8)

作者: 猥琐小胖子 时间: 2016-4-29 10:47
那段代码

子程序名	返回值类型	公开	备注
_选择框1_被单击

变量名	类型	静态	数组	备注
this_sz	子程序指针		0
re	整数型
rj_sz	整数型		0

如果 (选择框1.选中＝真)

this_sz ＝ { &运行代码1, &运行代码2, &运行代码3 }

计次循环首 (超级列表框2.取表项数 (), i)

如果真 (i ＞取数组成员数 (this_sz))

跳出循环 ()

加入成员 (RJ_SZ,监视热键2 (this_sz [i], 取代码 (超级列表框2.取标题 (i － 1, 2), )), )

计次循环尾 ()

计次循环首 (取数组成员数 (rj_sz), i)

撤消监视热键2 (rj_sz [i])

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

作者: 猥琐小胖子 时间: 2016-4-29 10:48
代码不知道怎么乱了。我截图吧。你复制上面自己替换再修改下。

补充内容 (2016-4-29 10:49):
加一个运行代码后，就去this_sz里面后面加一个。其他都不用改了

作者: 猥琐小胖子 时间: 2016-4-29 10:51
还有这边要打勾，静态。我上面代码漏了。没打勾就不能注销了。

作者: 猥琐小胖子 时间: 2016-4-29 10:52

作者: 呵呵仙 时间: 2016-4-29 10:56
没运行过。如果你的是对的话，按理这样是可以的。

作者: yanzhaop 时间: 2016-4-29 11:03

猥琐小胖子发表于 2016-4-29 10:48
代码不知道怎么乱了。我截图吧。你复制上面自己替换再修改下。

你好，小胖哥我不想要那么多运行代码1~3 子程序，只要一个，可以实现吗？？如果我要控制10个热键，那不是要写运行代码 1~10 10个子程序吗？？

作者: 呵呵仙 时间: 2016-4-29 11:03

监视.rar (241.02 KB, 下载次数: 6)

作者: 猥琐小胖子 时间: 2016-4-29 11:04

yanzhaop 发表于 2016-4-29 11:03
你好，小胖哥我不想要那么多运行代码1~3 子程序，只要一个，可以实现吗？？如果我要控制10 ...

可以的。我忘记看子程序了。只看上面。

作者: 猥琐小胖子 时间: 2016-4-29 11:06

yanzhaop 发表于 2016-4-29 11:03
你好，小胖哥我不想要那么多运行代码1~3 子程序，只要一个，可以实现吗？？如果我要控制10 ...

子程序名	返回值类型	公开	备注
运行代码
参数名	类型	参考	可空	数组	备注
sy	整数型

变量名	类型	静态	数组	备注
文本	文本型
内容	文本型		0
代码	文本型

路径＝超级列表框2.取标题 (sy, 3)
文本＝到文本 (读入文件 (路径))
内容＝分割文本 (文本, #换行符, )

计次循环首 (取数组成员数 (内容), i)

代码＝内容 [i]

计次循环尾 ()
返回 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

作者: 呵呵仙 时间: 2016-4-29 11:08

子程序名	返回值类型	公开	备注
_选择框1_被单击

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

如果 (选择框1.选中＝真)

重定义数组 (热键, 假, 0)

计次循环首 (超级列表框2.取表项数值 (), n)

表项索引＝ n － 1

加入成员 (热键, 监视热键2 (&运行代码, 取代码 (超级列表框2.取标题 (表项索引, 2), ), , , ))

计次循环尾 ()

c ＝取数组成员数 (热键)

如果真 (c ＜ 0)

计次循环首 (c, n)

撤消监视热键2 (热键 [n])

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

补充内容 (2016-4-29 11:09):
这句更新一下

补充内容 (2016-4-29 11:11):
c > 0 才对。

作者: 呵呵仙 时间: 2016-4-29 11:12

子程序名	返回值类型	公开	备注
_选择框1_被单击

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

如果 (选择框1.选中＝真)

重定义数组 (热键, 假, 0)

计次循环首 (超级列表框2.取表项数值 (), n)

表项索引＝ n － 1

加入成员 (热键, 监视热键2 (&运行代码, 取代码 (超级列表框2.取标题 (表项索引, 2), ), , , ))

计次循环尾 ()

c ＝取数组成员数 (热键)

如果真 (c ＞ 0)

计次循环首 (c, n)

撤消监视热键2 (热键 [n])

计次循环尾 ()

i支持库列表	支持库注释
iext	扩展界面支持库一

作者: QQ858302320 时间: 2016-4-29 11:18
中午回家帮你看看下，

作者: wokao 时间: 2016-4-29 11:18
试试这样可以不。

子程序名	返回值类型	公开	备注
监视

监视热键 (&逻辑功能, 1)
监视热键 (&逻辑功能, 1, 2)
监视热键 (&逻辑功能, 1, 4)

QQ截图20160429111721.png (45.52 KB, 下载次数: 8)

作者: wokao 时间: 2016-4-29 11:20
回复错人了么。。。。。。。。

作者: lgien123 时间: 2016-4-29 11:22
JB给我把，这个简单吧

.版本 2
.支持库 shellEx
.支持库 spec
.程序集窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #F键)
注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #A键)
注册热键 (取窗口句柄 (), 标签1.取窗口句柄 (), 0, #S键)
.子程序 _标签1_反馈事件, 整数型
.参数参数一, 整数型
.参数参数二, 整数型
调试输出 (参数一, 参数二)
.判断开始 (参数一＝ 33002)
调试输出 (“你按下了A键”)
.判断 (参数一＝ 33003)
调试输出 (“你按下了D键”)
.判断 (参数一＝ 33001)
调试输出 (“你按下了D键”)
.默认
.判断结束

复制代码

作者: yanzhaop 时间: 2016-4-29 11:33

呵呵仙发表于 2016-4-29 11:12
[e=4].版本 2
.支持库 iext

谢谢这位兄弟的帮助，代码有问题，我去测试了下，

作者: yanzhaop 时间: 2016-4-29 11:49

yanzhaop 发表于 2016-4-29 11:33
谢谢这位兄弟的帮助，代码有问题，我去测试了下，

你好，都测试 C>0 测试过了，也不行！

作者: yanzhaop 时间: 2016-4-29 11:49

猥琐小胖子发表于 2016-4-29 11:06
[e=1].版本 2
.支持库 iext

胖哥哥，你这个写法也不行！！

作者: 呵呵仙 时间: 2016-4-29 12:37

yanzhaop 发表于 2016-4-29 11:49
你好，都测试 C>0 测试过了，也不行！

哦.这就帮不了你了.是你说只想优化代码的.没考虑你上传时是否OK.

补充内容 (2016-4-29 12:38):
优化思路,就这样.

作者: yanzhaop 时间: 2016-4-29 13:13

呵呵仙发表于 2016-4-29 12:37
哦.这就帮不了你了.是你说只想优化代码的.没考虑你上传时是否OK.

补充内容 (2016-4-29 12:38):

谢谢！

作者: yanzhaop 时间: 2016-4-29 13:39

猥琐小胖子发表于 2016-4-29 11:06
[e=1].版本 2
.支持库 iext

胖哥哥，能不能帮帮我！

作者: yanzhaop 时间: 2016-4-29 17:42
没有人了！！

作者: Yulent 时间: 2016-4-29 20:40

s.rar (298.44 KB, 下载次数: 3)

欢迎光临精易论坛 (https://125.confly.eu.org/)