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

創(chuàng)新互聯(lián)公司于2013年成立，是專業(yè)互聯(lián)網(wǎng)技術服務公司，擁有項目做網(wǎng)站、成都網(wǎng)站制作網(wǎng)站策劃，項目實施與項目整合能力。我們以讓每一個夢想脫穎而出為使命，1280元南譙做網(wǎng)站,已為上家服務,為南譙各地企業(yè)和個人服務,聯(lián)系電話:18980820575

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

1. Private oOriginalRegion As 
   Region = Nothing 

2. ' 用于窗體移動  

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  
' 以當前鼠標位置為基礎，找出目標位置  
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)  
' 移動窗體  
Me.Location = oMoveToPoint 
End If  
End Sub 

以上是“VB.NET如何拖動窗體”這篇文章的所有內(nèi)容，感謝各位的閱讀！希望分享的內(nèi)容對大家有幫助，更多相關知識，歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道！

網(wǎng)站題目：VB.NET如何拖動窗體
網(wǎng)頁URL：http://jinyejixie.com/article6/peoeig.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供外貿(mào)建站、用戶體驗、網(wǎng)站策劃、網(wǎng)站內(nèi)鏈、靜態(tài)網(wǎng)站、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)