以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于移动模式窗体问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=154143)

--  作者:裴保民
--  发布时间:2020/9/4 21:42:00
--  关于移动模式窗体问题
怎样禁止移动模式窗体或者移动后松开鼠标时窗体恢复移动前的位置呀?
--  作者:有点蓝
--  发布时间:2020/9/5 8:31:00
--  
设置成无边框窗口

例如希望消除某个独立或模式窗口的边框,可以在窗口的AfterLoad事件中加入代码:
e.Form.BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

--  作者:裴保民
--  发布时间:2020/9/5 9:32:00
--  
蓝老师我的窗体有标题不能设置成无边框的


--  作者:有点蓝
--  发布时间:2020/9/5 9:46:00
--  
没有其它办法。您可以在窗口上方空出位置自己放一个标签模拟显示标题
--  作者:裴保民
--  发布时间:2020/9/5 17:27:00
--  
有没有窗体移动事件呢?
--  作者:有点蓝
--  发布时间:2020/9/5 17:32:00
--  
不需要移动才设置成无边框窗口,要移动还何必设置为无边框窗口。

参考:http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=77912

--  作者:裴保民
--  发布时间:2020/9/5 20:01:00
--  
怎么实现当用鼠标移动窗体松开鼠标左键后立即恢复到移动前的位置呢?
--  作者:有点蓝
--  发布时间:2020/9/6 19:45:00
--  
全局代码:
Public Sub Form1_Move(sender As Object, e As System.EventArgs)
sender.Top = 300
sender.left = 300
End Sub

窗口afterload

AddHandler e.Form.baseform.move, AddressOf Form1_Move
[此贴子已经被作者于2020/9/6 19:57:22编辑过]