vb.net互斥类引发异常错误
我发现错误代码“由于放弃互斥,等待已完成..有人能告诉我如何解决它吗?” 代码如下:vb.net互斥类引发异常错误,vb.net,Vb.net,我发现错误代码“由于放弃互斥,等待已完成..有人能告诉我如何解决它吗?” 代码如下: Try gcLog.log(" UseResource Start[1]") ltWaitTimeSpan = New System.TimeSpan(0, 0, 20) gcLog.log(" UseResource Start[3]") If mut.WaitOne(ltWaitTimeSpan, True) Then Thread_Status =
Try
gcLog.log(" UseResource Start[1]")
ltWaitTimeSpan = New System.TimeSpan(0, 0, 20)
gcLog.log(" UseResource Start[3]")
If mut.WaitOne(ltWaitTimeSpan, True) Then
Thread_Status = True
Thread_Status_Chk_Count = 0
gcLog.log(Thread.CurrentThread.Name + " Thread Start !!![2]")
lsWorkInstID = Thread.CurrentThread.Name
gcCommon.IsWorkSheetIDExist(Thread.CurrentThread.Name)
gcMsgQue.mnDisMsgInfo2Label_Active(lsWorkInstID)
gcLog.log(" UseResource Start[2]")
Dim loSeqManage As clsSeqManage
loSeqManage = New clsSeqManage
If Not loSeqManage.bReadMsgFmDb(lsWorkInstID, lsLotID) Then
'gcLog.log(" UseResource Start[3]")
Thread_Status = False
Else
Dim loOutput2Prt As New clsOutput(lsLotID,gtMsgQueueEvent.sCryFileName)
loOutput2Prt.SetVariable()
'gcLog.log(" UseResource Start[4]")
If (loOutput2Prt.Output2PrtAuto And Not loOutput2Prt.GetMoreBatchFlag)
Then
gcLog.log(Thread.CurrentThread.Name + " Delete Record !!!")
Call loOutput2Prt.bDeleteMsgFmBuf()
End If
gcLog.log(Thread.CurrentThread.Name + " Thread Release !!![22]")
Thread_Status = False
mut.ReleaseMutex()
End If
End If
Catch ex As Exception
gcLog.log("UseResource : " + ex.Message & vbLf & ex.TargetSite.Name)
Call gfncCallError("2", "PrintFormServer", "UseResource : " + ex.Message & ""& ex.TargetSite.Name)
Thread_Status = False
End Try
在任何情况下都要确保释放互斥。不仅仅是在满足某个条件的情况下。通常这是在
Try
语句的Finally
子句中完成的。好的。我会再试一次。但是在我的情况下,我需要始终检查这些函数才能完成这项工作。我不知道如何解决它。