如何将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) 

我在你的例子中增加了一行代码。

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) 

现在，当你想找回

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 

也有另一种简单的可能性，添加一个处理程序文本框TextChanged事件，当你在文本框输入内容反映在标签中的内容。

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有一个好主意。

我个人的选择是声明一个全局字符串变量，并在您的按钮单击过程中指定它的文本框的值。