- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于窗口拖动的问题！（还有个小问题，例子已附） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=16002)
-- 发布时间：2012/1/29 23:05:00
-- [求助]关于窗口拖动的问题！（还有个小问题，例子已附）
窗口只有点击标题栏才可以拖动！
但是我加入了这段代码
e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.None
把标题栏去掉了 由于窗口是用户登录窗口 没法拖动 很死板 请问如何解决？
搜遍论坛只看见可以移动控件的 没有提移动没有标题栏窗口的~
-- 发布时间：2012/1/29 23:38:00
--
既然未登录，为何要拖动？既然禁止直接关闭，关闭前就不应该进行别的操作，难道拖动后还想干别的？有点多此一举的感觉！
-- 发布时间：2012/1/30 8:58:00
--
我们公司的dms登录界面就可以拖动 界面和我这差不多
此主题相关图片如下：1.jpg
-- 发布时间：2012/1/30 9:00:00
--
不是不可以，但是设计的时候，调整好登录窗口的位置，是更简单的做法。
-- 发布时间：2012/1/30 9:16:00
--
能够拖动的话 更灵活啊 因为我们公司很多人适应了之前的dms系统 所以我现在做的系统尽量参照这一系统
-- 发布时间：2012/1/30 9:35:00
--
请教 如何实现啊？
-- 发布时间：2012/1/30 10:26:00
--
强烈建议楼主登录窗口要采用模式窗口，登录前禁止其他操作，否则，系统数据不安全！
-- 发布时间：2012/1/30 12:21: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
-- 发布时间：2012/1/30 12:33:00
--
飞 全局代码提示出错
此主题相关图片如下：1.jpg
-- 发布时间：2012/1/30 12:35:00
--
程老师 您所说的数据不安全 是什么意思呢？