VB.NET中的動態控制

Question

這是我的按鈕單擊事件中動態文本框控件的代碼。 該代碼運行良好。 如果我單擊按鈕3次，它將生成3個文本框。 但是我不知道將文本框值分配給變量。 我不知道動態生成的控件的名稱。 如果我想在第3個文本框中添加值，該怎么做？

Dim txtBx As TextBox
Static x As Integer
Static i As Integer

txtBx = New TextBox

txtBx.Location = New Point(10, 10 + x)
txtBx.Size = New Size(100, 20)

i = i + 1
x = x + 20

Me.Controls.Add(txtBx)

如果我可以創建普通的文本框，

TextBox3.Text = "Some value"

但是我不知道為動態控件執行此操作。

Answer 1

這是一個將引用存儲在List（Of Textbox）中的示例：

Public Class Form1

 Private tbList As New List(Of TextBox) Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim tb As TextBox Dim n As Integer n = tbList.Count + 1 tb = New TextBox With tb .Location = New Point(10, 10 + (n * 20)) .Name = "dynTB" & n.ToString .Size = New Size(100, 20) End With Me.tbList.Add(tb) Me.Controls.Add(tb) End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click ' Testing: If Me.tbList.Count >= 3 Then Me.tbList(2).Text = "This is textbox 3" End Sub 

End Class