EgtCAM5 :

- controlli su licenza e chiave.
2016-07-12 10:00:45 +00:00
parent 7fb1cea165
commit a6281d384f
1 changed files with 5 additions and 2 deletions
@@ -121,18 +121,21 @@ Namespace EgtCAM5
      ''' Execute the Point.  This method is invoked by the PointCommand.
      ''' </summary>
      Public Sub Loaded(ByVal param As Object)
+         ' Creazione scena
         PreInitializeScene()
         If Not m_ProjectScene.Init() Then
            EgtOutLog("Error in Project scene creation")
            SceneHost.Child = Nothing
-            ' Box di avviso
+            ' Box di avviso chiave mancante
            MsgBox(EgtMsg(MSG_MISSINGKEYWD + 2) & vbCrLf & EgtMsg(MSG_MISSINGKEYWD + 3), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
            ' Chiudo il programma
            Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATIONCOMMAND)
-            ' Verifico abilitazione prodotto
+         ' Verifico abilitazione prodotto
         ElseIf (IniFile.m_nKeyOptions And KEY_OPT.BASE) = 0 Then
            m_CloseProgram = True
            MsgBox(EgtMsg(MSG_MISSINGKEYWD + 5), MsgBoxStyle.OkOnly, EgtMsg(MSG_MISSINGKEYWD + 1))
+            ' Chiudo il programma
+            Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATIONCOMMAND)
         Else
            IniFile.m_ProjectSceneContext = m_ProjectScene.GetCtx
            PostInitializeScene()