| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 在一个窗体中 有接近40个按钮控件 有没有办法实现批量增加按钮点击事件代码 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=159093) |
| -- 作者：李孝春 -- 发布时间：2020/12/13 23:01:00 -- 在一个窗体中 有接近40个按钮控件 有没有办法实现批量增加按钮点击事件代码 在一个窗体中 有接近40个按钮控件 有没有办法实现批量增加按钮点击事件代码 在这里 40个按钮都是打开统一个公共窗体 名为“事件登记” dim sre() as string = {"按钮1","按钮1"…,"按钮40"} for each s as string in sre e.form.Controls(s).…… next |
| -- 作者：有点蓝 -- 发布时间：2020/12/13 23:22:00 -- 给按钮统一指定一个前缀做名称，如：按钮1、按钮2，然后到全局窗口click事件写代码：http://www.foxtable.com/webhelp/topics/1920.htm if e.Sender.Name like "按钮*" then forms(“事件登记”).open endif
|
| -- 作者：李孝春 -- 发布时间：2020/12/13 23:29:00 -- 回复：（有点蓝）给按钮统一指定一个前缀做名称，如：... 当前按照老师的初步指导 直接在窗体全局chick事件里面 写入forms(“事件登记”).open 可以实现所有按钮控件均打开同一个窗体【但是怎么排除非按钮控件呢？比如排除GroupBox这个点击打开事件登记窗体？】 我还是想进一步跟老师学习一下 接近五十多个按钮 如果都要一一手动增加相同字符的话 也是一个不小的操作量 有点蓝老师有没有办法直接批量增加按钮名称字符 或者直接根据现有按钮名称 批量增加点击 打开同一个窗体呢？ 按钮名如下： Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次","培养教育第四次","半年考察第二次","入党积极分子所在党小组研究提出意见","支委会听取意见研究确定","列为发展对象前公示","发展对象上报备案材料","发展对象上级审查并提出意见","确定入党介绍人","政治审查","集中培训","预备党员支委会研究审查","上报预审材料","上级党委预审","填写入党志愿书","支部大会讨论接收预备党员","预备党员支委会研究审查","预备党员支部大会决议","预备党员上报上级党委","上级党委派人谈话","预备党员上级审批","预备党员支部大会宣布","编入党支部和党小组","入党宣誓","继续教育","继续考察","提出转正申请","预备党员转正所在党小组提出意见","预备党员转正上级党委审批与意见","党支部征求党员和群众的意见","预备党员转正支委会审查","预备党员转正支部大会讨论表决通过","转正前公示","预备党员转正报上级党委","预备党员转正上级党委审批与意见","预备党员转正谈话并宣布"}
[此贴子已经被作者于2020/12/14 0:14:17编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2020/12/14 8:30:00 -- 判断控件类型：http://www.foxtable.com/webhelp/topics/1849.htm 或者像2楼 一样判断
[此贴子已经被作者于2020/12/14 8:38:30编辑过]
|
| -- 作者：liufucan -- 发布时间：2020/12/14 8:33:00 -- If Typeof e.Sender Is WinForm.button And sre.Contains(e.Sender.name) Then forms("事件登记").open End If
|
| -- 作者：李孝春 -- 发布时间：2020/12/14 9:23:00 -- 回复：（liufucan） If Typeof e.Sender... ok 谢谢 学习了 |
| -- 作者：李孝春 -- 发布时间：2020/12/14 9:23:00 -- 回复：（有点蓝）判断控件类型：http://www.foxtable.... ok 谢谢 学习了 |