A Revolution
From the Norm,
Towards Greatness
Home » » Visual Basic: Moving a Borderless Form

Visual Basic: Moving a Borderless Form

Written By Unknown on Monday, June 6, 2016 | 6:16 PM

Visual Basic: Moving a Borderless Form 

Welcome to today's tutorial in Visual Basic. This is a trick I learned about 3 - 4 years ago and I wanted to share with the blog because I believe it's a very helpful trick to learn.

What you will need?
  • Nothing, other than a form that is border-less 



Source Code
  1. Public Class Form1
  3.     Private mousex As Integer
  4.     Private mousey As Integer
  5.     Private dragged As Boolean = False
  7.     Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
  8.         If e.Button = MouseButtons.Left = True Then
  9.             dragged = True
  10.             mousex = e.X
  11.             mousey = e.Y
  13.         End If
  14.     End Sub
  16.     Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
  17.         If dragged = True Then
  18.             Dim oo As Point = New Point
  20.             oo.X = Me.Location.X + (e.X - mousex)
  21.             oo.Y = Me.Location.Y + (e.Y - mousey)
  22.             Me.Location = oo
  23.             oo = Nothing
  25.         End If
  26.     End Sub
  28.     Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
  29.         If e.Button = MouseButtons.Left = True Then
  30.             dragged = False
  32.         End If
  33.     End Sub
  35. End Class
SHARE

About Unknown

0 comments :

Post a Comment