Emmanuele Sassi
63 lines
1.4 KiB
VB.net
63 lines
1.4 KiB
VB.net
Imports System.Globalization
|
|
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class LeftPanelVM
|
|
Inherits VMBase
|
|
|
|
Public Enum Panels As Integer
|
|
NULL = 0
|
|
IMPORT = 1
|
|
DISPOSITION = 2
|
|
REFERENCE = 3
|
|
STARTMACH = 4
|
|
RIBS = 5
|
|
SHELLNUMBER = 6
|
|
AUXSOLIDS = 7
|
|
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)
|
|
' esco da modalita' precedente
|
|
Select Case m_SelPanel
|
|
Case Panels.IMPORT
|
|
|
|
Case Panels.DISPOSITION
|
|
|
|
Case Panels.STARTMACH
|
|
Map.refStartMachPanelVM.Dispose()
|
|
Case Panels.RIBS
|
|
Map.refRibPanelVM.Dispose()
|
|
End Select
|
|
m_SelPanel = Panel
|
|
Select Case Panel
|
|
Case Panels.IMPORT
|
|
|
|
Case Panels.DISPOSITION
|
|
Map.refDispositionPanelVM.Init()
|
|
Case Panels.REFERENCE
|
|
Map.refReferencePanelVM.Init()
|
|
Case Panels.STARTMACH
|
|
Map.refStartMachPanelVM.Init()
|
|
Case Panels.RIBS
|
|
Map.refRibPanelVM.Init()
|
|
End Select
|
|
NotifyPropertyChanged(NameOf(SelPanel))
|
|
End Sub
|
|
|
|
Sub New()
|
|
' Creo riferimento a questa classe in EgtCAM5Map
|
|
Map.SetRefLeftPanelVM(Me)
|
|
SetSelPanel(Panels.NULL)
|
|
End Sub
|
|
|
|
End Class
|