Imports System.IO Imports EgtUILib Public Class ProjectFileM 'Protected m_nProjectType As ProjectType 'Public ReadOnly Property nProjectType As ProjectType ' Get ' Return m_nProjectType ' End Get 'End Property 'Public Sub SetProjectType(nProjectType As ProjectType) ' m_nProjectType = nProjectType 'End Sub Protected m_nProjId As Integer = 0 Public ReadOnly Property nProjId As Integer Get Return m_nProjId End Get End Property Protected m_nProdId As Integer = 0 Public ReadOnly Property nProdId As Integer Get Return m_nProdId End Get End Property Protected m_dtCreateDate As DateTime Public ReadOnly Property dtCreateDate As DateTime Get Return m_dtCreateDate End Get End Property Protected m_bIsNew As Boolean Public Property bIsNew As Boolean Get Return m_bIsNew End Get Set(value As Boolean) m_bIsNew = value End Set End Property #Region "CONSTRUCTORS" 'Sub New(nProjectType As ProjectType, nProjId As Integer, nProdId As Integer, sBTLFileName As String) ' m_nProjectType = nProjectType ' If m_nProjectType = ProjectType.PROJ Then ' m_nProjId = nProjId ' m_nProdId = nProdId ' m_BTLFileName = sBTLFileName ' ElseIf m_nProjectType = ProjectType.PROD Then ' m_nProdId = nProdId ' End If 'End Sub #End Region ' CONSTRUCTORS End Class