Drag & drop (Swapping images) in picturebox

[Trancedified]

Hello,

I ran a search on drag and drop but didn't quiet find what I was looking for:

I have 2 Pictureboxes where images are already preloaded into.
However, if needed I will have to rearrange where each picture is (swapping)

So if I click and drag the image from picturebox1 to picturebox2, I'd like the images to swap places; picturebox1's image get's dropped into picturebox2, and picturebox2's image get's dropped into picturebox1.

So far, if I did the above example... picturebox1's image replaces picturebox2's image.

Here's what I got:

Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
 
      Picture2.Picture = Source.Picture
      Set Source.Picture = Nothing
 
End Sub
 
Private Sub Picture4_DragDrop(Source As Control, X As Single, Y As Single)
 
      Picture4.Picture = Source.Picture
      Set Source.Picture = Nothing
 
End Sub

Any solutions to this problem?

Thanks

Chris

[brucevde]

In order to swap you need to temporarily store the current picture before changing it. Note it may depend on your method of loading the picture and the following assumes the same size pictures

Private Sub Picture1_DragDrop(Source As Control, X As Single, Y As Single)
    Dim objPic As StdPicture
    
    Set objPic = Picture1.Picture
    Set Picture1.Picture = Source.Picture
    Set Source.Picture = objPic
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.Drag vbBeginDrag
End Sub
 
Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
    Dim objPic As StdPicture
 
    Set objPic = Picture2.Picture
    Set Picture2.Picture = Source.Picture
    Set Source.Picture = objPic
End Sub
 
Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture2.Drag vbBeginDrag
End Sub

[Trancedified]

great it works! thanks a lot