MS_12.03.2016

This commit is contained in:
SchreiberM
2016-03-14 09:21:32 +01:00
parent c3965e6243
commit 32a1c4cf5e
31 changed files with 2208 additions and 2864 deletions

View File

@@ -112,7 +112,8 @@ Public Class frmScanFiles
If MouseIsDown Then
'Initiate dragging.
ListView1.DoDragDrop(DragID, DragDropEffects.Copy)
Console.WriteLine("Dragging")
Timer1.Start()
'Console.WriteLine("Dragging")
End If
MouseIsDown = False
End Sub
@@ -124,7 +125,7 @@ Public Class frmScanFiles
If Not IsNothing(i) Then
MouseIsDown = True
DragID = i.Tag
Console.WriteLine("Mouse Down")
'Console.WriteLine("Mouse Down")
ListView1.DoDragDrop("SCAN;" & DragID.ToString, DragDropEffects.Copy)
End If
End If
@@ -165,9 +166,7 @@ Public Class frmScanFiles
Private Sub chkInFront_CheckedChanged(sender As Object, e As EventArgs) Handles chkInFront.CheckedChanged
My.Settings.Save()
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs)
Private Sub Timer1_Tick_1(sender As Object, e As EventArgs) Handles Timer1.Tick
Load_Files()
End Sub
End Class