Emmanuele Sassi
72 lines
1.6 KiB
VB.net
72 lines
1.6 KiB
VB.net
Imports System.Globalization
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class RightPanelVM
|
|
Inherits VMBase
|
|
|
|
Public Enum Panels As Integer
|
|
NULL = 0
|
|
MATERIALDB = 1
|
|
CURRPRINTPARAM = 2
|
|
PRINTPARAMDB = 3
|
|
RIBPARAM = 4
|
|
SHELLNUMBERPARAM = 5
|
|
AUXSOLIDPARAM = 6
|
|
TFSEDITOR = 7
|
|
SIMULATION = 8
|
|
End Enum
|
|
|
|
Private m_SelPanel As Panels
|
|
Public Property SelPanel As Integer
|
|
Get
|
|
Return m_SelPanel
|
|
End Get
|
|
Set(value As Integer)
|
|
m_SelPanel = value
|
|
End Set
|
|
End Property
|
|
Friend Sub SetSelPanel(Panel As Panels)
|
|
If Panel = m_SelPanel Then Return
|
|
Select Case m_SelPanel
|
|
Case Panels.NULL
|
|
|
|
Case Panels.MATERIALDB
|
|
|
|
Case Panels.PRINTPARAMDB
|
|
|
|
Case Panels.RIBPARAM
|
|
|
|
Case Panels.TFSEDITOR
|
|
|
|
Case Panels.SIMULATION
|
|
Map.refSimulationPanelVM.ExitSimulation()
|
|
End Select
|
|
m_SelPanel = Panel
|
|
Select Case Panel
|
|
Case Panels.NULL
|
|
|
|
Case Panels.MATERIALDB
|
|
|
|
Case Panels.PRINTPARAMDB
|
|
|
|
Case Panels.RIBPARAM
|
|
Map.refRibParamPanelVM.Init()
|
|
Case Panels.SHELLNUMBERPARAM
|
|
Map.refShellNumberParamPanelVM.Init()
|
|
Case Panels.TFSEDITOR
|
|
'Map.refTFSEditorVM.Refresh()
|
|
Case Panels.SIMULATION
|
|
Map.refSimulationPanelVM.InitSimulation()
|
|
End Select
|
|
NotifyPropertyChanged(NameOf(SelPanel))
|
|
End Sub
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in EgtCAM5Map
|
|
Map.SetRefRightPanelVM(Me)
|
|
SetSelPanel(Panels.NULL)
|
|
End Sub
|
|
|
|
End Class
|