Emmanuele Sassi
80 lines
2.0 KiB
VB.net
80 lines
2.0 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class CompoWindowVM
|
|
Inherits VMBase
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Enum CompoPageOpt As Integer
|
|
LIST
|
|
PARAM
|
|
End Enum
|
|
|
|
Friend m_SelCompoFamily As CompoItem = Nothing
|
|
Friend m_SelCompo As CompoItem = Nothing
|
|
|
|
Private m_CompoPage As CompoPageOpt
|
|
Public Property CompoPage As CompoPageOpt
|
|
Get
|
|
Return m_CompoPage
|
|
End Get
|
|
Set(value As CompoPageOpt)
|
|
m_CompoPage = value
|
|
If value = CompoPageOpt.LIST Then
|
|
CompoWindowMap.refCompoListPageVM.InitCompoListPage()
|
|
Else
|
|
CompoWindowMap.refCompoParamPageVM.InitCompoListPage()
|
|
End If
|
|
NotifyPropertyChanged("CompoPageControl")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_CompoListPageV As CompoListPageV
|
|
Private m_CompoParamPageV As CompoParamPageV
|
|
Public ReadOnly Property CompoPageControl As ContentControl
|
|
Get
|
|
If m_CompoPage = CompoPageOpt.LIST Then
|
|
Return m_CompoListPageV
|
|
Else
|
|
Return m_CompoParamPageV
|
|
End If
|
|
End Get
|
|
End Property
|
|
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property TitleMsg As String
|
|
Get
|
|
Return EgtMsg(MSG_IMPORTPAGEUC + 13)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Avvio l'inizializzazione della mappa passandogli il riferimento al CompoWindowVM
|
|
CompoWindowMap.BeginInit(Me)
|
|
' Creo pagina CompoList
|
|
m_CompoListPageV = New CompoListPageV
|
|
m_CompoListPageV.DataContext = New CompoListPageVM
|
|
' Creo pagina CompoParam
|
|
m_CompoParamPageV = New CompoParamPageV
|
|
m_CompoParamPageV.DataContext = New CompoParamPageVM
|
|
' Inizializzo e visualizzo per default la CompoListPage
|
|
CompoWindowMap.refCompoListPageVM.InitCompoListPage()
|
|
CompoPage = CompoPageOpt.LIST
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|