繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP.NET > 窗体问题--拖动无标题栏的窗体
- ASP.NET
- [EnterpriseServices]利用assembly定义我们的组件在COM+中的注册方式
- crystal reports for Visual Studio .NET(webformsample)
- XML指南：微软的XML解析器
- 展现C# 清单5.10 生成exe文件执行的问题
- vb.net 读写xml方法(1)
- 选择文件夹的对话框控件c#
- 特洛伊木马服务器源代码（C#）
- 上传图片画带阴影的水印.(C#)
- vb.net读写xml(2)--实现datagrid与xml的沟通（原创）
- 列出所有的sheet，然后点击其中的一个，自动跳过去
- 从VB中的Datagride中向excel导入数据
- XML指南：XML CDATA
- XML指南：XML编码
- XMLDOM对象方法：Document对象方法
- XMLDOM对象方法：对象事件
- XMLDOM对象方法：对象属性
- [一个登录窗体的完整范例，包括登录，密码更改，输入错误三次退出]
- [关于判断输入数据是否在数据库中的方法。]
- [VBA]office中内建的faceid所对应的图标
- web组件设计，利用接口（IPostBackDataHandler）产生数据回传的问题
ASP.NET 中的 窗体问题--拖动无标题栏的窗体
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 217 ::
收藏到网摘: n/a
Private mouse_offset As Point Private Sub form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown mouse_offset = New Point(e.X, e.Y) End Sub
Private Sub form1_MouseMove(ByVal Sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove '按住鼠标左右键均可拖动窗体 Dim frm As Form1 = DirectCast(Sender, Form1) If e.Button = MouseButtons.Left Or e.Button = MouseButtons.Right Then Dim mousepos As Point = frm.MousePosition '获得鼠标偏移量 mousePos.Offset(-mouse_offset.X, -mouse_offset.Y) '设置窗体随鼠标一起移动 frm.Location = mousepos End If
End Sub
Private Sub BtnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '关闭窗体 Me.Close() End Sub
////////////////////////////////////// 闵峰 2005/05/26
评论 (0) All
