Public Class PzscSingleHandler Private Sub New() End Sub Private Shared instanceList As New System.Collections.Generic.Dictionary(Of Guid, PzscSingleHandler) Private Shared obj As New Object() ''' <summary> ''' 根据项目GUID获取实例 ''' </summary> ''' <param name="projGUID"></param> ''' <returns></returns> Public Shared Function GetInstance(ByVal projGUID As Guid) As PzscSingleHandler If projGUID = Guid.Empty Then Return Nothing End If SyncLock (obj) If Not instanceList.ContainsKey(projGUID) Then instanceList.Add(projGUID, New PzscSingleHandler()) End If Return instanceList(projGUID) End SyncLock End Function Public Function test() As String Return "" End Function End Class