[求助]关于窗口拖动的问题！（还有个小问题，例子已附） - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于窗口拖动的问题！（还有个小问题，例子已附）

共有10452人关注过本帖树形打印复制链接主题：[求助]关于窗口拖动的问题！（还有个小问题，例子已附）

狐狸爸爸

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

加好友

发短信

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

Post By：2012/1/30 12:35:00 [只看该作者]

Public XX,YY As Single

Public Sub Panel_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
   If e.Button = Windows.Forms.MouseButtons.Left Then
      XX = e.X
      YY = e.Y
    End If
End Sub

Public Sub Panel_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
If e.Button = Windows.Forms.MouseButtons.Left Then sender.Parent.Location = New Point(sender.Parent.Location.X - XX + e.X, sender.Parent.Location.Y - YY + e.Y)
End Sub

'窗口AfterLoad事件代码--------------------------------------------------------------------------------------------------------------------

AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown
AddHandler e.Form.Panel.MouseMove,AddressOf Panel_MouseMove

飞

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

加好友

发短信

等级：三尾狐帖子：732 积分：5491 威望：0 精华：14 注册：2011/8/28 12:49:00

Post By：2012/1/30 12:39:00 [只看该作者]

汗,复制代码时候漏了一句,又拼了一次还错,现在应该是正确的了

[此贴子已经被作者于2012-1-30 12:39:38编辑过]

gaoyong30000

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

加好友

发短信

等级：五尾狐帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00

Post By：2012/1/30 12:44:00 [只看该作者]

好代码啊~~~~ 不过俺看不懂哎帮助里没有图片点击可在新窗口打开查看

多谢各位了~

gaoyong30000

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

加好友

发短信

等级：五尾狐帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00

Post By：2012/1/30 12:45:00 [只看该作者]

这些貌似牵涉到第三方控件方面的知识吧!

程兴刚

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

加好友

发短信

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

Post By：2012/1/30 14:39:00 [只看该作者]

以下是引用gaoyong30000在2012-1-30 12:35:00的发言：
程老师您所说的数据不安全是什么意思呢？

[此贴子已经被作者于2012-1-30 12:42:03编辑过]

问题很简单，未登录但可操作，张三删除了李四的数据，无责可循。

gaoyong30000

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

加好友

发短信

等级：五尾狐帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00

Post By：2012/1/30 20:59:00 [只看该作者]

还有一点小问题！

我窗口中有一个组合框如果我先点击了这个组合框然后再去点击组合框外的窗体整个窗体就会乱动不知道如何改代码

代码中还有一些看不懂！

If e.Button = Windows.Forms.MouseButtons.Left Then sender.Parent.Location = New Point(sender.Parent.Location.X - XX + e.X, sender.Parent.Location.Y - YY + e.Y)

附上例子麻烦各位老大了！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目3.rar

[此贴子已经被作者于2012-1-30 21:02:02编辑过]

gaoyong30000

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

加好友

发短信

等级：五尾狐帖子：1165 积分：9032 威望：0 精华：1 注册：2011/5/25 16:33:00

Post By：2012/1/31 11:32:00 [只看该作者]

自己顶下~

blackzhu

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

加好友

发短信

等级：狐仙帖子：9875 积分：57596 威望：0 精华：15 注册：2008/9/1 9:45:00

Post By：2012/2/1 9:43:00 [只看该作者]

九方,我测试没有问题呀.

gdlgh

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

加好友

发短信

等级：一尾狐帖子：449 积分：3506 威望：0 精华：5 注册：2008/9/1 2:32:00

Post By：2012/2/1 14:43: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