Page 1 of 1

Drag & drop

Posted: Saturday 1st May 2021 12:47pm
by bill-lancaster
I can't see how to do this, it's probably very simple.
I have a picture box with a thumbnail of a photo. I want to place a copy of the file in a particular directory using drag n' drop
I don't want the drag.icon to be the picture because they are large images.
How best to show just a "+" image as the drag.icon in the _MouseDrag event?

Re: Drag & drop

Posted: Saturday 1st May 2021 2:30pm
by bill-lancaster
OK, got it!

Code: Select all

Public Sub PictureBox1_MouseDrag()
  If Mouse.Left Then
    Drag.Icon = Picture["icon:/32/add"] 
    Last.Drag(Drag.Icon.Image)
  Endif
End