马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
×
本帖最后由 youaremysky 于 2022-3-8 18:28 编辑
[按键精灵] 纯文本查看 复制代码 DimEnv 数组(6),方案,识别(8,8)
Event Form1.Button1.Click
测试id = BeginThread(测试)
Delay 1000
传递id = BeginThread(传递)
End Event
Sub 测试
数组(4) = 1
方案='1,2,3,4'
方案array = split(方案, ',')
识别(1,1)=3
End Sub
Sub 传递
TracePrint 方案array(2)
TracePrint 数组(4)
TracePrint 识别(1,1)
End Sub
这里我想让数组变量传递到线程传递里，但是都不行。
调试信息是下界越标或者数据不匹配。。
请问应该怎么写才能多线程传递数组呢
我看了紫猫老师发的那个多线程传递数组的帖子
我自己写的报错.
[按键精灵] 纯文本查看 复制代码 Global 一个数组(2)
Event Form1.Button1.Click
测=BeginThread(主程序)
End Event
Sub 主程序
一个数组(1) = "老师"
TracePrint 一个数组(1)
Delay 1000
等=BeginThread(测试)
End Sub
Sub 测试()
TracePrint 一个数组(1)
End Sub
上面是我写的,运行报错
紫猫老师的部分,运行就完全没问题,我实在找不到这两者的差别在哪里,但是我写的那个就是要报错,报"下标越界: '[number: 1]'"
下面是紫猫老师帖子里提取的,运行没问题
[按键精灵] 纯文本查看 复制代码 Global 静态数组(2)
Event Form1.Button1.Click
测=BeginThread(主程序)
End Event
Sub 主程序
静态数组(1) = "老师"
TracePrint 静态数组(1)
Delay 1000
等=BeginThread(测试)
End Sub
Sub 测试()
TracePrint 静态数组(1)
End Sub
神奇的是,如果我在没问题的这个脚本里,用查找替换功能把"静态数组"换成其他的,同样报错.莫非只能用这四个字吗?
| 
发表于 2022-3-8 14:33:58
发表于 2022-3-10 14:55:57
