VB.NET编程语言的推出，为开发人员带来了非常大的好处。在实际应用中，大家可以轻松的使用这款语言实现各种功能需求。比如这篇文章中为打击介绍的有关VB.NET拖动窗体等。下面就一起来看看具体的操作方法。#t#
这是一个使用VB.NET拖动窗体中的拖动无边框的窗体方法，以下为源代码，朋友们可以参考一下
- Private oOriginalRegion As
Region = Nothing - ' 用于窗体移动
- 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
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
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
' 以当前鼠标位置为基础，找出目标位置
oMoveToPoint = Me.PointToScreen
(New Point(e.X, e.Y))
' 根据开始位置作出调整
oMoveToPoint.Offset(Me.oPoint
Clicked.X * -1, _
(Me.oPointClicked.Y + _
SystemInformation.CaptionHeight + _
SystemInformation.BorderSize.
Height) * -1)
' 移动窗体
Me.Location = oMoveToPoint
End If
End Sub
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
- 8.
- 9.
- 10.
- 11.
- 12.
- 13.
- 14.
- 15.
- 16.
- 17.
- 18.
- 19.
- 20.
VB.NET拖动窗体的一些特殊用法就为大家介绍到这里。
