Dario Sassi
30 lines
944 B
VB.net
30 lines
944 B
VB.net
|
|
Public Class MainWindowViewModel
|
|
|
|
' Modello del MainWindow (classe vera e propria)
|
|
Private m_MainWindowModel As New MainWindowModel
|
|
|
|
Private m_CompoPanel As CompoPanelView
|
|
Public ReadOnly Property CompoPanel As CompoPanelView
|
|
Get
|
|
If IsNothing(m_CompoPanel) Then
|
|
m_CompoPanel = New CompoPanelView
|
|
m_CompoPanel.DataContext = New CompoPanelViewModel(m_MainWindowModel.m_Door)
|
|
End If
|
|
Return m_CompoPanel
|
|
End Get
|
|
End Property
|
|
|
|
Private m_DoorParameters As DoorParametersView
|
|
Public ReadOnly Property DoorParameters As DoorParametersView
|
|
Get
|
|
If IsNothing(m_DoorParameters) Then
|
|
m_DoorParameters = New DoorParametersView
|
|
m_DoorParameters.DataContext = New DoorParametersViewModel(m_MainWindowModel.m_Door)
|
|
End If
|
|
Return m_DoorParameters
|
|
End Get
|
|
End Property
|
|
|
|
End Class
|