• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[老狼] [旧帖]代码分享----PC按键----QUI界面控件循环赋值,再也不用一行... [复制链接]

1#

  • 解决控件循环赋值问题,再也不用一行行赋值[思路第一]

  • 效果预览

2. 代码下载
QQ1223116618.txt (, 下载次数:679)

最后编辑瑞祥幽冥狼 最后编辑于 2022-02-28 22:08:11
本主题由 超级版主 瑞祥幽冥狼 于 2022/3/12 19:33:57 执行 审核帖子 操作
收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
2#

学习下,简单

3#

学习学习

4#

好奇,那个"初始数字","结束数字"是个什么语法.还有就是,按键精灵里面调试没问题,但是打包小精灵之后就不行了,还会生成一个文件.
  1. Sub 赋值(控件名, 属性, 赋值内容)
  2. Dim i
  3. 脚本ID = GetMacroID()
  4. 程序路径 = GetExeDir() & "uservar.ini"
  5. For i =初始数字 To 结束数字
  6. Call Plugin.File.WriteINI(脚本ID, "Form1."&控件名&"."&属性,赋值内容,程序路径)     
  7. Next
  8. End Sub
  9. Sub 完成()
  10. Form1.LoadSetting
  11. End Sub
  12. Event Form1.Button1.Click
  13. For i = 2 To 5
  14. 赋值 "InputBox"&i,"Text","你好"&i    
  15. Next
  16. 赋值 "CheckBox1", "Value", "1"
  17. call BeginThread(完成)
  18. End Event
复制代码

5#

学习学习!~

发新话题 回复该主题