-- 作者:石四
-- 发布时间:2016/6/17 9:29:00
-- 相同代码,反应不一,没找出原因。
With Forms("公告通知") .Open() .Controls("Label1").Text = 9 End With Dim btn As WinForm.Button = Forms("公告通知").Controls("Button1") btn.PerformClick()
这段代码能执行!
With Forms("费用管理") .Open() .Controls("Label31").Text = 9 End With Dim btn As WinForm.Button = Forms("费用管理").Controls("Button3") btn.PerformClick()
这段只能打开窗口,但调用不了其中的label和button控件,
关闭窗口后,有错误提示:
此主题相关图片如下:qq截图00.png
此主题相关图片如下:qq截图22.png
|