Dario Sassi
150 lines
3.4 KiB
VB.net
150 lines
3.4 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
Imports EgtWPFLib5.MachiningTreeViewItem
|
|
|
|
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
|
|
|
|
Public Class InfoItem
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Friend nId As Integer
|
|
''' <summary>
|
|
''' Indice lista info note
|
|
''' </summary>
|
|
Public ReadOnly Property Id As Integer
|
|
Get
|
|
Return Id
|
|
End Get
|
|
End Property
|
|
|
|
Friend sKey As String
|
|
''' <summary>
|
|
''' Chiave lista info note
|
|
''' </summary>
|
|
Public ReadOnly Property Key As String
|
|
Get
|
|
Return sKey
|
|
End Get
|
|
End Property
|
|
|
|
Friend sValue As String
|
|
''' <summary>
|
|
''' Valore lista info note
|
|
''' </summary>
|
|
Public Property Value As String
|
|
Get
|
|
Return sValue
|
|
End Get
|
|
Set(value As String)
|
|
sValue = value
|
|
NotifyPropertyChanged(NameOf(Value))
|
|
End Set
|
|
End Property
|
|
|
|
#End Region ' Fields & Properties
|
|
|
|
' Comandi
|
|
Private m_cmdDoneInfo As ICommand
|
|
|
|
#Region "CONSTRUCTORS"
|
|
|
|
Sub New(nId As Integer, sKey As String, sValue As String)
|
|
Me.nId = nId
|
|
Me.sKey = sKey
|
|
Me.sValue = sValue
|
|
End Sub
|
|
|
|
#End Region ' Constructors
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "DoneInfoCommand"
|
|
|
|
''' <summary>
|
|
''' Comando per la conferma modifica o aggiunta nuova informazione
|
|
''' </summary>
|
|
Public ReadOnly Property DoneInfoCommand As ICommand
|
|
Get
|
|
If m_cmdDoneInfo Is Nothing Then
|
|
m_cmdDoneInfo = New Command(AddressOf DoneInfo)
|
|
End If
|
|
Return m_cmdDoneInfo
|
|
End Get
|
|
End Property
|
|
|
|
''' <summary>
|
|
''' Conferma modifica o aggiunta nuova informazione
|
|
''' </summary>
|
|
Public Sub DoneInfo(ByVal param As Object)
|
|
Map.refInputExpanderVM.Done(Me)
|
|
End Sub
|
|
|
|
#End Region ' DoneInfoCommand
|
|
|
|
#End Region ' Commands
|
|
|
|
End Class |