21 lines
516 B
VB.net
21 lines
516 B
VB.net
|
''' <summary>
|
||
|
|
''' The base for XmlEntity.vb and Entity.vb
|
||
|
|
''' </summary>
|
||
|
|
Public MustInherit Class BaseEntity
|
||
|
|
|
||
|
|
Public Enum EntityTypes
|
||
|
|
XmlEntity
|
||
|
|
Entity
|
||
|
|
End Enum
|
||
|
|
|
||
|
|
Private _entityType As EntityTypes
|
||
|
|
|
||
|
|
''' <summary>
|
||
|
|
''' Creates a new instance of the BaseEntity class.
|
||
|
|
''' </summary>
|
||
|
|
''' <param name="EntityType">The type of entity the super of this class is.</param>
|
||
|
|
Public Sub New(ByVal EntityType As EntityTypes)
|
||
|
|
Me._entityType = EntityType
|
||
|
|
End Sub
|
||
|
|
|
||
|
End Class
|