Emmanuele Sassi
8d6f740ede
- aggiunti EgwButton ed EgwToggleButton con CornerRadius - aggiunto EgwSplitButton - aggiunta pagina di esempio con nuovi controlli in DemoApplication
68 lines
2.0 KiB
VB.net
68 lines
2.0 KiB
VB.net
Module Map
|
|
|
|
Private m_refMainWindowVM As MainWindowVM
|
|
Private m_refEgwDataGridPageVM As EgwDataGridPageVM
|
|
Private m_refEgwRightFrozenDataGridPageVM As EgwRightFrozenDataGridPageVM
|
|
Private m_refEgwButtonPageVM As EgwButtonPageVM
|
|
|
|
#Region "Get"
|
|
|
|
Public ReadOnly Property refMainWindowVM As MainWindowVM
|
|
Get
|
|
Return m_refMainWindowVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refEgwDataGridPageVM As EgwDataGridPageVM
|
|
Get
|
|
Return m_refEgwDataGridPageVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refEgwRightFrozenDataGridPageVM As EgwRightFrozenDataGridPageVM
|
|
Get
|
|
Return m_refEgwRightFrozenDataGridPageVM
|
|
End Get
|
|
End Property
|
|
|
|
Public ReadOnly Property refEgwButtonPageVM As EgwButtonPageVM
|
|
Get
|
|
Return m_refEgwButtonPageVM
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Get
|
|
|
|
#Region "Set"
|
|
|
|
Friend Function SetRefEgwDataGridPageVM(EgwDataGridPageVM As EgwDataGridPageVM) As Boolean
|
|
m_refEgwDataGridPageVM = EgwDataGridPageVM
|
|
Return Not IsNothing(m_refEgwDataGridPageVM)
|
|
End Function
|
|
|
|
Friend Function SetRefEgwRightFrozenDataGridPageVM(EgwRightFrozenDataGridPageVM As EgwRightFrozenDataGridPageVM) As Boolean
|
|
m_refEgwRightFrozenDataGridPageVM = EgwRightFrozenDataGridPageVM
|
|
Return Not IsNothing(m_refEgwRightFrozenDataGridPageVM)
|
|
End Function
|
|
|
|
Friend Function SetRefEgwButtonPageVM(EgwButtonPageVM As EgwButtonPageVM) As Boolean
|
|
m_refEgwButtonPageVM = EgwButtonPageVM
|
|
Return Not IsNothing(m_refEgwButtonPageVM)
|
|
End Function
|
|
|
|
#End Region ' Set
|
|
|
|
#Region "Init"
|
|
|
|
Friend Function BeginInit(MainWindowVM As MainWindowVM) As Boolean
|
|
m_refMainWindowVM = MainWindowVM
|
|
Return Not IsNothing(m_refMainWindowVM)
|
|
End Function
|
|
Friend Function EndInit() As Boolean
|
|
Return Not IsNothing(m_refMainWindowVM) AndAlso Not IsNothing(m_refEgwDataGridPageVM) AndAlso Not IsNothing(m_refEgwRightFrozenDataGridPageVM) AndAlso Not IsNothing(m_refEgwButtonPageVM)
|
|
End Function
|
|
|
|
#End Region ' Init
|
|
|
|
End Module
|