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

开发 后端
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 

 

  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拖动窗体的一些特殊用法就为大家介绍到这里。

责任编辑:曹凯 来源: 博客园
相关推荐

2010-01-13 15:52:59

VB.NET浮动窗体

2010-01-11 15:12:30

VB.NET特殊窗体

2009-04-30 13:24:45

VB.NET 2008窗体应用实例

2009-10-12 17:32:36

VB.NET窗体应用技

2009-10-27 13:14:35

VB.NET窗体应用

2009-11-03 17:31:01

VB.NET窗体

2010-01-13 16:45:44

VB.NET删除控件

2010-01-08 14:07:47

VB.NET窗体传值

2009-11-03 17:24:01

VB.NET特殊形状窗

2010-01-15 19:04:09

2010-01-18 18:50:26

VB.NET鼠标手势

2010-01-22 11:02:30

VB.NET创建新变量

2010-01-18 16:33:57

VB.NET加密文件

2010-01-22 14:51:31

VB.NET修改代理服

2010-01-21 18:26:16

VB.NET拆分合并语

2010-01-07 13:40:50

VB.NET读取XML

2009-10-23 13:22:25

VB.NET实现拖动图

2010-01-08 18:16:52

VB.NET变量

2010-01-14 15:44:17

VB.NET数据绑定

2010-01-12 18:00:50

VB.NET界面
点赞
收藏

51CTO技术栈公众号