VB.NET拖动窗体特殊应用技巧分享

VB.NET编程语言的推出，为开发人员带来了非常大的好处。在实际应用中，大家可以轻松的使用这款语言实现各种功能需求。比如这篇文章中为打击介绍的有关VB.NET拖动窗体等。下面就一起来看看具体的操作方法。#t#

创新互联是一家从事企业网站建设、网站建设、成都做网站、行业门户网站建设、网页设计制作的专业网站建设公司，拥有经验丰富的网站建设工程师和网页设计人员，具备各种规模与类型网站建设的实力，在网站建设领域树立了自己独特的设计风格。自公司成立以来曾独立设计制作的站点近千家。

这是一个使用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))  
  
  
  
' 根据开始位置作出调整  
  
  
  
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拖动窗体的一些特殊用法就为大家介绍到这里。

分享名称：VB.NET拖动窗体特殊应用技巧分享
分享路径：http://www.shufengxianlan.com/qtweb/news8/26558.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联