VB.NET如何拖動(dòng)窗體

這篇文章主要介紹VB.NET如何拖動(dòng)窗體，文中介紹的非常詳細(xì)，具有一定的參考價(jià)值，感興趣的小伙伴們一定要看完！

這是一個(gè)使用VB.NET拖動(dòng)窗體中的拖動(dòng)無邊框的窗體方法，以下為源代碼，朋友們可以參考一下

1. Private oOriginalRegion As 
   Region = Nothing 

2. ' 用于窗體移動(dòng)  

3. Private bFormDragging As 
   Boolean = False 

4. Private oPointClicked As Point 

1. Private Sub Form1_MouseDown
   (ByVal sender As Object, ByVal 
   e As System.Windows.Forms.
   MouseEventArgs) Handles 
   MyBase.MouseDown  

2. Me.bFormDragging = True 

3. Me.oPointClicked = 
   New Point(e.X, e.Y)  

4. 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  
' 以當(dāng)前鼠標(biāo)位置為基礎(chǔ)，找出目標(biāo)位置  
oMoveToPoint = Me.PointToScreen
(New Point(e.X, e.Y))  
' 根據(jù)開始位置作出調(diào)整  
oMoveToPoint.Offset(Me.oPoint
Clicked.X * -1, _  
(Me.oPointClicked.Y + _  
SystemInformation.CaptionHeight + _  
SystemInformation.BorderSize.
Height) * -1)  
' 移動(dòng)窗體  
Me.Location = oMoveToPoint 
End If  
End Sub 

以上是“VB.NET如何拖動(dòng)窗體”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對(duì)大家有幫助，更多相關(guān)知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！