Breadcrumbs

[hungryhounduk]

Hi all
Ok i know we have 2 or 3 examples on here for moving borderless forms, well here is another example that you all can you use in your apps if you wish.

Put this after your Public Class Form1 ( or whatever your Form is called )

Code: Select all

Private mouseOffset As Point

Form Mouse Down Code

Code: Select all

 mouseOffset = New Point(-e.X, -e.Y)

Form Mouse Move Code

Code: Select all

If e.Button = Windows.Forms.MouseButtons.Left Then
            Dim mousePos As Point = Control.MousePosition
            mousePos.Offset(mouseOffset.X, mouseOffset.Y)
            Location = mousePos
        End If

and that's it

enjoy cooll;

Chris

[Lewis]

Well i thought when i saw the title. Whats the point?! And this is the shortest code ive seen ill need to change all of mine now ;) Thanks HH.
Lewis.

[zachman61]

thanks i changed the form1 code to pictureboxes for my xfire utility

[Livengood]

This code runs alot smoother than using a timer , thanks hungry

[Nery]

There is another simple way:

Code: Select all

Private point As New Point

Form1_MouseMove:

Code: Select all

Dim it As New Size(e.X - point.X, e.Y - point.Y)
        If (e.Button = MouseButtons.Left) Then
            Me.Location += it
            point = e.Location - it
        Else
            point = e.Location
        End If
    End Sub

And there you go, an ultra smooth and functional way to move a borderless form.