如何在 Visual Basic 2010 中为运行时创建的控件创建单击事件？答案

【问题标题】：How to make a click event for runtime created controls in Visual Basic 2010?如何在 Visual Basic 2010 中为运行时创建的控件创建单击事件？
【发布时间】：2013-02-19 01:30:58
【问题描述】：

我在运行时向我的表单添加了一些控件，我需要它们在单击时调用函数。我不知道会添加多少控件，但它们都需要运行相同的功能。我将如何定义事件？我可以根据给定类的所有控件定义事件吗？

【问题讨论】：

Dynamic button click event handler in VB.NET 的可能重复项

标签： vb.net

【解决方案1】：

一个简单的例子：

Public Class Form1


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ' creating control
        Dim btn1 As Button = New Button()
        Dim btn2 As Button = New Button()

        btn1.Parent = Me
        btn1.Name = "btn1"
        btn1.Top = 10
        btn1.Text = "Btn1"

        btn2.Parent = Me
        btn2.Name = "btn2"
        btn2.Top = 50
        btn2.Text = "Btn2"

        'adding handler for click event
        AddHandler btn1.Click, AddressOf HandleDynamicButtonClick
        AddHandler btn2.Click, AddressOf HandleDynamicButtonClick


    End Sub

    Private Sub HandleDynamicButtonClick(ByVal sender As Object, ByVal e As EventArgs)
        Dim btn As Button = DirectCast(sender, Button)

        If btn.Name = "btn1" Then
            MessageBox.Show("Btn1 clicked")
        ElseIf btn.Name = "btn2" Then
            MessageBox.Show("Btn2 Clicked")
        End If

    End Sub
End Class

【讨论】：

为什么是if..then..elseif...elseif...elseif... 构造？只需首先给AddHandler AddressOf 适当的事件处理方法，不是吗？
if else 构造用于决定哪个动态控件点击动作完成了！
我知道。只是说不需要：如果每个按钮都有不同的 Click 事件处理程序实现，只需为每个按钮注册一个不同的处理程序。
几乎我在表单上显示的每一个控件都是动态的。当我停止拖放按钮时，我数不清了。
是的，它们是，但我说的是不是使用设计器在视觉上创建的！

【解决方案2】：

简单地说：

AddHandler Control.Event, AddressOf MethodExecuting

例如：

AddHandler Button1.Click, AddressOf ClickMethod

【讨论】：