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