Drag and drop copies but doesn't move

colossus1958 · January 16th, 2009, 03:17 PM

I am having a problem figuring out what I've done wrong (or omitted). The code below shows my various drag/drop subs. They do work within their current application but they only "copy" and do not just "move". I don't think I have left any code in there that applies to a copy function, but obviously I am missing something. Can anyone help?

Code:

#Region "Drag/Drop Subs"
    Private MouseIsDown As Boolean = False
    Private Sub Mouse_Down(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles PB2.MouseDown
        If Not sender.Image Is Nothing Then
            ' Set a flag to show that the mouse is down.
            MouseIsDown = True
        End If
    End Sub
    Private Sub Mouse_Move(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles PB2.MouseMove
        If MouseIsDown Then
            sender.DoDragDrop(sender.Image, DragDropEffects.Move)
        End If
        MouseIsDown = False
    End Sub
    Public Sub Give_Feedback(ByVal sender As SolPicBox.SolPicBox, ByVal e As _
        GiveFeedbackEventArgs) Handles PB2.GiveFeedback
        e.UseDefaultCursors = False
        Dim bmp As Bitmap = New Bitmap(sender.Image)
        Windows.Forms.Cursor.Current = New Cursor(bmp.GetHicon)
    End Sub
    Private Sub Drag_Enter(ByVal sender As SolPicBox.SolPicBox, ByVal e As DragEventArgs) _
    Handles PB1.DragEnter
        If e.Data.GetDataPresent(DataFormats.Bitmap) Then
            If e.KeyState = 9 Then
                e.Effect = DragDropEffects.Move
            Else
                e.Effect = DragDropEffects.Move
            End If
        Else
            e.Effect = DragDropEffects.None
        End If
    End Sub
    Private Sub Drag_Drop(ByVal sender As SolPicBox.SolPicBox, ByVal e As _
        DragEventArgs) Handles PB1.DragDrop
        sender.Image = e.Data.GetData(DataFormats.Bitmap)
        Status1.Text = CType(Status1.Text, Integer) - 1
    End Sub
    Private Sub Query_Continue_Drag(ByVal sender As SolPicBox.SolPicBox, _
#End Region

SolPicBox is a control derived from a standard PictureBox. As of this moment it doesn't have any capabilities not implemented by the standard control.

gbianchi · January 17th, 2009, 09:37 AM

Hello. Nothing looks bad, or may it look that you copy the control.. Maybe something in the query continue drag???

colossus1958 · January 20th, 2009, 12:20 AM

It would seem according to research at MSDN that if I want to remove the source image I have to do it within the DragDrop subroutine. However I can't find anything that gives me a clear idea of how to do that when there are multiple sources. I need to be able to tell the program, in some manner, to find the source (PictureBox) and remove the image at that point (PictureBox.Image = Nothing).

I hate to be lost like this

. The bulk of the program is finished, but without this function, the rest is useless. Any directions, links, et al will be appreciated.

colossus1958 · January 20th, 2009, 02:53 PM

I have found the solution to my problem. Like so:

Declare

Code:

SPB As PictureBox

Then in the Mouse_Move sub (outside of the If-Then statement) add

Code:

SPB = sender

Then in the Drag_Drop sub after the main routine add the following:

Code:

 
SPB.Image = Nothing
SPB.SendToBack()

Works perfectly. Thanks for your help.