EgtCAM5 :

- Cambiati nomi classi e file.

MainWindow/MainWindowV.xaml.vb

@@ -0,0 +1,27 @@
+Imports EgtWPFLib5
+
+Class MainWindowV
+   Inherits EgtCustomWindow
+
+   Private Sub EgtCustomWindow_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
+      ' Posizione e dimensioni del Form
+      Dim WinPos As New WinPos
+      GetPrivateProfileWinPos(S_GENERAL, K_WINPLACE, WinPos.nFlag, WinPos.nLeft, WinPos.nTop, WinPos.nWidth, WinPos.nHeight)
+      WinPosToWindow(Me, WinPos)
+   End Sub
+
+   Private Sub MainWindow_Drop(sender As Object, e As DragEventArgs)
+      ' Se drag di file
+      If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+         ' Attivo il programma
+         Me.Activate()
+         ' Recupero l'array di stringhe con i nomi del file
+         Dim sFiles() As String = DirectCast(e.Data.GetData(DataFormats.FileDrop), String())
+         ' Apro il primo come file standard
+         If Map.refProjectVM.OpenStdFile(sFiles(0)) Then Return
+         ' Riprovo come file descrizione porta
+         Map.refProjectVM.OpenDoorFile(sFiles(0))
+      End If
+   End Sub
+
+End Class