Emmanuele Sassi
0532c0c486
- gestione ribs completata - nuove funzionalita' introdotte su tabella TFS - correzioni e migliorie varie
60 lines
1.2 KiB
VB.net
60 lines
1.2 KiB
VB.net
Public Class MaterialVM
|
|
|
|
Private m_sName As String
|
|
Public ReadOnly Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_SectionTimeList As List(Of SectionTime)
|
|
Public ReadOnly Property SectionTimeList As List(Of SectionTime)
|
|
Get
|
|
Return m_SectionTimeList
|
|
End Get
|
|
End Property
|
|
End Class
|
|
|
|
Public Class SectionTime
|
|
|
|
Private m_dStrandW As Double
|
|
Public Property dStrandW As Double
|
|
Get
|
|
Return m_dStrandW
|
|
End Get
|
|
Set(value As Double)
|
|
m_dStrandW = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_dStrandH As Double
|
|
Public Property dStrandH As Double
|
|
Get
|
|
Return m_dStrandH
|
|
End Get
|
|
Set(value As Double)
|
|
m_dStrandH = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nMinTime As Integer
|
|
Public Property nMinTime As Integer
|
|
Get
|
|
Return m_nMinTime
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nMinTime = value
|
|
End Set
|
|
End Property
|
|
|
|
Private m_nMaxTime As Integer
|
|
Public Property nMaxTime As Integer
|
|
Get
|
|
Return m_nMaxTime
|
|
End Get
|
|
Set(value As Integer)
|
|
m_nMaxTime = value
|
|
End Set
|
|
End Property
|
|
|
|
End Class |