主题：如何动态增加控件，并且注册事件，可以拖动控件

如何动态增加控件，并且注册事件，可以拖动控件

位置我自己会控制的

控件可以拖动，论坛有例子，代码在全局事件中写，只是需要判断控件名称！

论坛上有很多动态增加控件的例子,你可以找找看.

主要是能够移动控件，用代码做专业报表

位置控制很慢，想自己弄个工具

拖动控件位置，狐表自身的功能即可解决！

狐表自身的

你可以该在窗口的全局事件里

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:控件移动.table

MouseDown

e.Form.Text = e.X & "|" & e.Y

MouseUp(优点：不闪烁；缺点：不能即时看到控件移动，松开鼠标时才会看到新位置的控件）

If e.X & "|" & e.Y <> e.Form.Text Then
    e.Sender.Left = e.X + e.Sender.Left - e.Form.Text.Split("|")(0)   
    e.Sender.Top = e.Y + e.Sender.Top - e.Form.Text.Split("|")(1)  
End If

 

MouseMove(优点：能即时看到控件移动；缺点：控件较大时，会有闪烁。）

If e.Button = MouseButtons.Left Then
    If e.X & "|" & e.Y <> e.Form.Text Then
        e.Sender.Left = e.X + e.Sender.Left - e.Form.Text.Split("|")(0)
        e.Sender.Top = e.Y + e.Sender.Top - e.Form.Text.Split("|")(1)
    End If
End If