Drag & drop (Swapping images) in picturebox

Trancedified · 01-05-2004, 05:35 PM

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:

VB Code:

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 · 01-05-2004, 05:51 PM

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

VB Code:

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 · 01-05-2004, 06:13 PM

great it works! thanks a lot

01-05-2004, 05:35 PM	#1
Trancedified Lively Member Join Date: Oct 03 Posts: 89	Drag & drop (Swapping images) in picturebox 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: VB Code: 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

01-05-2004, 06:13 PM	#3
Trancedified Lively Member Join Date: Oct 03 Posts: 89	great it works! thanks a lot Last edited by Trancedified : 01-05-2004 at 06:21 PM.

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)