VB.NET編程語(yǔ)言的推出，為開發(fā)人員帶來(lái)了非常大的好處。在實(shí)際應(yīng)用中，大家可以輕松的使用這款語(yǔ)言實(shí)現(xiàn)各種功能需求。比如這篇文章中為打擊介紹的有關(guān)VB.NET拖動(dòng)窗體等。下面就一起來(lái)看看具體的操作方法。#t#

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

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)窗體的一些特殊用法就為大家介紹到這里。