在運行時動態創建的訪問文本框

Question

我在運行時動態添加文本框。如何在程序中稍後訪問它們？

Answer 1

名動態創建的控制

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
    Dim MyTextBox As New TextBox 
    MyTextBox.Name = "MyTextBox" 
    Me.Controls.Add(MyTextBox) 
end sub 

別的地方的程序：

'set text 
    Me.Controls("MyTextBox").Text = "Hi there" 
    'fetch text 
    Dim thetext = Me.Controls("MyTextBox").Text 

    'fetch textbox 
    Dim tb As TextBox = CType(Me.Controls("MyTextBox"), TextBox) 
    tb.Text = "" 
    tb.BackColor = Color.Red 

另一種方式是遍歷me.controlls收集和發現控制這種方式（可能你已經設置.tag =「我的控制」在那些或其他東西...