VBのすべてのテキストボックスを確認する

Question

私はVBで新しく、私は宿題をやっています。私がしなければならないことは、マジックボックスです.9個のテキストボックスに9個の数字を入れて、同じ、私はそれを行っていますTextChangedイベント。

コードがありますが、不完全です。実際には動作しません。

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 
TextBox1.TextChanged, 
TextBox2.TextChanged, 
TextBox2.TextChanged, 
TextBox3.TextChanged, 
TextBox4.TextChanged, 
TextBox5.TextChanged, 
TextBox6.TextChanged, 
TextBox7.TextChanged, 
TextBox8.TextChanged, 
TextBox9.TextChanged 

If Not (IsNumeric(TextBox1.Text)) 
Then 
MsgBox("ERROR") 
End If 
Dim a As Integer 

End Sub 

Answer 1

..他にあれば...

If textbox1 <> texbox2 or textbox3 <> texbox4 then 
MsgBox "We are not equal" 
Else 
MsgBox "We are equal" 

よろしくように使用条件文をフォーム上のコマンドボタンを追加します...そして、そこにあなたのコードを配置します！

Answer 2

私は次のコードが役立つと思います。

Private Sub btn_generate_text_array_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click 'button click will generate 10 text boxes in form 
      Dim j As Integer 
      For j = 0 To 10 
       ReDim Preserve c(j) 
       c(j) = New TextBox 
       c(j).Name = "txt" & j 
       c(j).Parent = Me 
       c(j).Top = j * c(j).PreferredHeight + 2 
       c(j).Tag = j 
       c(j).Visible = True 
      Next 
     End Sub 

     Private Sub btn_process_input_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
      For j = 0 To 10 
       For k = j + 1 To 10 
        If Val(c(j).Text) = Val(c(k).Text) Then 
'if identical values ware found then the back color of both the text boxes will turn to red 
         c(j).BackColor = Color.Red 
         c(k).BackColor = Color.Red 
         MsgBox("same values found") 
        End If 
       Next 
      Next 
     End Sub