各ループテキストボックスの値を

Question

ハローみんなは私が

textbox1  textbox2 
textbox3  textbox4 
textbox5  textbox6 
textbox7  textbox8 

のような8テキストボックスを持っているテキストボックス

ここ

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

次 に問題を持っている私は=の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 

私はそれをテストしませんでした。