主题：求教狐爸：窗口中的button（按钮）移动问题？

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（按钮）移动，代码该怎么改啊，苦想了好几天没有结果啊，很想得到您的回复，期待！！！

e.Form.Controls("Button1").Left=100
e.Form.Controls("Button1").Top =100

樓主大概想用滑鼠拖動吧

对啊，就是鼠标拖动啊

是不是这样?

对啊，像你button4那样

      里面有4 5  个控件呢 不单单 只有一个控件 你仔细看看  除了4号控件 其他控件 移到什么地方 ,打开的时候就在什么地方.除了4号控件 不能保存位置

哈哈，是啊，如果是全局代码该怎么写啊