User Picturebox Moving In Runtime..

[AustinPowers]

Hi all, hope you're well. New user here! Help me please!

I'm creating an application in visual basic, basically a part of it is where I hope to achieve the function whereby users can move pictureboxs(images) when visual basic is running.

Basically, i've got several picture boxes that obviously cannot be moved around the form at the minute.

For example, i want to be able the user to be able to move picturebox1 around the form when they click on it and move it where they want to as opposed to what it does now - doesnt move.

I'm sure this is easy for many, but im a novice at VB so any help would be great in terms of code or knowledge etc.

Thanks

[virtueone]

I'm not sure this is the best answer, but it should get you started...

Create a timer with a quick interval like 100.
Once the mouse clicks down on the picture, enable the timer.
Once the mouse is released, disable the timer.
Put your code to move the picture box inside the timer Tick event.

So basically, the timer executes the code while the mouse is down.
You'll need to grab the mouse cursor position, then position the picture box relative to that. It should look something like this...

Private Sub TimerMove_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerMove.Tick
     Dim pos As Point
     pos = Cursor.Position
     PictureBox.Top = pos.Y
     PictureBox.Left = pos.X
End Sub

[AustinPowers]

I'm not sure this is the best answer, but it should get you started...

Create a timer with a quick interval like 100.
Once the mouse clicks down on the picture, enable the timer.
Once the mouse is released, disable the timer.
Put your code to move the picture box inside the timer Tick event.

So basically, the timer executes the code while the mouse is down.
You'll need to grab the mouse cursor position, then position the picture box relative to that. It should look something like this...

Private Sub TimerMove_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerMove.Tick
     Dim pos As Point
     pos = Cursor.Position
     PictureBox.Top = pos.Y
     PictureBox.Left = pos.X
End Sub

Thanks Virtue, that's much appreciated. I will try that tonight or tomorrow and get back to you with the result!

[.paul.]

try the move / resize runtime controls link in my signature

[virtueone]

Paul, nice work, those runtime controls are great! They are a bit complicated to understand as a novice.

AustinPowers, here's a simpler version for you:

Dim Moveable As Boolean
Dim LastPos As Point
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
        Moveable = True
        LastPos = Cursor.Position - PictureBox1.Location
End Sub

Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
        If Moveable Then
            PictureBox1.Location = Cursor.Position - LastPos
        End If
End Sub

Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
        Moveable = False
End Sub

Modified from this article: http://www.vbforums.com/showthread.php?t=492261
(thanks to .paul. and Mal1t1a)

[AustinPowers]

Thanks Paul and Virtue.

Virtue, if i post that code behind my picturebox tomorrow should it run in runtime?

Thanks (im a complete novice lol)

[.paul.]

that won't work. you can't subtract point from point that way

[AustinPowers]

that won't work. you can't subtract point from point that way

Oh . Can you tell me how to fix it please?

What are you Paul, a programmer by trade?

[.paul.]

Oh . Can you tell me how to fix it please?

this works:

Dim Moveable As Boolean
Dim LastPos As Point
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    Moveable = True
    Dim cp As Point = Cursor.Position
    cp.Offset(-PictureBox1.Location.X, -PictureBox1.Location.Y)
    LastPos = cp
End Sub
 
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    If Moveable Then
        Dim cp As Point = Cursor.Position
        cp.Offset(-LastPos.X, -LastPos.Y)
        PictureBox1.Location = cp
    End If
End Sub
 
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    Moveable = False
End Sub

What are you Paul, a programmer by trade?

not officially

[AustinPowers]

this works:

Dim Moveable As Boolean
Dim LastPos As Point
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
    Moveable = True
    Dim cp As Point = Cursor.Position
    cp.Offset(-PictureBox1.Location.X, -PictureBox1.Location.Y)
    LastPos = cp
End Sub
 
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
    If Moveable Then
        Dim cp As Point = Cursor.Position
        cp.Offset(-LastPos.X, -LastPos.Y)
        PictureBox1.Location = cp
    End If
End Sub
 
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
    Moveable = False
End Sub

not officially

thanks paul, legend, many thanks to you and virtue!

[virtueone]

that won't work. you can't subtract point from point that way

Paul, I tested the example before I posted and it worked fine. ???

[.paul.]

try it with option strict on, which is highly recommended by most members on this site

[virtueone]

try it with option strict on, which is highly recommended by most members on this site

Paul, would you mind elaborating on this? I am a novice as well, and I don't know much about that option or its effects.

[.paul.]

yeah sure. it's:

Project-->Properties-->Compile-->Option Strict

it helps you write your code so you don't leave things which could cause a runtime error at some time.

here's a better explanation

[virtueone]

yeah sure. it's:

Project-->Properties-->Compile-->Option Strict

it helps you write your code so you don't leave things which could cause a runtime error at some time.

here's a better explanation

Very helpful! Thank you sir!