在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對象。 如果這些為null，則顯然將不起作用。 要解決此問題，您有幾種選擇：

• 將Dim BreakFast1()...行向下移動到實例化這些文本框對象的位置下方。
• 將文本框變量設置為該行之前的新實例。
• 或者，放棄所有這些文本框變量，然后直接將其實例化到數組中。

例如：

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

當您遍歷它們時，我建議改為使用For Each循環（除非For Each某些其他原因，您需要知道該循環內的索引）：

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