Emmanuele Sassi
82 lines
2.3 KiB
VB.net
82 lines
2.3 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Class HelpPanelVM
|
|
Inherits VMBase
|
|
|
|
Public Enum HelpPages As Integer
|
|
NULL = 0
|
|
ICON = 1
|
|
PROJECTMANAGER = 2
|
|
End Enum
|
|
|
|
Private m_CurrHelpPage As HelpPages
|
|
Public ReadOnly Property CurrHelpPage As HelpPages
|
|
Get
|
|
Return m_CurrHelpPage
|
|
End Get
|
|
End Property
|
|
|
|
Private m_Icon_Visibility As Boolean = False
|
|
Public ReadOnly Property Icon_Visibility As Visibility
|
|
Get
|
|
Return If(m_Icon_Visibility, Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
Public Property Icon_IsOpen As Boolean
|
|
Get
|
|
Return m_Icon_Visibility
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_Icon_Visibility = value
|
|
End Set
|
|
End Property
|
|
Friend Sub SetIconVisibility(bValue As Boolean)
|
|
m_Icon_Visibility = bValue
|
|
NotifyPropertyChanged(NameOf(Icon_Visibility))
|
|
NotifyPropertyChanged(NameOf(Icon_IsOpen))
|
|
End Sub
|
|
|
|
Private m_ProjectManager_Visibility As Boolean = False
|
|
Public ReadOnly Property ProjectManager_Visibility As Visibility
|
|
Get
|
|
Return If(m_ProjectManager_Visibility, Visibility.Visible, Visibility.Collapsed)
|
|
End Get
|
|
End Property
|
|
Public Property ProjectManager_IsOpen As Boolean
|
|
Get
|
|
Return m_ProjectManager_Visibility
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_ProjectManager_Visibility = value
|
|
End Set
|
|
End Property
|
|
Friend Sub SetProjectManagerVisibility(bValue As Boolean)
|
|
m_ProjectManager_Visibility = bValue
|
|
NotifyPropertyChanged(NameOf(ProjectManager_Visibility))
|
|
NotifyPropertyChanged(NameOf(ProjectManager_IsOpen))
|
|
End Sub
|
|
|
|
Sub New()
|
|
Map.SetRefHelpPanelVM(Me)
|
|
End Sub
|
|
|
|
Friend Sub SelHelpPage(SelHelpPage As HelpPages)
|
|
Select Case m_CurrHelpPage
|
|
Case HelpPages.ICON
|
|
SetIconVisibility(False)
|
|
Case HelpPages.PROJECTMANAGER
|
|
SetProjectManagerVisibility(False)
|
|
End Select
|
|
m_CurrHelpPage = SelHelpPage
|
|
Select Case m_CurrHelpPage
|
|
Case HelpPages.NULL
|
|
SetProjectManagerVisibility(False)
|
|
Case HelpPages.ICON
|
|
SetIconVisibility(True)
|
|
Case HelpPages.PROJECTMANAGER
|
|
SetProjectManagerVisibility(True)
|
|
End Select
|
|
End Sub
|
|
|
|
End Class
|