VB.NET 拖动无边框窗体编程实例 || 中国X黑客小组


	您现在的位置：中国X黑客小组 >> 技术文章 >> 编程技术 >> 综合其它 >> 文章正文	用户登录新用户注册

VB.NET 拖动无边框窗体编程实例

热

【字体：小大】

VB.NET 拖动无边框窗体编程实例

作者：不详文章来源：CnXHacker.Net 点击数：更新时间：2007-7-27

Imports System.Drawing
Imports System.Windows.Forms
'******************************************
　　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

文章录入：IceRiver 责任编辑：IceRiver

上一篇文章：代码快速开发的九个实用技巧

下一篇文章：编程修养

【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

最新热点		最新推荐		相关文章
				“VB蠕虫变种MQ”病毒技术细 _mwoltb - _mwoltb.dll - DL 病毒清除技巧u.vbe和u.bat手 zlib.dll - zlib - DLL文件信 wowdeb.exe - wowdeb - 进程 microsoft.visualstudio.too microsoft.visualstudio.tex microsoft.visualstudio.tex ASP.NET与数据库相关技巧了解VB编写病毒的大体方法

　网友评论：（只显示最新5条。评论内容只代表网友观点，与本站立场无关！）


关于我们 - 版权声明 - 帮助(？) - 广告服务 - 联系我们 - 友情链接 - 用户注册 -	Powered by ICE RIVER - STUDIO

» CnXHacker.CoM