If wbtm = True Then
    wbwr.PerformClick
    Dim Proc As New Process
    Proc.File = "bartend.exe" \'指定要执行的文件
    Proc.Arguments = "D:\\机油泵程序\\东风外包条码.btw" 
    Proc.Start()
    Proc.WaitForExit()
End If
If gstm = True Then
    gswr.PerformClick
    Dim Procb As New Process
    Procb.File = "bartend.exe" \'指定要执行的文件
    Procb.Arguments = "D:\\机油泵程序\\公司条码.btw"
    Procb.Start()
End If
nbwr.PerformClick

调用 第三方程序,打印是需要等待时间的,如果只调用一次,则一些小延时对前台程序运行,如连续扫描条码无任何影响.

但是如果扫描一个条码时,要打印两张条码时,就要使用Proc.WaitForExit() 了不然只能打印一张条码.

使用了Proc.WaitForExit() 则在这等待过程中 后续程序要待他执行完成才能继续运行,显得有点卡顿了. 要是能启用多线程就行了,只管提交打印任务.不等待就好

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

全局代码

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")

加上了这句proc.WaitForExit 不还是一新的效果?

 每次调用还要等待

现在我一种条码每扫描4个打印一次,有一种条码扫描一次打印一次

我在一种条码每扫描4个打印一次后面加上等待完成,则每扫描四个条码时,卡一次零点几秒. 其它的时候没有任何卡顿的

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

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

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

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

多线程操作 我是这样写的，但执行的时候 报，将string() 转换成string 错误

呃......

Dim ary() = args(0)

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

学到不少东西了谢谢

不过还有一个问题没解决

\'提交1

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

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

\'提交2

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

Dim nthread1 As New System.Threading.Thread(AddressOf thread_sub1)
nthread1.start(ary1)

同时提交两个打印任务时,只执行了第一个. 两个分开提交的时候正常.

如扫描第1个时,要执行,1,2两个,只执行了1 没执行2.   这个如何解决?

扫描2-4个时,只提交2,2有执行.

思路本身就不合理

建一个队列，扫描负责压入（要打印几次就压入几次），打印负责提取打印