可否改进?
Dim btn As WinForm.Button = Forms("窗口1").Controls("Button1")
btn.P+{Tab}→btn.PerformClick()
Forms("窗口1").Controls("Button1").P+{Tab}无法→
Forms("窗口1").Controls("Button1").PerformClick()
可能是直接通过父类判断子类是什么还是有些难度吧。感觉上就像是孩子还没出生就要通过爸爸预测孩子长相一样。
[此贴子已经被作者于2011-7-13 12:00:44编辑过]