Emmanuele Sassi
a5da2894e7
- Introduzione Db lavorazioni - Gestione selezionati su lista layer - Gestione media su lista layer
47 lines
962 B
VB.net
47 lines
962 B
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
|
|
TFSEDITOR = 4
|
|
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)
|
|
m_SelPanel = Panel
|
|
Select Case Panel
|
|
Case Panels.NULL
|
|
|
|
Case Panels.MATERIALDB
|
|
|
|
Case Panels.PRINTPARAMDB
|
|
|
|
Case Panels.TFSEDITOR
|
|
'Map.refTFSEditorVM.Refresh()
|
|
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
|