Foxtable(狐表)用户栏目专家坐堂 → 在一个窗体中 有接近40个按钮控件 有没有办法实现批量增加按钮点击事件代码


  共有2115人关注过本帖树形打印复制链接

主题:在一个窗体中 有接近40个按钮控件 有没有办法实现批量增加按钮点击事件代码

帅哥哟,离线,有人找我吗?
李孝春
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
在一个窗体中 有接近40个按钮控件 有没有办法实现批量增加按钮点击事件代码  发帖心情 Post By:2020/12/13 23:01:00 [只看该作者]

在一个窗体中  有接近40个按钮控件  有没有办法实现批量增加按钮点击事件代码
在这里  40个按钮都是打开统一个公共窗体  名为“事件登记”


dim sre() as string = {"按钮1","按钮1"…,"按钮40"}
for each s as string in sre 
e.form.Controls(s).……
next

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)给按钮统一指定一个前缀做名称,如:...  发帖心情 Post By:2020/12/13 23:29:00 [只看该作者]



当前按照老师的初步指导  直接在窗体全局chick事件里面  写入forms(“事件登记”).open  可以实现所有按钮控件均打开同一个窗体【但是怎么排除非按钮控件呢?比如排除GroupBox这个点击打开事件登记窗体?

我还是想进一步跟老师学习一下
接近五十多个按钮  如果都要一一手动增加相同字符的话 也是一个不小的操作量
有点蓝老师有没有办法直接批量增加按钮名称字符  或者直接根据现有按钮名称  批量增加点击  打开同一个窗体呢?

按钮名如下:
Dim sre() As String = {"接收入党申请书","审看入党申请书","开入党申请谈话通知书","建立发展党员档案","明确谈话人和谈话时间","记录谈话情况","党员群团组织推荐","支委会讨论研究","上报备案材料","积极分子上级审查备案并提出意见","积极分子发展对象培训教育考察登记表","入党积极分子通知书","指定培养联系人","培养教育第一次","培养教育第二次","半年考察第一次","培养教育第三次","培养教育第四次","半年考察第二次","入党积极分子所在党小组研究提出意见","支委会听取意见研究确定","列为发展对象前公示","发展对象上报备案材料","发展对象上级审查并提出意见","确定入党介绍人","政治审查","集中培训","预备党员支委会研究审查","上报预审材料","上级党委预审","填写入党志愿书","支部大会讨论接收预备党员","预备党员支委会研究审查","预备党员支部大会决议","预备党员上报上级党委","上级党委派人谈话","预备党员上级审批","预备党员支部大会宣布","编入党支部和党小组","入党宣誓","继续教育","继续考察","提出转正申请","预备党员转正所在党小组提出意见","预备党员转正上级党委审批与意见","党支部征求党员和群众的意见","预备党员转正支委会审查","预备党员转正支部大会讨论表决通过","转正前公示","预备党员转正报上级党委","预备党员转正上级党委审批与意见","预备党员转正谈话并宣布"}
[此贴子已经被作者于2020/12/14 0:14:17编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107680 积分:547721 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/12/14 8:30:00 [只看该作者]

判断控件类型:http://www.foxtable.com/webhelp/topics/1849.htm

或者像2楼 一样判断
[此贴子已经被作者于2020/12/14 8:38:30编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
liufucan
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:647 积分:5702 威望:0 精华:0 注册:2017/4/7 12:15:00
  发帖心情 Post By:2020/12/14 8:33:00 [只看该作者]



    If Typeof e.Sender Is WinForm.button And sre.Contains(e.Sender.name)  Then
       forms("事件登记").open
    End If

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(liufucan)    If Typeof e.Sender...  发帖心情 Post By:2020/12/14 9:23:00 [只看该作者]

ok  谢谢  学习了

 回到顶部
帅哥哟,离线,有人找我吗?
李孝春
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)判断控件类型:http://www.foxtable....  发帖心情 Post By:2020/12/14 9:23:00 [只看该作者]

ok  谢谢  学习了

 回到顶部