How VB.NET drags a form
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!
