PerryBond
asked on
Drag&drop-swapping
I am using....
Private Sub Picture12_DragDrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is PictureBox Then
Picture12.Picture = Source.Picture
End If
End Sub
.....to drag and drop an image from one box to another.
How can I swap the images, so that the the image in the drop box is pasted into the source box?
Private Sub Picture12_DragDrop(Source As Control, X As Single, Y As Single)
If TypeOf Source Is PictureBox Then
Picture12.Picture = Source.Picture
End If
End Sub
.....to drag and drop an image from one box to another.
How can I swap the images, so that the the image in the drop box is pasted into the source box?
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Alternately, you could use the API to create what amounts to a picturebox in memory and then use that instead. But the above will work in most instances and, because it's visible property is set to false, it won't use much more resources than using the API calls.