How to make the drop & drag effect, that is visible only on my app as well as outside of it.
Printable View
How to make the drop & drag effect, that is visible only on my app as well as outside of it.
What is it that you want to drag? Controls? Files? your Form? Please explain.
I would like it to be like dragging a control (not to drag a control, just to look like it), but not only in my app. If I use the built-in Drag method of a control it shows a 'no no' sign whenever mouse slides out of the container(form), and I can't fix that.
See if this works.
Code:Dim OldX As Single
Dim OldY As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
OldX = X
OldY = Y
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then Picture1.Move Picture1.Left + (X - OldX), Picture1.Top + (Y - OldY)
End Sub