我们会在这篇文章中为大家详细介绍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模式的相关实现方式就为大家介绍到这里。