-2

実行時に動的にテキストボックスを追加します。プログラムの後半でそれらにアクセスするにはどうすればよいですか?

4

1 に答える 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 に答える