主题：调用第三方程序可以多线程不.

自己弄一个线程执行就好。

全局代码

Public Sub thread_sub1(ByVal obj As Object)
    functions. Execute("多线程操作", obj)
End Sub

内部函数

Dim proc As new Process
proc.File = args(0)
proc.Start
proc.WaitForExit

调用代码

Dim nthread As New System.Threading.Thread(AddressOf thread_sub1)
nthread.start("notepad")

作为参数传入。任意参数都可以

Dim ary() As string = {"bartend.exe", "D:\机油泵程序\公司条码.btw"}

Dim nthread As New System.Threading.Thread(AddressOf thread_sub1)
nthread.start(ary)

呃......

Dim ary() = args(0)

Dim Pro As New Process
Pro.File = ary(0)
Pro.Arguments = ary(1)
Pro.Start()
pro.WaitForExit

全局代码

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

调用代码