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 FunctionEnd Class