vb.net - 更改 TextBox vb.net 数组中 TextBoxes 的 .Text 属性

Question

我有一个文本框数组。让我们说这个：

Dim BreakFast1() As TextBox = {txtMBreak1, txtTBreak1, txtWBreak1, txtThBreak1, txtFBreak1, txtSBreak1, txtSunBreak1}

我想要做的是为数组的每个文本框设置 .Text 属性。我试过这个：

For i As Integer=0 to 6
  BreakFast1(i).Text= "Smt"
Next

没有成功。我究竟做错了什么？提前致谢

Answer 1

您发布的代码没有任何问题，但假设您添加到数组中的文本框实际上引用了实例化TextBox对象。如果这些为空，它显然不会工作。要解决这个问题，您有几个选择：

• 将Dim BreakFast1()...行向下移动到这些文本框对象被实例化的位置下方。
• 将文本框变量设置为该行之前的新实例。
• 或者，放弃所有这些文本框变量，直接将它们实例化到数组中。

例如：

Dim BreakFast1() As TextBox = {New TextBox(), New TextBox(), New TextBox(), New TextBox(), New TextBox(), New TextBox(), New TextBox()}

当您遍历它们时，我建议您使用For Each循环（除非有其他原因需要知道循环内的索引）：

For Each i As TextBox In BreakFast1
    i.Text = "Smt"
Next