以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  求助网址  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=10555)
--  作者：lihe60
--  发布时间：2011/6/11 17:07:00
--  求助网址

前几天，贺老师写了一个代码，现在找不到地方了，求网址。

功能是这样的：点击一个按钮，可以运行另一个按钮的代码。
--  作者：ybil
--  发布时间：2011/6/11 17:33:00
--  

PerformClick

模拟单击此按钮。

示例

假定窗口有两个按钮，单击按钮1执行A操作，单击按钮2执行A、B两项操作，我们可以将按钮2的Click事件代码设置为：

Dim btn As WinForm.Button = Forms("窗口1").Controls("Button1")
btn.PerformClick()
\'B操作代码

这样就无需重复在两个按钮中编写A操作的代码，只需在按钮1中编写一次即可。
--  作者：lihe60
--  发布时间：2011/6/12 7:28:00
--  

我说的正是这个，谢谢。