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
子句中完成的。好的。我会再试一次。但是在我的情况下,我需要始终检查这些函数才能完成这项工作。我不知道如何解决它。