VB.NET创建动态文本框并具有不同的功能

Imports System.Windows.Forms

Public Class MainForm
    Inherits Form

    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 创建一个新的文本框控件
        Dim dynamicTextBox As New TextBox()
        
        ' 设置文本框的属性
        dynamicTextBox.Location = New Point(50, 50)
        dynamicTextBox.Size = New Size(200, 20)
        dynamicTextBox.Text = "这是一个动态文本框"
        
        ' 将文本框添加到窗体中
        Me.Controls.Add(dynamicTextBox)
    End Sub
End Class

' 在创建文本框后，为其添加文本改变事件处理程序
AddHandler dynamicTextBox.TextChanged, AddressOf DynamicTextBox_TextChanged

' 定义文本改变事件处理程序
Private Sub DynamicTextBox_TextChanged(sender As Object, e As EventArgs)
    Dim textBox As TextBox = CType(sender, TextBox)
    MessageBox.Show("文本已改变：" & textBox.Text)
End Sub