请问如何实现无边框窗口鼠标移动?（已解决） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 请问如何实现无边框窗口鼠标移动?（已解决）

共有13310人关注过本帖树形打印复制链接主题：请问如何实现无边框窗口鼠标移动?（已解决）

xiaoqiwei

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00

请问如何实现无边框窗口鼠标移动?（已解决） 发帖心情

Post By：2012/3/26 17:20:00 [只看该作者]

请问如何实现无边框窗口鼠标移动?

代码应该怎么写呢？

[此贴子已经被作者于2012-3-26 18:25:46编辑过]

狐狸爸爸

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47511 积分：251479 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2012/3/26 17:31:00 [只看该作者]

什么意思？

狐来狐去

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：婴狐帖子：66 积分：505 威望：0 精华：0 注册：2012/3/14 19:38:00

Post By：2012/3/26 17:37:00 [只看该作者]

就是实现无边框的窗口。鼠标拖动窗口吧。。无力。只能帮顶了~~

xiaoqiwei

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：三尾狐帖子：668 积分：8561 威望：0 精华：0 注册：2011/5/5 23:55:00

Post By：2012/3/26 17:40:00 [只看该作者]

我这窗口是就是无边框的，但是移动不了，我想移动，请问老大如何实现？

图片点击可在新窗口打开查看此主题相关图片如下：1.jpg

程兴刚

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：7259 积分：40814 威望：0 精华：16 注册：2008/8/31 23:23:00

Post By：2012/3/26 21:50:00 [只看该作者]

得到楼主的代码，效果很不错，搜索本论坛，没有搜索到类似的代码，在这里共享一下：

全局代码：

Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer,ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Integer) As Integer
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Public Sub Panel_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs)
If e.Button=MouseButtons.Left Then
ReleaseCapture()
SendMessage(sender.Parent.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub

AfterLoad 事件代码：

e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown

[此贴子已经被作者于2012-3-26 22:22:20编辑过]