moving the form

[Guest]

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

 

[Guest]

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

 

[Guest]

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

 

[Guest]

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

 

[Guest]

thank you very much.

 

[Guest]

Shouldn't that be:

Me.left = Me.left + ptOld.X - e.x
Me.Top = Me.Left + ptOld.Y - e.Y
Me.Refresh

 

[Guest]

Sorry, that is:

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

 

[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?ID=72f58d3f-2cb5-4d51-b148-a2eda88e06ee

Cor