对于每个循环文本框值

Question

你好我们有文本框的问题

  For Each textBox As TextBox In GroupBox1.Controls.OfType(Of TextBox)().OrderBy(Function(b) b.TabIndex)
            textBox.Text = 1
            textBox.Text = 2

下一个 这里我有8个文本框

textbox1      textbox2
textbox3      textbox4
textbox5      textbox6
textbox7      textbox8

我希望textbox1 = 1，textbox2 = 2 textbox3 = 1，textbox4 = 2和儿子 我试过

 For Each aBox As Etcbox In GroupBox1.Controls.OfType(Of TextBox)().OrderBy(Function(b) b.TabIndex)
        aBox.Text = 1
        aBox.Text = 2

与文本框不同的名称，但我没有任何帮助，请尝试并尝试...

Answer 1

尝试使用directcast

按名称调用文本框

For i = 1 to 8
       DirectCast(Me.Controls.Find("textbox" & i, True), Textbox).text = i
Next

或更正确地检查我是偶数还是奇数并相应地分配

For i = 1 to 8
       if i mod 2 = 0 then
            DirectCast(Me.Controls.Find("textbox" & i, True), Textbox).text = "2" 
       else
            DirectCast(Me.Controls.Find("textbox" & i, True), Textbox).text = "1"
       end if
Next

但是，我没有测试过它。