Question

VB.net 控件数组

VB.net里
txt0.Text = DataGridView1.CurrentRow.Cells.Item(0).Value.ToString
txt1.Text = DataGridView1.CurrentRow.Cells.Item(1).Value.ToString
txt2.Text = DataGridView1.CurrentRow.Cells.Item(2).Value.ToString
txt3.Text = DataGridView1.CurrentRow.Cells.Item(3).Value.ToString
txt4.Text = DataGridView1.CurrentRow.Cells.Item(4).Value.ToString
txt5.Text = DataGridView1.CurrentRow.Cells.Item(5).Value.ToString
txt6.Text = DataGridView1.CurrentRow.Cells.Item(6).Value.ToString
txt7.Text = DataGridView1.CurrentRow.Cells.Item(7).Value.ToString
txt8.Text = DataGridView1.CurrentRow.Cells.Item(8).Value.ToString
怎么用循环语句一句话说完？
注意：这是VB.net，不是vb6.0，谢谢！
一看就能解决问题，加分了。
那我这些文本框应该这么处理，才能使得他们能与控件数组的元素一一对应？
vb.net不支持直接用Textbox代替Textbox.text了。
我的是vb2010
我不会添加，要维持原来的功能，暂且修改为
Dim txt(8) As TextBox
txt(0) = txt0：txt(1) = txt1： txt(2) = txt2：txt(3) = txt3：txt(4) = txt4：txt(5) = txt5：txt(6) = txt6： txt(7) = txt7： txt(8) = txt8

For i = 0 To 8
txt(i).Text = DataGridView1.CurrentRow.Cells.Item(i).Value.ToString
next

等你更好的回答

Answer 1

你这是控件数组？你这明明就是9个不同的 TextBox 控件啊，只不过名字长得像而已。

追问

只是vb.net不支持vb6.0一样的控件数组，所以暂且这样写，随时可以替换。我要实现这样的功能，所以我要先这样写了。

追答

你所谓的“不支持”，仅仅是不能用鼠标在IDE上拖出来罢了。

Dim TextBox(9) As TextBox 这叫控件数组。
剩下的就是 for 循环了。

For i = 0 To 9
TextBox(i) = DataGridView1.CurrentRow.Cells.Item(i).Value.ToString
Next i

追问

追问放不下，请看补充，谢谢！

追答

1、思路对了。这的确是一种解决方案。建议把数组定义成全局，在 Form_Load 里初始化赋值成对应的控件，之后就可以通过操作数组中的元素来操作对应的控件了。

 

2、.net 中已经不存在 VB6 时代里的那种在设计阶段就可以在窗体上“画”出来的、通过索引值区分的静态控件数组了，取而代之的是“集合”。可以把这九个 TextBox 放在一个 Panel 容器里，那么就可以用：

Panel1.Controls.Item(0).Text = "1"
Panel1.Controls.Item(1).Text = "2"

这种方式来赋值了。控件在集合中的索引值取决于控件添加的顺序，这个可以到 Form1.Designer.vb 里查看。比如 Panel1.Controls.Items.Add(TextBox1) 是最先在 Panel 里添加的控件，那么 TextBox1 就是 Panel1.Controls.Item(0)。