AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

redesign wip

Browse Source
This commit is contained in:
Jonathan Jenne
2020-03-02 13:59:59 +01:00
parent 40e80d0804
commit 5139d51c8d
30 changed files with 8041 additions and 18628 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Global_Indexer/frmStart.vb
View File

@@ -158,7 +158,7 @@ Public Class frmStart
End If
'Erstmal alles löschen
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
If ClassDragDrop.Drop_File(e) = True Then
If ClassFileDrop.Drop_File(e) = True Then
TimerCheckDroppedFiles.Start()
End If
End Sub
@@ -241,7 +241,7 @@ Public Class frmStart
Me.TopMost = False
ClassDatabase.Execute_non_Query("DELETE FROM TBGI_FILES_USER WHERE WORKED = 1 AND UPPER(USER@WORK) = UPPER('" & Environment.UserName & "')")
Dim i As Integer
For Each Str As Object In ClassDragDrop.files_dropped
For Each Str As Object In ClassFileDrop.files_dropped
If Not Str Is Nothing Then
If LogErrorsOnly = False Then ClassLogger.Add(">> Check Drop-File: " & Str.ToString, False)
Dim handleType As String = Str.Substring(0, Str.LastIndexOf("|") + 1)
@@ -774,11 +774,11 @@ Public Class frmStart
If openFileDialog1.ShowDialog() = DialogResult.OK Then
Dim i As Integer = 0
ClassDragDrop.files_dropped = Nothing
ClassFileDrop.files_dropped = Nothing
For Each fName In openFileDialog1.FileNames
ReDim Preserve ClassDragDrop.files_dropped(i)
ReDim Preserve ClassFileDrop.files_dropped(i)
ClassLogger.Add(">> Chosen File: " & fName, False)
ClassDragDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName
ClassFileDrop.files_dropped(i) = "|DROPFROMFSYSTEM|" & fName
i += 1
Next
TimerCheckDroppedFiles.Start()