如何点击一个按钮时触发另一个按钮的点击事件

Question

Private Sub Command1_Click()
    MsgBox "imafool"
End SubPrivate Sub Command2_Click()
    Command1.Click
End Sub
请问以上语句为什么不行？我应该怎么实现？

Answer 1

函数的事件可以认为是一个可以调用的函数。
Command1_Click
直接调用就可以，或者Command1.Value = True
这样也可以达到调用按钮点击事件的目的。═══════════════════
http://www.egooglet.com 资料、源码下载http://bbs.j2soft.cn 论坛交流
═══════════════════

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    MsgBox "imafool"
End SubPrivate Sub Command2_Click()
    Command1_Click
End Sub