Emmanuele Sassi
134 lines
3.8 KiB
VB.net
134 lines
3.8 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_RawTabIsEnabled As Boolean = True
|
|
Public Property RawTabIsEnabled As Boolean
|
|
Get
|
|
Return m_RawTabIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_RawTabIsEnabled = value
|
|
NotifyPropertyChanged("RawTabIsEnabled")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_NestTabIsEnabled As Boolean = True
|
|
Public Property NestTabIsEnabled As Boolean
|
|
Get
|
|
Return m_NestTabIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_NestTabIsEnabled = value
|
|
NotifyPropertyChanged("NestTabIsEnabled")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_MachTabIsEnabled As Boolean = True
|
|
Public Property MachTabIsEnabled As Boolean
|
|
Get
|
|
Return m_MachTabIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_MachTabIsEnabled = value
|
|
NotifyPropertyChanged("MachTabIsEnabled")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_SimulTabIsEnabled As Boolean = True
|
|
Public Property SimulTabIsEnabled As Boolean
|
|
Get
|
|
Return m_SimulTabIsEnabled
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_SimulTabIsEnabled = value
|
|
NotifyPropertyChanged("SimulTabIsEnabled")
|
|
End Set
|
|
End Property
|
|
|
|
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
|
|
OmagOFFICEMap.refMachiningTabVM.ExitMachining()
|
|
Case Tabs.SIMUL
|
|
OmagOFFICEMap.refSimulTabVM.ExitSimulation()
|
|
End Select
|
|
' Entro nel nuovo stato
|
|
m_SelItem = value
|
|
Select Case m_SelItem
|
|
Case Tabs.RAWPART
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
|
|
OmagOFFICEMap.refRawPartTabVM.InitRawPart()
|
|
OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
|
|
Case Tabs.NESTING
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(True)
|
|
OmagOFFICEMap.refNestingTabVM.InitNesting()
|
|
OmagOFFICEMap.refTopCommandBarVM.IsEnabled = True
|
|
Case Tabs.MACHINING
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
|
|
OmagOFFICEMap.refMachiningTabVM.InitMachining()
|
|
OmagOFFICEMap.refTopCommandBarVM.IsEnabled = False
|
|
Case Tabs.SIMUL
|
|
OmagOFFICEMap.refMachGroupPanelVM.SetMachGroupState(False)
|
|
OmagOFFICEMap.refSimulTabVM.InitSimulation()
|
|
OmagOFFICEMap.refTopCommandBarVM.IsEnabled = 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 "Disponi"
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property MachiningTabMsg As String
|
|
Get
|
|
Return "Lavora"
|
|
End Get
|
|
End Property
|
|
Public ReadOnly Property SimulTabMsg As String
|
|
Get
|
|
Return "Simula"
|
|
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
|