VB单例～

最新推荐文章于 2022-08-20 18:16:15 发布

zenowolf

最新推荐文章于 2022-08-20 18:16:15 发布

阅读量489

点赞数

文章标签： vb class function

本文链接：https://blog.csdn.net/raineo/article/details/4438299

版权

Imports Microsoft.VisualBasic
Imports System.Runtime.Serialization.Formatter
Imports System.Resources

<Serializable()> _
Public Class HashPageCode
    Private Shared _HashPageCode As New Hashtable
    Private Shared _ObjHashPageCode As HashPageCode = Nothing
    Private Sub New()
        '自社用
        '################自社用 BEGIN##############################
        '_HashPageCode.Add("ControlEdit.aspx", "01")

        '################自社用 END################################
        '
        '################顧客 BEGIN################################
        _HashPageCode.Add("Topics.aspx", "02")

'################顧客 END ################################

   End Sub
    Public Shared Function GetInstance() As Hashtable
        If _ObjHashPageCode Is Nothing Then
            _ObjHashPageCode = New HashPageCode()
        End If
        Return _HashPageCode
    End Function
End Class