Emmanuele Sassi
65 lines
1.6 KiB
VB.net
65 lines
1.6 KiB
VB.net
Imports EgtUILib
|
|
|
|
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
|
|
|
|
Public Class SaveObjectParam
|
|
Friend nId As Integer
|
|
Friend sDir As String
|
|
Friend nType As NGE
|
|
|
|
Sub New(nId As Integer, sDir As String, nType As NGE)
|
|
Me.nId = nId
|
|
Me.sDir = sDir
|
|
Me.nType = nType
|
|
End Sub
|
|
|
|
End Class
|
|
|
|
Public Class NewMachOpParam
|
|
Friend bActive As Boolean = False
|
|
Friend SelMachOpId As Integer = GDB_ID.NULL
|
|
|
|
Sub New(bActive As Boolean, SelMachOpId As Integer)
|
|
Me.bActive = bActive
|
|
Me.SelMachOpId = SelMachOpId
|
|
End Sub
|
|
|
|
End Class |