Nicola Pievani
101 lines
2.5 KiB
VB.net
101 lines
2.5 KiB
VB.net
Imports System.ComponentModel
|
|
Imports EgtUILib
|
|
|
|
|
|
Public Class RefreshPanelViewModel
|
|
Implements INotifyPropertyChanged
|
|
Private m_rfSceneManagerViewModel As SceneManagerViewModel
|
|
|
|
Private m_MsgError As String
|
|
Public Property MsgError As String
|
|
Get
|
|
Return m_MsgError
|
|
End Get
|
|
Set(value As String)
|
|
m_MsgError = value
|
|
NotifyPropertyChanged("MsgError")
|
|
End Set
|
|
End Property
|
|
|
|
Private m_ButtonVisibility As Visibility = Visibility.Collapsed
|
|
Public Property ButtonVisibility As Visibility
|
|
Get
|
|
Return m_ButtonVisibility
|
|
End Get
|
|
Set(value As Visibility)
|
|
m_ButtonVisibility = value
|
|
NotifyPropertyChanged("ButtonVisibility")
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Messages"
|
|
Public ReadOnly Property RefreshMsg As String
|
|
Get
|
|
Return EgtMsg(50301)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
#Region "ToolTip"
|
|
Public ReadOnly Property RefreshToolTip As String
|
|
Get
|
|
Return EgtMsg(50301)
|
|
End Get
|
|
End Property
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
Private m_CmdRefreshBtn As ICommand
|
|
Private m_CmdShowErrorBtn As ICommand
|
|
|
|
Sub New(ByRef rSceneManagerViewModel As SceneManagerViewModel)
|
|
m_rfSceneManagerViewModel = rSceneManagerViewModel
|
|
End Sub
|
|
|
|
#Region "COMMAND"
|
|
|
|
#Region "RefreshBtnCommand"
|
|
|
|
''' <summary>
|
|
''' Returns a command that do Exec.
|
|
''' </summary>
|
|
Public ReadOnly Property RefreshBtnCommand As ICommand
|
|
Get
|
|
If m_CmdRefreshBtn Is Nothing Then
|
|
' Richiamo il comando che già esiste
|
|
m_CmdRefreshBtn = New Command(AddressOf m_rfSceneManagerViewModel.RefreshBtn)
|
|
End If
|
|
Return m_CmdRefreshBtn
|
|
End Get
|
|
End Property
|
|
|
|
|
|
#End Region ' RefreshBtnCommand
|
|
Friend m_MsgGraphic As String
|
|
|
|
Public ReadOnly Property ShowErrorBtnCommand As ICommand
|
|
Get
|
|
If m_CmdShowErrorBtn Is Nothing Then
|
|
m_CmdShowErrorBtn = New Command(AddressOf ShowErrorBtn)
|
|
End If
|
|
Return m_CmdShowErrorBtn
|
|
End Get
|
|
End Property
|
|
|
|
Public Sub ShowErrorBtn()
|
|
MessageBox.Show(m_MsgGraphic, "Error", MessageBoxButton.OK, MessageBoxImage.Error)
|
|
End Sub
|
|
|
|
#End Region ' Command
|
|
|
|
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
|
|
|
|
Public Sub NotifyPropertyChanged(propName As String)
|
|
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propName))
|
|
End Sub
|
|
|
|
End Class
|