处理动态(运行时)控件的事件 - VB.NET

Imports System.Reflection

Public Class Form1

    Private Sub btnCreate_Click(sender As Object, e As EventArgs) Handles btnCreate.Click
        ' 动态创建一个Button控件
        Dim dynamicButton As Button = New Button()
        dynamicButton.Name = "DynamicButton"
        dynamicButton.Text = "Click me!"
        dynamicButton.Location = New Point(10, 10)

        ' 为动态创建的Button控件添加Click事件处理程序
        AddHandler dynamicButton.Click, AddressOf Me.DynamicButton_Click

        ' 将动态创建的Button控件添加到Form中
        Me.Controls.Add(dynamicButton)
    End Sub

    Private Sub DynamicButton_Click(sender As Object, e As EventArgs)
        ' 在此处处理动态Button控件的Click事件
        MessageBox.Show("Dynamic button clicked!")
    End Sub

End Class