Shulou(Shulou.com)06/02 Report--

This article mainly introduces VB.NET how to drag the form, the article is very detailed, has a certain reference value, interested friends must read it!

This is a drag using VB.NET to drag the form without a border in the form method, the following is the source code, friends can refer to

Private oOriginalRegion As

Region = Nothing

'for form movement

Private bFormDragging As

Boolean = False

Private oPointClicked As Point

Private Sub Form1_MouseDown

(ByVal sender As Object, ByVal

E As System.Windows.Forms.

MouseEventArgs) Handles

MyBase.MouseDown

Me.bFormDragging = True

Me.oPointClicked =

New Point (e.x, e.y)

End Sub

Private Sub Form1_MouseUp

(ByVal sender As Object, ByVal

E As System.Windows.Forms.

MouseEventArgs) Handles

MyBase.MouseUp

Me.bFormDragging = False

End Sub

Private Sub Form1_MouseMove (ByVal

Sender As Object, ByVal e As

System.Windows.Forms.MouseEventArgs)

Handles MyBase.MouseMove

If Me.bFormDragging Then

Dim oMoveToPoint As Point

'find out the target location based on the current mouse position

OMoveToPoint = Me.PointToScreen

(New Point (e.X, e.y))

'adjust according to the starting position

OMoveToPoint.Offset (Me.oPoint

Clicked.X *-1, _

(Me.oPointClicked.Y + _

SystemInformation.CaptionHeight + _

SystemInformation.BorderSize.

Height) *-1)

'Mobile form

Me.Location = oMoveToPoint

End If

End Sub

The above is all the content of the article "how to drag a form in VB.NET". Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.