Nicola Pievani
51 lines
1.1 KiB
VB.net
51 lines
1.1 KiB
VB.net
Public Class CompoType
|
|
|
|
Private m_Name As String
|
|
Public ReadOnly Property Name As String
|
|
Get
|
|
Return m_Name
|
|
End Get
|
|
End Property
|
|
Public Sub SetName(Name As String)
|
|
m_Name = Name
|
|
End Sub
|
|
|
|
Private m_DDFName As String
|
|
Public ReadOnly Property DDFName As String
|
|
Get
|
|
Return m_DDFName
|
|
End Get
|
|
End Property
|
|
Public Sub SetDDFName(DDFName As String)
|
|
m_DDFName = DDFName
|
|
End Sub
|
|
|
|
Private m_Path As String
|
|
Public ReadOnly Property Path As String
|
|
Get
|
|
Return m_Path
|
|
End Get
|
|
End Property
|
|
Public Sub SetPath(Path As String)
|
|
m_Path = Path
|
|
End Sub
|
|
|
|
Private m_JambSide As String
|
|
Public ReadOnly Property JambSide As String
|
|
Get
|
|
Return m_JambSide
|
|
End Get
|
|
End Property
|
|
Public Sub SetJambSide(JambSide As String)
|
|
m_JambSide = JambSide
|
|
End Sub
|
|
|
|
Sub New(sName As String, sDDFName As String, sPath As String, sJambSide As String)
|
|
m_Name = sName
|
|
m_DDFName = sDDFName
|
|
m_Path = sPath
|
|
m_JambSide = sJambSide
|
|
End Sub
|
|
|
|
End Class
|