' This is a "safe" class, meaning that it is created once ' and never overwritten. Any custom code you add to this class ' will be preserved when you regenerate your application. ' ' Typical customizations that may be done in this class include ' - adding custom event handlers ' - overriding base class methods Imports System.Data.SqlTypes Imports BaseClasses Imports BaseClasses.Data Imports BaseClasses.Data.SqlProvider Namespace Persons.Business ''' ''' Provides access to the schema information and record data of a database table (or view). ''' See for additional information. ''' ''' ''' See for additional information. ''' ''' This class is implemented using the Singleton design pattern. ''' ''' ''' This is a "safe" class, meaning that it is generated once and never overwritten. ''' Any changes you make to this class will be preserved when you regenerate your application. ''' ''' ''' ''' ''' ''' ''' ''' Public Class LanguageTable Inherits BaseLanguageTable Implements System.Runtime.Serialization.ISerializable, ISingleton #Region "ISerializable Members" ''' ''' Overridden to use the class ''' for deserialization of data. ''' ''' ''' Since the class is implemented using the Singleton design pattern, ''' this method must be overridden to prevent additional instances from being created during deserialization. ''' Protected Overridable Sub GetObjectData( _ ByVal info As System.Runtime.Serialization.SerializationInfo, _ ByVal context As System.Runtime.Serialization.StreamingContext _ ) Implements System.Runtime.Serialization.ISerializable.GetObjectData info.SetType(GetType(LanguageTable_SerializationHelper)) 'No other values need to be added End Sub #Region "Class LanguageTable_SerializationHelper" Private Class LanguageTable_SerializationHelper Implements System.Runtime.Serialization.IObjectReference 'Method called after this object is deserialized Public Function GetRealObject(ByVal context As System.Runtime.Serialization.StreamingContext) As Object _ Implements System.Runtime.Serialization.IObjectReference.GetRealObject Return LanguageTable.Instance End Function End Class #End Region #End Region ''' ''' References the only instance of the class. ''' ''' ''' Since the class is implemented using the Singleton design pattern, ''' this field is the only way to access an instance of the class. ''' Public Shared ReadOnly Instance As New LanguageTable() Private Sub New() MyBase.New() End Sub End Class ' LanguageTable End Namespace