moving the form

[rodchar]

hey all,
is there a way to have it where if a user clicks and holds down left mouse
button on a TextBox they will be able to move the form around the desktop?

thanks,
rodchar

[iwdu15]

yea...look at the textbox's mousedown and mousemove events.....but this is a
very curious question....can i ask the purpose of this?
--
-iwdu15

[rodchar]

i want to make something like post it notes for personal use.

"iwdu15" wrote:

yea...look at the textbox's mousedown and mousemove events.....but this is a
very curious question....can i ask the purpose of this?
--
-iwdu15

[iwdu15]

ok, so its something like this

''GLobal Var
Private ptOld as Point

Private boolDown as Boolean = False

Private Sub txtStuff_MouseDown(..)

If e.Button = MouseButtons.Left then

ptOld.X = e.x
ptOld.Y = e.y

boolDown = true

end if

end sub
Private SUb txtStuff_MouseMove(.,..)

if boolDown then

Me.left = ptOld.X - e.x
Me.Top = ptOld.Y - e.Y

end if

end sub
Private Sub txtStuff_MouseUp(...)

boolDown = false

end sub

something along those lines

hope this helps

--
-iwdu15

[rodchar]

thank you very much.

"iwdu15" wrote:

ok, so its something like this

''GLobal Var
Private ptOld as Point

Private boolDown as Boolean = False

Private Sub txtStuff_MouseDown(..)

If e.Button = MouseButtons.Left then

ptOld.X = e.x
ptOld.Y = e.y

boolDown = true

end if

end sub
Private SUb txtStuff_MouseMove(.,..)

if boolDown then

Me.left = ptOld.X - e.x
Me.Top = ptOld.Y - e.Y

end if

end sub
Private Sub txtStuff_MouseUp(...)

boolDown = false

end sub

something along those lines

hope this helps

--
-iwdu15

[Dennis]

Shouldn't that be:

Me.left = Me.left + ptOld.X - e.x
Me.Top = Me.Left + ptOld.Y - e.Y
Me.Refresh
--
Dennis in Houston
"iwdu15" wrote:

ok, so its something like this

''GLobal Var
Private ptOld as Point

Private boolDown as Boolean = False

Private Sub txtStuff_MouseDown(..)

If e.Button = MouseButtons.Left then

ptOld.X = e.x
ptOld.Y = e.y

boolDown = true

end if

end sub
Private SUb txtStuff_MouseMove(.,..)

if boolDown then

Me.left = ptOld.X - e.x
Me.Top = ptOld.Y - e.Y

end if

end sub
Private Sub txtStuff_MouseUp(...)

boolDown = false

end sub

something along those lines

hope this helps

--
-iwdu15

[Dennis]

Sorry, that is:

Me.left = Me.Left + ptOld.X - e.x
Me.Top = Me.Top + ptOld.Y - e.Y
--
Dennis in Houston
"iwdu15" wrote:

ok, so its something like this

''GLobal Var
Private ptOld as Point

Private boolDown as Boolean = False

Private Sub txtStuff_MouseDown(..)

If e.Button = MouseButtons.Left then

ptOld.X = e.x
ptOld.Y = e.y

boolDown = true

end if

end sub
Private SUb txtStuff_MouseMove(.,..)

if boolDown then

Me.left = ptOld.X - e.x
Me.Top = ptOld.Y - e.Y

end if

end sub
Private Sub txtStuff_MouseUp(...)

boolDown = false

end sub

something along those lines

hope this helps

--
-iwdu15

[Cor Ligthert [MVP]]

Rodchar

Maybe a little bit late after that Iwdu15 has given you the correct answer,
but I should have given you this link for your problem.

I like forever to give this one.
http://www.vb-tips.com/dbpages.aspx?...8-a2eda88e06ee

Cor

"rodchar" <ro*****@discussions.microsoft.comschreef in bericht
news:2F**********************************@microsof t.com...

hey all,
is there a way to have it where if a user clicks and holds down left mouse
button on a TextBox they will be able to move the form around the desktop?

thanks,
rodchar