全局代码
Public Sub thread_sub1(ByVal obj As Object)
functions. Execute("多线程操作", obj)
End Sub
内部函数
Do While True
If vars("队列").Count > 0 Then
Dim 内容 As String = vars("队列")(0)
Dim proc As new Process
proc.File = "notepad"
proc.Start
output.show(内容)
proc.WaitForExit
vars("队列").RemoveAt(0)
End If
Loop
调用代码
vars("线程") = New System.Threading.Thread(AddressOf thread_sub1)
vars("队列") = new List(Of String)
vars("队列").Add("1")
vars("队列").Add("2")
vars("队列").Add("3")
vars("线程").start(Nothing)
vars("队列").Add("4")
vars("队列").Add("5")
vars("队列").Add("6")
'vars("线程").Abort '结束线程