全局变量，子程序怎样传递参数到main

luyu

[按键精灵] 纯文本查看 复制代码

dim n

Thread.Start (a)
Thread.Start (b)

Sub a()
    n = 1
    TracePrint "sub:"&n
End Sub

Function b()
    n = 2
    TracePrint "Function:"&n
    Exit Function
End Function

TracePrint "n:"&n

这两种办法，都没有办法返回n的值

求助怎样实现返回n值

紫猫

[按键精灵] 纯文本查看 复制代码

Dim 线程ID1, 线程ID2, i
i = 2
//设置全局共享键值
Thread.SetShareVar "我是键名", "我是键值"

//启动子线程,主线程与子线程之间的变量互不影响
线程ID1 = Thread.Start(多线程, 1, "紫猫编程学院")
Delay 100
TracePrint "在主线程中读取结果共享变量为:" &  Thread.GetShareVar("我是键名")

For i = 0 to 5
   TracePrint "主线程的i=" & i
   Delay 1000
Next 
//主线程停止，所有的子线程都会停止

Sub 多线程(序号, 显示内容)
   Dim s
   i = 100
   //读取全局共享键值
   s = Thread.GetShareVar("我是键名")
   TracePrint "在多线程中读取结果共享变量为:" & s
   TracePrint "在多线程中读取结果普通变量i为:" & i
End Sub

详见https://zimaoxy.com/m/post/thread.getsharevar/和https://zimaoxy.com/m/post/thread.setsharevar/