Emmanuele Sassi
44 lines
1.2 KiB
VB.net
44 lines
1.2 KiB
VB.net
Namespace EgtCAM5
|
|
|
|
Public Class PrepareInputBoxParam
|
|
Friend sTitle As String
|
|
Friend sLabel As String
|
|
Friend sCheckLabel As String
|
|
Friend bShowCombo As Boolean
|
|
Friend bShowBtn As Boolean
|
|
|
|
Sub New(ByVal sTitle As String, ByVal sLabel As String, ByVal sCheckLabel As String,
|
|
ByVal bShowCombo As Boolean, ByVal bShowBtn As Boolean)
|
|
Me.sTitle = sTitle
|
|
Me.sLabel = sLabel
|
|
Me.sCheckLabel = sCheckLabel
|
|
Me.bShowCombo = bShowCombo
|
|
Me.bShowBtn = bShowBtn
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class AddInputBoxComboParam
|
|
Friend sText As String
|
|
Friend bSelected As Boolean
|
|
|
|
Sub New(ByVal sText As String, ByVal bSelected As Boolean)
|
|
Me.sText = sText
|
|
Me.bSelected = bSelected
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class UpdateStatusGridParam
|
|
Friend m_bShowGrid As Boolean
|
|
Friend m_bShowGridFrame As Boolean
|
|
|
|
Sub New(ByVal bShowGrid As Boolean, bShowGridFrame As Boolean)
|
|
Me.m_bShowGrid = bShowGrid
|
|
Me.m_bShowGridFrame = bShowGridFrame
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
End Namespace
|