以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]无边框窗口的拖动问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=125346)
--  作者：81538475
--  发布时间：2018/9/26 18:40: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


哦。。是我的上面又一个picturebox。。。这个能解决么
[此贴子已经被作者于2018/9/26 18:50:35编辑过]
--  作者：有点甜
--  发布时间：2018/9/26 19:54:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=112864&skin=0

 
--  作者：81538475
--  发布时间：2018/9/26 23:26:00
--  
好了。多谢
[此贴子已经被作者于2018/9/26 23:30:57编辑过]