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