vb.net拖动无窗体界面
发布时间:2020-12-17 08:10:51 所属栏目:百科 来源:网络整理
导读:Private oOriginalRegion As Region = Nothing ' 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point '****************************************** Private Sub Form1_MouseDown(ByVal sender As Object,ByVal e As Sy
Private oOriginalRegion As Region = Nothing ' 用于窗体移动 Private bFormDragging As Boolean = False Private oPointClicked As Point '****************************************** Private Sub Form1_MouseDown(ByVal sender As Object,ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown Me.bFormDragging = True Me.oPointClicked = New Point(e.X,e.Y) 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.oPointClicked.X * -1,_ (Me.oPointClicked.Y + _ SystemInformation.CaptionHeight + _ SystemInformation.BorderSize.Height) * -1) ' 移动窗体 Me.Location = oMoveToPoint End If End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |
相关内容
- 如何在Ruby类之间传递变量?
- objective-c – XCode 4.2为什么我在.h和.m文件中看到@inte
- 正则表达式
- AJAX实例:用AJAX进行一次指定的 HEAD 请求
- c# – Windows Phone 7物理按钮重载
- C#设计模式之三抽象工厂模式(AbstractFactory)【创建型】
- ruby-on-rails – 解构Rails .joins&.where方法
- ruby-on-rails-3 – 在关系模型中添加依赖:destroy的测试(
- c# – 无法安装Microsoft Power Bi Postgre SQL连接器
- c# – 可以在.NET应用程序中运行python吗?