Question

通过循环控制多个textbox问题（vb.net）

比如我现在有80个textbox，分别就是textbox1,textbox2……textbox80……我现在想做一个清空按钮，就是一下子让所有textbox的值清空，我想用循环来控制，怎么搞？
我想到一个办法，就是定义一个字符串数组，比如：
dim shuzu(79) as string
dim i as integer
for i=0 to 79 step 1
shuzu(i)="TextBox" & (i+1) &".text"
Next

这样的话，数组shuzu里面的值就成了（“TextBox1.text”、“textbox2.text”……）
这个时候新的问题来了，我要执行textbox1.text=""的话，可是数组里的值是字符串啊，那么，如何去掉这个引号呢？
*-******************************************************************************
以上部分是我自己的想法，你们可以跳开，只要能解决我标题中的问题就行

Answer 1

用VB6语言应该没问题吧，差不多的思路：
dim x as object
for each x in me.controls
if typename(x)="textbox" then
x.text=""
end if
next

追问

没效果……点了清空，也不报错，也不清空……

追答

不好意思，if typename(x)="textbox" then 这句改为 if typename(x)="TextBox" then
大小写没区分

追问

我网上看到用c#写的一段，
foreach (Control c in this.Controls)
{
if (c.GetType().ToString().Contains("TextBox"))
{
((TextBox)c).Text = "";
}
我把它改为VB的：
Dim c As Control
For Each c In Me.Controls
If c.GetType().ToString().Contains("TextBox") Then
((TextBox)c).Text = ""

追答

哦，一样的，你试一下吧

追问

看问题补充吧，这儿字数限制了

追答

你把这段if typename(x)="textbox" then 这句改为 if typename(x)="TextBox" then
再试一下吧，小问题，不用太浪费时间

追问

改过了，不行的，你看看我刚才说的改成的VB代码那里，出现报错，在 ((TextBox)c).Text = ""这里，报错是说语法错误，指在第一个“（”这儿

追答

Private Sub Command1_Click()
Dim x As Object
For Each x In Me.Controls
If TypeName(x) = "TextBox" Then
x.Text = ""
End If
Next
End Sub
我在VB6试验OK了，如果还是这样，我就不清楚了

追问

嗯，我看这段代码也没啥问题，邪门了，呵呵，谢谢！！！