Emmanuele Sassi
71 lines
1.5 KiB
VB.net
71 lines
1.5 KiB
VB.net
Public Class JsonWindowRow
|
|
|
|
Private m_nId As Integer
|
|
Public ReadOnly Property nId As Integer
|
|
Get
|
|
Return m_nId
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sName As String
|
|
Public ReadOnly Property sName As String
|
|
Get
|
|
Return m_sName
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dWidth As Double
|
|
Public ReadOnly Property dWidth As Double
|
|
Get
|
|
Return m_dWidth
|
|
End Get
|
|
End Property
|
|
|
|
Private m_dHeight As Double
|
|
Public ReadOnly Property dHeight As Double
|
|
Get
|
|
Return m_dHeight
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sImage As String
|
|
Public ReadOnly Property sImage As String
|
|
Get
|
|
Return m_sImage
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sWoodType As String
|
|
Public ReadOnly Property sWoodType As String
|
|
Get
|
|
Return m_sWoodType
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sColor As String
|
|
Public ReadOnly Property sColor As String
|
|
Get
|
|
Return m_sColor
|
|
End Get
|
|
End Property
|
|
|
|
Private m_sGlass As String
|
|
Public ReadOnly Property sGlass As String
|
|
Get
|
|
Return m_sGlass
|
|
End Get
|
|
End Property
|
|
|
|
Sub New(nId As Integer, sName As String, dWidth As Double, dHeight As Double, sImage As String, sWoodType As String, sColor As String, sGlass As String)
|
|
m_nId = nId
|
|
m_sName = sName
|
|
m_dWidth = dWidth
|
|
m_dHeight = dHeight
|
|
m_sImage = sImage
|
|
m_sWoodType = sWoodType
|
|
m_sColor = sColor
|
|
m_sGlass = sGlass
|
|
End Sub
|
|
|
|
End Class
|