以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  模拟点击 checkbox 控件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102134)

--  作者:wangjh8888
--  发布时间:2017/6/13 20:48:00
--  模拟点击 checkbox 控件
这是模拟按键
Dim btn As WinForm.Button = Forms("窗口1").Controls("Button1")
btn.PerformClick()


老师请问  模拟点击  checkbox 控件   该如何写代码,谢谢

或者说 我是想 执行checkbox的click事件  如何编写   (不会让我复制一遍吧,如果有 100个 checkbox\')
[此贴子已经被作者于2017/6/13 21:05:17编辑过]

--  作者:有点蓝
--  发布时间:2017/6/13 21:11:00
--  
1、就是复制代码

2、把代码放到内部函数,然后在需要的地方调用

[此贴子已经被作者于2017/6/13 21:11:32编辑过]