Nicola Pievani
65dee8bf4c
-> aggiornamento automatico della lista "PartList"; -> verifica funzionamento ultima versione.
54 lines
1.2 KiB
VB.net
54 lines
1.2 KiB
VB.net
Imports EgtUILib
|
|
Imports EgtWPFLib5
|
|
|
|
Public Class InfoWindowVM
|
|
Inherits VMBase
|
|
|
|
Friend m_RefInfoWindowV As InfoWindowV
|
|
|
|
Private m_Title As String = String.Empty
|
|
Public ReadOnly Property Title As String
|
|
Get
|
|
Return m_Title
|
|
End Get
|
|
End Property
|
|
|
|
Private m_Messages As String = String.Empty
|
|
Public ReadOnly Property Messages As String
|
|
Get
|
|
Return m_Messages
|
|
End Get
|
|
End Property
|
|
|
|
Private m_TryeAgain As Boolean = False
|
|
Public Property TryAgain As Boolean
|
|
Get
|
|
Return m_TryeAgain
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_TryeAgain = value
|
|
m_StopTry = Not value
|
|
m_RefInfoWindowV.Close()
|
|
End Set
|
|
End Property
|
|
|
|
Private m_StopTry As Boolean = False
|
|
Public Property StopTry As Boolean
|
|
Get
|
|
Return m_StopTry
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_StopTry = value
|
|
m_TryeAgain = Not value
|
|
m_RefInfoWindowV.Close()
|
|
End Set
|
|
End Property
|
|
|
|
Sub New(sMessages As String, sTitle As String)
|
|
m_Title = sTitle
|
|
m_Messages = sMessages
|
|
m_RefInfoWindowV = New InfoWindowV(Application.Current.MainWindow, Me)
|
|
End Sub
|
|
|
|
End Class
|