Public Class ProjectVM Inherits VMBase #Region "FIELDS & PROPERTIES" Private m_BTLStructureVM As BTLStructureVM Public Property BTLStructureVM As BTLStructureVM Get Return m_BTLStructureVM End Get Set(value As BTLStructureVM) m_BTLStructureVM = value NotifyPropertyChanged(NameOf(BTLStructureVM)) End Set End Property Private m_MachGroupPanelVM As MyMachGroupPanelVM Public Property MachGroupPanelVM As MyMachGroupPanelVM Get Return m_MachGroupPanelVM End Get Set(value As MyMachGroupPanelVM) m_MachGroupPanelVM = value NotifyPropertyChanged(NameOf(MachGroupPanelVM)) End Set End Property Private m_LeftPanel_Visibility As Boolean = True Public Property LeftPanel_Visibility As Visibility Get Return If(m_LeftPanel_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_LeftPanel_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetLeftPanel_Visibility(IsVisible As Boolean) m_LeftPanel_Visibility = IsVisible End Sub Private m_TopPanel_Visibility As Boolean = False Public Property TopPanel_Visibility As Visibility Get Return If(m_TopPanel_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_TopPanel_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetTopPanel_Visibility(IsVisible As Boolean) m_TopPanel_Visibility = IsVisible End Sub Private m_BottomPanel_Visibility As Boolean = True Public Property BottomPanel_Visibility As Visibility Get Return If(m_BottomPanel_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_BottomPanel_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetBottomPanel_Visibility(IsVisible As Boolean) m_BottomPanel_Visibility = IsVisible End Sub Private m_PartManager_Visibility As Boolean = True Public Property PartManager_Visibility As Visibility Get Return If(m_PartManager_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_PartManager_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetPartManager_Visibility(IsVisible As Boolean) m_PartManager_Visibility = IsVisible End Sub Private m_FeatureManager_Visibility As Boolean = True Public Property FeatureManager_Visibility As Visibility Get Return If(m_FeatureManager_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_FeatureManager_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetFeatureManager_Visibility(IsVisible As Boolean) m_FeatureManager_Visibility = IsVisible End Sub Private m_ShowBeamPanel_Visibility As Boolean = True Public Property ShowBeamPanel_Visibility As Visibility Get Return If(m_ShowBeamPanel_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_ShowBeamPanel_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetShowBeamPanel_Visibility(IsVisible As Boolean) m_ShowBeamPanel_Visibility = IsVisible End Sub Private m_ProjManager_Visibility As Boolean = True Public Property ProjManager_Visibility As Visibility Get Return If(m_ProjManager_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_ProjManager_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetProjManager_Visibility(IsVisible As Boolean) m_ProjManager_Visibility = IsVisible End Sub Private m_ProdManager_Visibility As Boolean = True Public Property ProdManager_Visibility As Visibility Get Return If(m_ProdManager_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_ProdManager_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetProdManager_Visibility(IsVisible As Boolean) m_ProdManager_Visibility = IsVisible End Sub Private m_FreeContourManager_Visibility As Boolean = False Public Property FreeContourManager_Visibility As Visibility Get Return Visibility.Collapsed ' If(m_FreeContourManager_Visibility, Visibility.Visible, Visibility.Collapsed) End Get Set(value As Visibility) m_FreeContourManager_Visibility = (value = Visibility.Visible) End Set End Property Friend Sub SetFreeContourManager_Visibility(IsVisible As Boolean) m_FreeContourManager_Visibility = IsVisible NotifyPropertyChanged("FreeContourManager_Visibility") End Sub Friend Sub NotifyAllPanelVisibility() NotifyPropertyChanged("LeftPanel_Visibility") NotifyPropertyChanged("TopPanel_Visibility") NotifyPropertyChanged("BottomPanel_Visibility") NotifyPropertyChanged("PartManager_Visibility") NotifyPropertyChanged("FeatureManager_Visibility") NotifyPropertyChanged("ShowBeamPanel_Visibility") NotifyPropertyChanged("ProjManager_Visibility") NotifyPropertyChanged("ProdManager_Visibility") End Sub #End Region ' FIELDS & PROPERTIES #Region "CONSTRUCTOR" Sub New() ' Creo riferimento a questa classe in Map Map.SetRefProjectVM(Me) End Sub #End Region ' CONSTRUCTOR #Region "METHODS" Friend Sub ManageIsEnabled(bIsEnabled As Boolean) Map.refInstrumentPanelVM.SetInstrumentPanelIsEnabled(bIsEnabled) Map.refMainMenuVM.SetMainMenuIsEnabled(bIsEnabled) Map.refPartManagerVM.SetPartManagerIsEnabled(bIsEnabled) Map.refLeftPanelVM.SetLeftPanelIsEnabled(bIsEnabled) Map.refProjManagerVM.SetProjManagerIsEnabled(bIsEnabled) Map.refProdManagerVM.SetProdManagerIsEnabled(bIsEnabled) Map.refTopPanelVM.SetTopPanelIsEnabled(bIsEnabled) Map.refOptimizePanelVM.SetOptimizePanelIsEnabled(bIsEnabled) ' aggiungere gestione colonne editabili delle tabelle End Sub #End Region ' METHODS End Class