主题：[求助]在代码中如何增加控件事件

例如有2个按钮

其中按钮1单击事件为
private sub button1_click() AddHandle button1.Click
{源码...}
end sub

其中按钮2想要增加按钮1中事件，如何增加？

是否是这样：AddHandle button2.Click , AddressOf button1.Click

但是这样编译时发生错误。

直接用全局窗口事件,更加简便

 尝试过了，但在全局单击事件中没反映。

有个frmLogin的窗体，窗体中有2个按钮，1个按钮名称是"btnLogin"，另一个动态创建的按钮名称是"_btnLogin"。

窗体frmLogin中的Click全局代码如下：

Forms("frmLogin").Text = e.Sender.Name
Select Case e.Sender.Name
    Case "_btnLogin"
        Forms("frmLogin").Close()
        Forms("frmMain").Open()  ' 另一个窗体
    Case "_btnCancel"
        Syscmd.Project.Exit()  ' 退出Foxtable
End Select

运行窗体后，单击"_btnlLogin"按钮没反映。

加入代码看看是否触发了事件

 

Forms("frmLogin").Text = e.Sender.Name

msgbox(e.Sender.Name)
Select Case e.Sender.Name
    Case "_btnLogin"
        Forms("frmLogin").Close()
        Forms("frmMain").Open()  ' 另一个窗体
    Case "_btnCancel"
        Syscmd.Project.Exit()  ' 退出Foxtable
End Select

 试过了，但没有触发msgbox函数。

上例子

 你这个button1，是怎样添加进去的？

 

 要这样添加 http://www.foxtable.com/help/topics/1409.htm

 

 噢，可能是控件动态增加的方式不对，导致全局事件没能触发。
我是这样动态增加控件的：
Forms("frmLogin").Panel.Controls.Add(btnAdd)

8楼这种方式只能自己添加事件了,要用7楼这种方式才会触发全局事件

 我尝试使用你们的方式动态增加控件，但是我增加的是第三方的控件，跟WinForm.Control的控件类型不兼容。
你们增加控件的方法：e.Form.AddControl(x)
其中x是第三方控件，在编译的守候发生类型不兼容的错误。