EgtCAM5 :

-Miglioramenti vari.
2016-09-06 13:50:26 +00:00
parent ac93327ea9
commit 2aeaccf30a
15 changed files with 133 additions and 25 deletions
@@ -46,6 +46,7 @@ Namespace EgtCAM5
            End If
         End Set
      End Property
+
      Private m_AboutBox As Window
      Public ReadOnly Property AboutBox As Window
         Get
@@ -263,6 +264,7 @@ Namespace EgtCAM5

      Private Sub RegisterMyMessages()
         Application.Msn.Register(Application.CLOSEAPPLICATIONCOMMAND, Sub()
+                                                                          Application.Msn.NotifyColleagues(Application.CLOSEAPPLICATION)
                                                                          ' Terminazione generale di EgtInterface
                                                                          EgtExit()
                                                                          ' Rilascio mutex
@@ -271,7 +273,7 @@ Namespace EgtCAM5
                                                                          Dim nTmp As Integer = GetPrivateProfileInt(S_GENERAL, K_INSTANCES, 0)
                                                                          nTmp -= (1 << (m_nInstance - 1))
                                                                          WritePrivateProfileString(S_GENERAL, K_INSTANCES, nTmp.ToString())
-                                                                          Application.Current.MainWindow.Close()
+                                                                          Application.Current.Shutdown()
                                                                       End Sub)
         Application.Msn.Register(Application.ALLOWWINDOWTOCLOSE, Sub(bBoolean As Boolean)
                                                                     m_allowWindowToClose = bBoolean