MS Globix1

GUIs.ZooFlow/frmFlowForm.vb

@@ -12,7 +12,7 @@ Public Class frmFlowForm
     Private Logger As Logger
     Private Init As ClassInit
     Private DTIDB_SEARCHES As DataTable
-
+    Private CLSFileDrop As ClassFileDrop
     ' Runtime Flags
     Private ApplicationLoading As Boolean = True
     Private IDBSearchActive As Boolean = False
@@ -41,6 +41,7 @@ Public Class frmFlowForm
 
         ' === Initialization ===
         Init = New ClassInit(My.LogConfig, Me)
+        CLSFileDrop = New ClassFileDrop(My.LogConfig)
         AddHandler Init.Completed, AddressOf Init_Completed
         Init.InitializeApplication()
     End Sub
@@ -262,4 +263,39 @@ Public Class frmFlowForm
             TimerCheckActiveForms.Enabled = False
         End If
     End Sub
+
+    Private Sub PictureBox1_DragEnter(sender As Object, e As DragEventArgs) Handles PictureBox1.DragEnter
+        Drag_Enter(sender, e)
+    End Sub
+    Sub Drag_Enter(sender As Object, e As DragEventArgs)
+        If e.Data.GetDataPresent(DataFormats.FileDrop) Then
+            e.Effect = DragDropEffects.All
+            ' Console.WriteLine("DragEnter ...DragDrop")
+        ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
+            'handle a message dragged from Outlook
+            e.Effect = DragDropEffects.Copy
+            ' Console.WriteLine("DragEnter ...OutlookMessage")
+        ElseIf e.Data.GetDataPresent("aryFileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
+            e.Effect = DragDropEffects.Copy
+            ' Console.WriteLine("DragEnter ...Attachment from Outlook")
+        Else
+            'otherwise, do not handle
+            e.Effect = DragDropEffects.None
+        End If
+    End Sub
+    Sub DragDropForm(e As DragEventArgs)
+        If TheFormIsAlreadyLoaded("frmIndexFileList") Then
+            Cursor = Cursors.Default
+            MsgBox("Please index the active file first!", MsgBoxStyle.Exclamation, "Drag 'n Drop not allowed!")
+            Exit Sub
+        End If
+        Dim frmCollection = Application.OpenForms
+
+        'Erstmal alles löschen
+        My.Database.ExecuteNonQuery("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
+
+        If CLSFileDrop.Drop_File(e) = True Then
+            'TimerCheckDroppedFiles.Start()
+        End If
+    End Sub
 End Class