Hey,

Basically I just need someone to help me with something I think should be fairly simple, but I'm struggling with.

I've got a picture on a form and I want to be able to move the picture around the screen, using the mouse, without having to click a mouse button.

If anybody has any ideas I would greatly appreciate them.

Assuming you are using a picture box, there is a mouse move event. But that wont do what you want because the event is triggered when the mouse moves over the picture. when this happens the X,Y co-ordinates will hold the current position of the mouse. Move the mouse again and you will triggered the event again and the X,Y co-orientates will then hold the new location of the mouse.

To make the picture move you are going to have to determine where the mouse came from, not where is is now. The move the picture box relative to the difference between where the mouse was to where it is now.

You could store the X,Y coordinates in a public variables, but the results are going to be unpredictable.

Stuart

Use the mouse move event on the form.

' This assumes that you have a picture on your form called Image1
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = X + 2
Image1.Top = Y + 2
End Sub

If you want to drop the image, simply capture the mouseup or mousedown event and then set the Image's left and top to X, Y respectively. In addition, you might want a public boolean that lets the system know if you want to move the image or not, like this:

' This assumes that you have a picture on your form called Image1
Dim Moving As Boolean

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Moving = True
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = X + 2
Image1.Top = Y + 2
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Moving = False
Image1.Left = X
Image1.Top = Y
End Sub

Hope this helps,
Chi

They mostly come at night...mostly.

oops, i forgot to implement moving.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Moving Then
Image1.Left = X + 2
Image1.Top = Y + 2
End If
End Sub

Chi

They mostly come at night...mostly.

But this requires a mouse click and only moves the image in one direction. What happens when the image reaches the extremes of X and Y. How do you get it back again?

Stuart

what do you mean one direction?
it moves the image along with the mouse. Not in only one direction. You can remove the mouse click if you want. this was simply an example showing you how to do it.

Chi

They mostly come at night...mostly.

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Left = X + 2
Image1.Top = Y + 2
End Sub

Here it is with no click needed.

They mostly come at night...mostly.