动态获取TextBox的值

[coso]

在AddDataForm窗体中有一个Panel,一个button。

－－－－Button的单击事件如下－－－－

　　　　Dim groupBox1 As New GroupBox
Dim textBox1 As New TextBox
With textBox1
.Location = New Point(15, 20)
.Width = 400
End With

With groupBox1
.Height = 50
.Controls.Add(textBox1)
.Text = groupname
.Dock = DockStyle.Top
.Enabled = True
End With
Me.Panel1.Controls.Add(groupBox1)


如果获取TextBox中输入的值。请各位高手指点！

[coso]

。。。。。。

[sanjie88]

兄弟,你还没说清楚,如果取他的值的话就用textbox1.text不就行了,感觉不到这和平常的取值有什么不同之处

[qihb_jerry]

是的，楼上的兄弟说的没错，你的目的不明确，让人搞不清说的是什么意思。动态到底动态到什么程度

[Overriding]

动态生成控件加上这个：
textBox1.Name=txtBox1

获取的时候txtBox1.Text

[兔子-顾问]

测试如下。
创建控件的按钮事件


Dim groupBox1 As New GroupBox
Dim textBox1 As New TextBox
Dim groupname As String = "TestGroupBox"
With textBox1
.Name = "MyTextBox1"
.Location = New Point(15, 20)
.Width = 400
End With

With groupBox1
.Name = "myGroupBox1"
.Height = 50
.Controls.Add(textBox1)
.Text = groupname
.Dock = DockStyle.Top
.Enabled = True
End With
Me.Panel1.Controls.Add(groupBox1)

[兔子-顾问]

然后如下是测试代码。
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim ctrl As Control = FindControlWithName(Me, "MyTextBox1")
If Not ctrl Is Nothing Then
MessageBox.Show(ctrl.Text)
End If
End Sub

Private Function FindControlWithName(ByRef obj As Control, ByVal strName As String) As Control
For Each ctr As Control In obj.Controls
If ctr.Name.CompareTo(strName) = 0 Then
Return ctr
ElseIf ctr.Controls.Count > 0 Then
Return FindControlWithName(ctr, strName)
End If
Next
Return Nothing
End Function

[coso]

窗体上有三个部分，一个是Dataview，它显示的字段的信息，textbox是根据用户选择的字段而确定的。比如：选择了“标题”，“发布时间”，“来源”三个字段，点击保存设置。那么在Panel中就会显示这三项的textbox。我现在就是想获取textbox的值。


不知道再说清楚没有。

[sanjie88]

学习

[coso]

非常感谢wuyazhe(我的宝贝叫阿刺),我现在来试一下！...ing

[coso]

“Return Nothing”这一句是不是应该不要？

[兔子-顾问]

当然需要了。你要是做不好。可以加我，我发例子给你，或帮你实现这个小功能。
565419980

[兔子-顾问]

注明csdn.TextBox

[coso]

For Each ctr As Control In Me.Panel1.Controls
For Each ctr1 As Control In ctr.Controls
MsgBox(ctr1.Text)
Next
Next

我这样做的