Dario Sassi
68ee975722
- aggiunta gestione drop dei file - aggiunto aggiornamento disegno utensile all'aggiornamento in batch dei dati utensili.
28 lines
1.0 KiB
VB.net
28 lines
1.0 KiB
VB.net
Imports EgtWPFLib5
|
|
|
|
Class MainWindow
|
|
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 EgtCAM5Map.refProjectVM.OpenStdFile(sFiles(0)) Then Return
|
|
' Riprovo come file descrizione porta
|
|
EgtCAM5Map.refProjectVM.OpenDoorFile(sFiles(0))
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|