How to make borderless form draggable? @ UIC BSCS ‘07

How to make borderless form draggable?

Posted on May 7th, 2009 shyguy 7 comments

Making a form without a border is nice to see especially when the user don’t want his form to minimize and maximize. I have here the following code that will make a borderless form draggable.

‘Declare these 2 variables with class scope
Private Const WM_NCLBUTTONDOWN As Integer = &HA1S
Private Const HTCAPTION As Integer = 2

‘Then handle your form.MouseDown event
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        Me.Capture = False
        Dim msg As Message = Message.Create(Me.Handle, WM_NCLBUTTONDOWN, New IntPtr(HTCAPTION), IntPtr.Zero)
        Me.DefWndProc(msg)
    End Sub

Uncategorized
7 responses to “How to make borderless form draggable?”
- Rufor May 10th, 2009 at 22:37
  
  Hello,
  Thanks for article. Everytime like to read you.
  Have a nice day
- viagra May 14th, 2009 at 19:07
  
  It is the coolest site,keep so!
- Bodyc May 23rd, 2009 at 16:15
  
  Hi, Onload of page my antivirus put alert, check pls.
  Have a nice day
  Bodyc
- shyguy May 28th, 2009 at 20:14
  
  I think the there’s no conflict between anti virus and your code. What anti-virus you are using now?
- propecia June 7th, 2009 at 05:32
  
  Excellent site, It was pleasant to me.
- GarykPatton June 16th, 2009 at 03:25
  
  You know so many interesting infomation. You might be very wise. I like such people. Don’t top writing.
- viagra June 24th, 2009 at 18:36
  
  Thanks
Leave a reply

Click here to cancel reply.

Name (required)

Mail (will not be published) (required)

Website