Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
前几天,贺老师写了一个代码,现在找不到地方了,求网址。
功能是这样的:点击一个按钮,可以运行另一个按钮的代码。
PerformClick
模拟单击此按钮。
示例
假定窗口有两个按钮,单击按钮1执行A操作,单击按钮2执行A、B两项操作,我们可以将按钮2的Click事件代码设置为:
Dim btn As WinForm.Button = Forms("窗口1").Controls("Button1")
btn.PerformClick()
'B操作代码
这样就无需重复在两个按钮中编写A操作的代码,只需在按钮1中编写一次即可。
我说的正是这个,谢谢。