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

創(chuàng)新互聯(lián)是一家從事企業(yè)網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、成都做網(wǎng)站、行業(yè)門戶網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計制作的專業(yè)網(wǎng)站建設(shè)公司，擁有經(jīng)驗豐富的網(wǎng)站建設(shè)工程師和網(wǎng)頁設(shè)計人員，具備各種規(guī)模與類型網(wǎng)站建設(shè)的實力，在網(wǎng)站建設(shè)領(lǐng)域樹立了自己獨特的設(shè)計風(fēng)格。自公司成立以來曾獨立設(shè)計制作的站點近千家。

這是一個使用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  
  
  
  
' 以當(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)  
  
  
  
' 移動窗體  
  
  
  
Me.Location = oMoveToPoint 
  
  
  
End If  
  
  
  
End Sub 
 
 
 

VB.NET拖動窗體的一些特殊用法就為大家介紹到這里。

網(wǎng)頁題目：VB.NET拖動窗體特殊應(yīng)用技巧分享
文章網(wǎng)址：http://uogjgqi.cn/article/cooeohp.html