我在创建visual basic应用程序时使用了15个文本框。文本框以“TB1”到“TB15”命名。我现在想将值复制到名为'a'的二维数组中。我应该怎么做,请帮助下面的代码
For i = 0 To 4 Step 1
For j = 0 To 2 Step 1
a(i, j) = Convert.ToInt32(TB1.Text)
Next
Next
我该如何修改第a(i, j) = Convert.ToInt32(TB1.Text)
行?
答案 0 :(得分:1)
默认情况下,Step始终为+1,因此不需要。您可以通过调用Controls()来按名称访问控件,并且可以完全访问该对象。
Dim Counter As Long = 0
For i = 0 To 4
For j = 0 To 2
Counter += 1
a(i, j) = Convert.ToInt32(Controls("TB" & Counter.ToString).Text)
Next
Next