VB.NET自定义标题栏拖动
2014-04-29 10:13
155 查看
'首先在form里添加一个panel容器 Dim x1, x2, y1, y2 As Integer '鼠标左键按下后将x1,y1赋值 Private Sub Panel1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlMove.MouseDown If e.Button = Windows.Forms.MouseButtons.Left Then x1 = e.X y1 = e.Y End If End Sub '拖动过程中不断对x2,y2赋值 Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles pnlMove.MouseMove If e.Button = Windows.Forms.MouseButtons.Left Then x2 = e.X y2 = e.Y Me.Left = Me.Location.X + (x2 - x1) Me.Top = Me.Location.Y + (y2 - y1) End If End Sub
相关文章推荐
- 章鱼哥 VB.NET 给自定义的过程函数添加中文说明
- VB.NET自定义组件方法及注意事项
- vb.net实现无标题栏窗体可拖动
- VB.NET拖动无边框窗体API
- vb.net创建自定义颜色下拉列表
- vb.net拖动无窗体界面
- vb.net中实现picturebox中图片拖动和label控件数组结合,实现label和图片同步
- 可双击,可拖动,半透明效果按钮实现[VB.NET]
- VB.net下DataGridView的自定义 数据可并、多行标题
- 在.net(C# or vb.net)中如何用户自定义消息,并在窗体中处理这些消息
- [VB.NET]自定义FTP类的实现
- VB.net webbrowser 如何实现自定义下载 IDownloadManager
- VB.NET拖动无边框窗体API
- 拖动无标题的窗体(vb.net & c#)
- 如何将自定义的structure转换为byte数组(VB.Net)
- 讲述VB.NET实现拖动图片
- vb.net 点击panel拖动功能的实现
- 【VB.NET】利用 ZXing.Net 生成二维码(支持自定义LOGO)
- 'VB.net 自定义事件使用方法
- VB.Net 2005 2008 拖动无标题窗口