textboxをグローバル変数として宣言するには？

Question

私は、ボタンのクリックを経由してテキストボックスを宣言している：

Dim tp = TabControl2.TabPages(TabControl2.TabPages.Count - 1) 
Dim txtbox As New TextBox() 
txtbox.Location = New Point(200, 0) 
txtbox.Height = 20 
txtbox.Width = 100 
tp.Controls.Add(txtbox) 

は今、私は別のサブでのラベルがテキストボックスの内容を表示したいです。私の最初の試みでした：

label.Text = txtbox.text 

しかし、私のテキストボックスがローカルで宣言されたので、それは動作しませんでしたし、私はグローバル変数としてこれを宣言する方法が分からない...

Answer 1

問題は、あなたが設定されることはありませんテキストプロパティこれを試してみてください：

Dim tp = TabControl2.TabPages(TabControl2.TabPages.Count - 1) 
Dim txtbox As New TextBox() 
txtbox.Text = "Some Text" 
txtbox.Location = New Point(200, 0) 
txtbox.Height = 20 
txtbox.Width = 100 
tp.Controls.Add(txtbox) 

例に1行のコードを追加しました。

Answer 2

あなたが持っているタスクの回避策がある場合は、グローバル変数を避けてください。たとえば、追加したControlsコレクションからテキストボックスを取得できます。正しいテキストボックスを見つけるのに役立つものが必要です。今、あなたはそれを取得したいとき

Dim tp = TabControl2.TabPages(TabControl2.TabPages.Count - 1) 
Dim txtbox As New TextBox() 
txtbox.Location = New Point(200, 0) 
txtbox.Height = 20 
txtbox.Width = 100 
txtbox.Name = "MyImportantTextBox" 
tp.Controls.Add(txtbox) 

別のシンプルな可能性、テキストボックスTextChangedイベントのハンドラを追加し、そのテキストボックスに何かを入力したときのラベルの内容を反映もあり

Dim tp = TabControl2.TabPages(TabControl2.TabPages.Count - 1) 
Dim textbox = tp.Controls. 
       OfType(Of TextBox). 
       FirstOrDefault(Function(x) x.Name = "MyImportantTextBox") 
if textbox IsNot Nothing Then 
    label.Text = textbox.Text 
End If 

。

Dim tp = TabControl2.TabPages(TabControl2.TabPages.Count - 1) 
Dim txtbox As New TextBox() 
txtbox.Location = New Point(200, 0) 
txtbox.Height = 20 
txtbox.Width = 100 
AddHandler txtbox.TextChanged, AddressOf OnMyTextBoxChange 
tp.Controls.Add(txtbox) 

そしてこの

Sub OnMyTextBoxChange(sender as Object, e as EventArgs) 
    Dim txtbox = DirectCast(sender, TextBox) 
    label.Text = txtbox.Text 
End Sub 

Answer 3

ブライアンのようなtxtboxのイベントハンドラを追加するには、良いアイデアを持っていました。

個人的には、グローバル文字列変数を宣言し、ボタンをクリックしている間にテキストボックスの値を割り当てます。