我們會在這篇文章中為大家詳細介紹VB.NET實現Singleton模式的具體方式，希望能對大家有所幫助。首先就先從一段代碼示例來對此進行星系的分析。Singleton模式:一個類只會創建一個實例。#t#

下面的代碼就是VB.NET實現Singleton模式:

1. Public Class SingletonClass Singleton  
2. Private Shared _Singleton As Singleton  
3. Private Shared _Mutex As New System.
   Threading.Mutex '同步基元也可用于進程間同步  
4. Private Sub New()Sub New()  
5. End Sub  
6. Public Shared Function GetInstance()
   Function GetInstance() As Singleton  
7. _Mutex.WaitOne() '當在派生類中重寫時，
   阻塞當前線程，直到當前的 System.Threading.
   WaitHandle 收到信號  
8. Try  
9. If _Singleton Is Nothing Then  
10. _Singleton = New Singleton  
11. End If  
12. Finally  
13. _Mutex.ReleaseMutex() '釋放 System.
    Threading.Mutex 一次  
14. End Try  
15. Return _Singleton  
16. End Function  
17. End Class 

VB.NET實現Singleton模式的相關實現方式就為大家介紹到這里。