收录日期:2019/04/24 20:31:21 时间: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

谢谢上面各位兄弟

谁有1stclass4000for d7,我很需要啊 一个简单的条件式makefile问题 boost的regex无法匹配数字.换行? 活跃网络 笔试 菜鸟问题 求教java.lang.NullPointerException (请大家讨论)如何实现多台监控设备屏幕的切换和视频录制(在线等) IIS怎么算配好了?怎么用? 启动画面 请教改sdram问题 收藏 不显示删除回复显示所有回复显示星级回复显示得分回复 域名代理商倒闭了,购买的域名还能续费吗?[ 求教关于Ext panel在tablelayout上拖动的问题,在线等。。。。。 一个简单的datatable的问题 路由器是TP-LINK,如何在路由里设置规则限制讯雷下载? 同一用户登录问题 JS替换class下的部分A标签的内容 关于图形的保存与重绘 是微软糊弄人呀,还是我方法不对?各位大侠帮我分析一下原因。 我想实现鼠标移动到导航条上面颜色渐变 div的控制 指针符号*放在变量后是什么意思? 急,急,急!关于游戏中的资源打包问题 gridview中的分解功能实现 C语言如何把ANSI转UTF-8 2440a看门狗中断进不了!!求好心人指教!!! i的取值如何? 换个系统 无法更新CEdit内容 高手请指点一下哦 jquery在ie6下的失效问题