Dario Sassi
77 lines
2.0 KiB
VB.net
77 lines
2.0 KiB
VB.net
Public Class OptionPanelVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Friend Enum Tabs As Integer
|
|
RAWPART = 0
|
|
NESTING = 1
|
|
MACHINING = 2
|
|
SIMUL = 3
|
|
End Enum
|
|
|
|
Private m_SelItem As Integer = -1
|
|
Public Property SelItem As Integer
|
|
Get
|
|
Return m_SelItem
|
|
End Get
|
|
Set(value As Integer)
|
|
' Esco dallo stato corrente
|
|
Select Case m_SelItem
|
|
Case Tabs.RAWPART
|
|
OmagOFFICEMap.refRawPartTabVM.ExitRawPart()
|
|
Case Tabs.NESTING
|
|
Case Tabs.MACHINING
|
|
Case Tabs.SIMUL
|
|
End Select
|
|
' Entro nel nuovo stato
|
|
m_SelItem = value
|
|
Select Case m_SelItem
|
|
Case Tabs.RAWPART
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
|
|
OmagOFFICEMap.refRawPartTabVM.InitRawPart()
|
|
Case Tabs.NESTING
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(True)
|
|
OmagOFFICEMap.refNestingTabVM.InitNesting()
|
|
Case Tabs.MACHINING
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
|
|
Case Tabs.SIMUL
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
|
|
End Select
|
|
NotifyPropertyChanged("SelItem")
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property RawPartTabMsg As String
|
|
Get
|
|
Return "Grezzo"
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property NestingTabMsg As String
|
|
Get
|
|
Return "Disposizione"
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property MachiningTabMsg As String
|
|
Get
|
|
Return "Lavorazione"
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in OmagOFFICEMap
|
|
OmagOFFICEMap.SetRefOptionPanelVM(Me)
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
End Class
|