Emmanuele Sassi
109 lines
2.4 KiB
VB.net
109 lines
2.4 KiB
VB.net
Imports System.Collections.ObjectModel
|
|
Imports System.Drawing
|
|
Imports System.Windows.Forms.VisualStyles.VisualStyleElement.ToolTip
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class HelpWndVM
|
|
|
|
#Region "FIELDS & PROPERTIES"
|
|
|
|
Friend Event m_CloseWindow(bDialogResult As Boolean)
|
|
|
|
#Region "Messages"
|
|
|
|
Public ReadOnly Property Title_Msg As String
|
|
Get
|
|
Return "Help"
|
|
End Get
|
|
End Property
|
|
|
|
#End Region ' Messages
|
|
|
|
' Definizione comandi
|
|
Private m_cmdSoftwareStructure As ICommand
|
|
Private m_cmdIcon As ICommand
|
|
Private m_cmdProjectManagerBar As ICommand
|
|
Private m_cmdClose As ICommand
|
|
|
|
#End Region ' FIELDS & PROPERTIES
|
|
|
|
Sub New()
|
|
Map.SetRefHelpWndVM(Me)
|
|
End Sub
|
|
|
|
#Region "COMMANDS"
|
|
|
|
#Region "SoftwareStructure"
|
|
|
|
Public ReadOnly Property SoftwareStructure_Command As ICommand
|
|
Get
|
|
If m_cmdSoftwareStructure Is Nothing Then
|
|
m_cmdSoftwareStructure = New Command(AddressOf SoftwareStructure)
|
|
End If
|
|
Return m_cmdSoftwareStructure
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub SoftwareStructure()
|
|
|
|
End Sub
|
|
|
|
#End Region ' SoftwareStructure
|
|
|
|
#Region "Icon"
|
|
|
|
Public ReadOnly Property Icon_Command As ICommand
|
|
Get
|
|
If m_cmdIcon Is Nothing Then
|
|
m_cmdIcon = New Command(AddressOf Icon)
|
|
End If
|
|
Return m_cmdIcon
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Icon()
|
|
Map.refHelpPanelVM.SelHelpPage(HelpPanelVM.HelpPages.ICON)
|
|
End Sub
|
|
|
|
#End Region ' Icon
|
|
|
|
#Region "ProjectManagerBar"
|
|
|
|
Public ReadOnly Property ProjectManagerBar_Command As ICommand
|
|
Get
|
|
If m_cmdProjectManagerBar Is Nothing Then
|
|
m_cmdProjectManagerBar = New Command(AddressOf ProjectManagerBar)
|
|
End If
|
|
Return m_cmdProjectManagerBar
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ProjectManagerBar()
|
|
Map.refHelpPanelVM.SelHelpPage(HelpPanelVM.HelpPages.PROJECTMANAGER)
|
|
End Sub
|
|
|
|
#End Region ' ProjectManagerBar
|
|
|
|
#Region "Close"
|
|
|
|
Public ReadOnly Property Close_Command As ICommand
|
|
Get
|
|
If m_cmdClose Is Nothing Then
|
|
m_cmdClose = New Command(AddressOf Close)
|
|
End If
|
|
Return m_cmdClose
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub Close()
|
|
Map.refHelpPanelVM.SelHelpPage(HelpPanelVM.HelpPages.NULL)
|
|
Map.SetRefHelpWndVM(Nothing)
|
|
RaiseEvent m_CloseWindow(True)
|
|
End Sub
|
|
|
|
#End Region ' Close
|
|
|
|
#End Region ' COMMANDS
|
|
|
|
End Class
|