VB.NET如何拖动窗体

这篇文章主要介绍VB.NET如何拖动窗体,文中介绍的非常详细,具有一定的参考价值,感兴趣的小伙伴们一定要看完!

创新互联公司于2013年成立,是专业互联网技术服务公司,拥有项目做网站、成都网站制作网站策划,项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命,1280元南谯做网站,已为上家服务,为南谯各地企业和个人服务,联系电话: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 

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

  2. Me.bFormDragging = False 

  3. End Sub 

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

  2. If Me.bFormDragging Then  

  3. Dim oMoveToPoint As Point  

  4. ' 以当前鼠标位置为基础,找出目标位置  

  5. oMoveToPoint = Me.PointToScreen
    (New Point(e.X, e.Y))  

  6. ' 根据开始位置作出调整  

  7. oMoveToPoint.Offset(Me.oPoint
    Clicked.X * -1, _  

  8. (Me.oPointClicked.Y + _  

  9. SystemInformation.CaptionHeight + _  

  10. SystemInformation.BorderSize.
    Height) * -1)  

  11. ' 移动窗体  

  12. Me.Location = oMoveToPoint 

  13. End If  

  14. End Sub 

以上是“VB.NET如何拖动窗体”这篇文章的所有内容,感谢各位的阅读!希望分享的内容对大家有帮助,更多相关知识,欢迎关注创新互联行业资讯频道!


网站名称:VB.NET如何拖动窗体
当前路径:http://pwwzsj.com/article/peoeig.html