MS_12.03.2016
This commit is contained in:
@@ -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
|
||||
Reference in New Issue
Block a user