Emmanuele Sassi
78a9b32973
- gestita visibility del right panel tra draw e machining - gestita assenza cartella plugin o nomi sbagliati - gestita visibility dei comandi principali della TopCommandBar
29 lines
1.1 KiB
VB.net
29 lines
1.1 KiB
VB.net
Imports EgtUILib
|
|
|
|
Public Class BasePanelVM
|
|
Inherits VMBase
|
|
|
|
Private m_PanelViewState As ViewPanelStates = ViewPanelStates.NEVER
|
|
Friend Sub SetPanelViewState(value As ViewPanelStates)
|
|
m_PanelViewState = value
|
|
End Sub
|
|
|
|
Private m_Panel_Visibility As Visibility
|
|
Public ReadOnly Property Panel_Visibility As Visibility
|
|
Get
|
|
Return m_Panel_Visibility
|
|
End Get
|
|
End Property
|
|
Friend Sub SetPanelVisibility(ProjectMode As ProjectModeOpt)
|
|
Dim bValue As Boolean = True
|
|
Select Case ProjectMode
|
|
Case ProjectModeOpt.DRAW, ProjectModeOpt.ONLYDRAW
|
|
m_Panel_Visibility = If(m_PanelViewState = ViewPanelStates.ONLYDRAW Or m_PanelViewState = ViewPanelStates.ALWAYS, Visibility.Visible, Visibility.Collapsed)
|
|
Case ProjectModeOpt.MACHINING
|
|
m_Panel_Visibility = If(m_PanelViewState = ViewPanelStates.ONLYMACHINING Or m_PanelViewState = ViewPanelStates.ALWAYS, Visibility.Visible, Visibility.Collapsed)
|
|
End Select
|
|
NotifyPropertyChanged(NameOf(Panel_Visibility))
|
|
End Sub
|
|
|
|
End Class
|