VB.NET Singleton模式单件模式

Chobitssp

于 2012-09-14 12:08:23 发布

阅读量739

点赞数 1

分类专栏： OOP VB.Net 文章标签： vb.net locking class function

VB.Net 同时被 2 个专栏收录

18 篇文章

订阅专栏

OOP

10 篇文章

订阅专栏

本文深入探讨了Singleton模式的概念、作用及其在不同编程语言中的实现方式，包括双重检查锁定优化。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'Singleton模式
Public Class Singleton
    Private Shared uniqueInstance As New Singleton

    Private Sub New()

    End Sub

    Public Shared Function getInstance() As Singleton
        If uniqueInstance Is Nothing Then
            uniqueInstance = New Singleton
        End If
        Return uniqueInstance
    End Function

End Class

Public Class Singleton
    Private Shared _Singleton As Singleton = Nothing
    Private Shared _Mutex As New system.threading.Mutex '进程同步 

    Private Sub New()
        '类构造
    End Sub

    Public Shared Function Instance() As Singleton
        If _Singleton Is Nothing Then  'double-checked locking
            _Mutex.WaitOne()
            Try
                If _Singleton Is Nothing Then
                    _Singleton = New Singleton
                End If
            Finally
                _Mutex.ReleaseMutex()
            End Try
        End If
        Return _Singleton
    End Function
End Class