Emmanuele Sassi
cd49c334f4
- cambiata icona. - cambiato aspetto interfaccia. - aggiunta rimozione sia file cnc che prb.
92 lines
2.8 KiB
VB.net
92 lines
2.8 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Public Class MainWindowVM
|
|
Inherits VMBase
|
|
|
|
' Riferimento al Model della MainWindow
|
|
Private m_MainWindowM As MainWindowM
|
|
Friend ReadOnly Property MainWindowM As MainWindowM
|
|
Get
|
|
Return m_MainWindowM
|
|
End Get
|
|
End Property
|
|
|
|
' Variabile che indica che il programma è stato avviato correttamente (sia la mappa che l'ambiente Egt)
|
|
Private m_bInitStatus As Boolean
|
|
Friend ReadOnly Property bInitStatus As Boolean
|
|
Get
|
|
Return m_bInitStatus
|
|
End Get
|
|
End Property
|
|
|
|
|
|
' Titolo
|
|
Private m_Title As String
|
|
Public Property Title As String
|
|
Get
|
|
Return m_Title
|
|
End Get
|
|
Set(value As String)
|
|
m_Title = value
|
|
NotifyPropertyChanged("Title")
|
|
End Set
|
|
End Property
|
|
|
|
#Region "CONSTRUCTOR"
|
|
|
|
Sub New()
|
|
' Avvio l'inizializzazione della mappa passandogli il riferimento al MainWindowVM
|
|
Map.BeginInit(Me)
|
|
' Creo Model della MainWindow
|
|
m_MainWindowM = New MainWindowM
|
|
' imposto titolo finestra
|
|
m_Title = "EgtDOORProbe"
|
|
NotifyPropertyChanged("Title")
|
|
If m_MainWindowM.GetKeyOption(KEY_OPT.BASE) And m_MainWindowM.GetKeyOption(KEY_OPT.DOORS) Then
|
|
Return
|
|
ElseIf m_MainWindowM.nKeyLevel = -1 Or m_MainWindowM.nKeyLevel = -2 Then
|
|
MessageBox.Show("Missing dongle. Insert it and restart", "Error")
|
|
End
|
|
Else
|
|
MessageBox.Show("Missing licence. Set it and restart", "Error")
|
|
End
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' CONSTRUCTOR
|
|
|
|
#Region "METHODS"
|
|
|
|
Friend Sub SetTitle(sTitle As String)
|
|
m_Title = sTitle
|
|
NotifyPropertyChanged("Title")
|
|
End Sub
|
|
|
|
Friend Sub ContentRendered()
|
|
' Verifico che l'inizializzazione di tutte le parti del programma sia andata a buon fine
|
|
If Map.EndInit() Then
|
|
m_bInitStatus = True
|
|
' altrimenti chiudo il programma
|
|
Else
|
|
m_bInitStatus = False
|
|
End If
|
|
' Se istanza oltre la prima, chiedo cosa aprire
|
|
If Not m_MainWindowM.bFirstInstance Then
|
|
' OmagOFFICEMap.refTopCommandBarVM.Open()
|
|
' ' altrimenti verifico se richiesto ultimo progetto
|
|
'ElseIf GetMainPrivateProfileInt(S_GENERAL, K_AUTOLOADLASTPROJ, 0) = 1 Then
|
|
' Dim sLastProjectPath As String = String.Empty
|
|
' GetMainPrivateProfileString(S_GENERAL, K_LASTPROJ, String.Empty, sLastProjectPath)
|
|
' If Not String.IsNullOrWhiteSpace(sLastProjectPath) AndAlso File.Exists(sLastProjectPath) Then
|
|
' OmagOFFICEMap.refTopCommandBarVM.OpenProject(sLastProjectPath)
|
|
' Else
|
|
' OmagOFFICEMap.refTopCommandBarVM.NewCmd()
|
|
' End If
|
|
' altrimenti nuovo progetto
|
|
End If
|
|
End Sub
|
|
|
|
#End Region ' METHODS
|
|
|
|
End Class
|