実行時に動的にテキストボックスを追加します。プログラムの後半でそれらにアクセスするにはどうすればよいですか?
質問する
7015 次
1 に答える
5
動的に作成されたコントロールに名前を付けます
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
もう1つの方法は、me.controlls-collectionをループして、その方法でコントロールを見つけることです(おそらく、それらまたは他の何かに.tag="mycontrol"を設定しています...
于 2012-04-18T14:01:01.163 に答える