收录日期:2019/08/18 17:23:20 时间:2016/05/30 10:06:30 标签:VB.NET
在窗体Load事件中动态添加一组Buotton控件,
如何用一个过程处理所有动态添加的Button控件的Click事件

    Private Sub F_Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim btn As Button

        For i = 1 To 10
            btn = New Button
            btn.Name = "btn" & i

            '???????????????
            '如何将同一过程如 OnButtonClick 绑定到所有动态添加的Button的Click事件上

            Me.Controls.Add(btn)
        Next
    End Sub
addhandler btn.click,addressof me.button_click
在'如何将同一过程如 OnButtonClick 绑定到所有动态添加的Button的Click事件上
处,填上  Addhandler OnButtonClick,Addressof btn.click
就可以了
AddHandler btn.Click,addressof button_Click

看一下MSDN,上面有详细介绍
如果不需要区分是哪个按钮相应的话(就是每个按钮都一样)
Addhandler btn.click ,addressof onButtonClick

如果需要区分的话
Private Sub F_Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer
        Dim btn(9) As Button

        For i = 1 To 10
            btn(i-1) = New Button
            btn(i-1).Name = "btn" & i

            Addhandler btn(i-1).click ,addressof onButtonClick

            Me.Controls.Add(btn(i-1))
        Next
    End Sub

谢谢上面各位兄弟

我是虚拟光驱的弱用者!~ 强烈建议合并! 英雄~~能给我看看这个问题么? 邮件服务器中了毒, 怎么办, 急!!! 重要问题---在线等待 老天!!!哪里可以搞到RationalSuiteEnterprise.2003.06.00啊!!! 程序員GG通常去什麼檔次的發廊剪頭發?和洗頭MM通常都聊些什麼? 支持小茸茸【蓉蓉是小破狗】竞选斑竹(非州长噢). 请问:VB中有没有延时函数? 如何利用IIS建立的FTP创建不同的用户,使之对不同目录拥有不同的权限,急!!!! 强烈建议合并! 请问如何判断某一天是否是该月的最后一天? 我想让数据库表中的某个字段在夜里12点就都被清空,该如何去做? 急!急!急!为什么我用MFC写的UDP的DLL,VB调用出错 强烈建议合并! 求助!关于win2000操作系统的问题 可用分不是每次登录增十分吗,为什么好久了都没长呢 强烈建议合并! 汇编div的问题 请教——一个简单的查询! 为什么这个文件不能实现上传功能!? 请问PHP都有那些好书? 去掉字符串前后的空格的函数! 有关发布REPORTS的一个小问题——请高手指点! evc4安装问题 关于从access中导入excel文件的问题 重要提示:“欢乐时光”病毒预警 oracle升级后的权限问题 水晶报表显示图片问题!!! 今天的京华时报,软件工程师用斗歹徒,被砍