子程序大概如下
public sub StartRun(Index as long)
text1.text = "ok"
end sub用 CreateThread 创建线程
ID = CreateThreadL(0, 0, AddressOf StartRun, 0&, CREATE_SUSPENDED, ThreadID)问题:如何传递参数给 StartRun 就在单进程下
dim Index
Index = 100
StartRun Index
一样!
public sub StartRun(Index as long)
text1.text = "ok"
end sub用 CreateThread 创建线程
ID = CreateThreadL(0, 0, AddressOf StartRun, 0&, CREATE_SUSPENDED, ThreadID)问题:如何传递参数给 StartRun 就在单进程下
dim Index
Index = 100
StartRun Index
一样!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货