CSDN-CSDN社区-.NET技术-VB.NET
Private Sub DoOutput() Dim thrOutput As New Thread(AddressOf DoOutputThread) thrOutput.Start(excel) End sub Private Sub DoOutputThread(ByVal obj As Object) Try '操作 Catch ex As Exception '处理 Finally '终止当前线程 Thread.CurrentThread.Abort() End Try End Sub
得分回复需要阅读,请登录CSDN!