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
这是狐爸去年发的帖子，窗口移动正常，如果是窗口里的button（按钮）移动，代码该怎么改啊，苦想了好几天没有结果啊，很想得到您的回复，期待！！！
加好友 
发短信
Post By：2013/5/19 11:14:00 [显示全部帖子]
