Dragging an image in Visual Basic

[alkire]

how do i move a image by clicking holding moving letting go and then the image moves to the new spot

what is the code for vb6

[Killer42]

how do i move a image by clicking holding moving letting go and then the image moves to the new spot

what is the code for vb6

The absolute simplest way is to set the picturebox control's .DragMode property to "1 - Automatic". That will allow you to drag it around, but won't do anything when you drop it.

Then, if you add this code to the form...

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
  Source.Move X, Y
End Sub

it will be moved.

The result is ugly, because it always works as though you grabbed the top-left corner, but it's a start.

I'll just give you a hint on how to fix it. Track where the mouse was when you grabbed the picture, then use that offset to adjust the place where you drop it.

[brazel]

Good day!

Try this code in vb

[CODE=vb]Dim b, xx, yy As Integer

Private Sub Form_Load()
b = 0
End Sub


Private Sub Picture1_MouseD own(Button As Integer, Shift As Integer, x As Single, y As Single)
b = 1
End Sub

Private Sub Picture1_MouseM ove(Button As Integer, Shift As Integer, x As Single, y As Single)
If b = 0 Then
xx = x
yy = y
End If

If b = 1 Then
Picture1.Left = Picture1.Left + x - xx
Picture1.Top = Picture1.Top + y - yy
End If
End Sub

Private Sub Picture1_MouseU p(Button As Integer, Shift As Integer, x As Single, y As Single)
b = 0
End Sub[/CODE]

[Killer42]

I'd just like to point out a couple of things which are not exactly bugs, but which I believe demonstrate a bit of a lack of understanding of how VB works. (I could be wrong).

Dim b, xx, yy As Integer
In VB6 (and earlier), this only defines yy as an Integer. The others will be of the default type, which is most likely to be Variant.

Private Sub Form_Load()
b = 0
End Sub
This is completely unnecessary. b is already initialised to zero when it's created. And as a form-level variable it will be destroyed if the form is unloaded, so it can't have a value left over from before.

[brazel]

Yes! Thanks.

Private Sub Form_Load()
b = 0
End Sub

This code unnecessary.