Vb.net 验证VB中的所有文本框

我是VB新手，我正在做作业，我要做的是一个magicbox，我需要在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

---

在表单上添加命令按钮…并将代码放在那里

像if else.一样使用条件语句

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

如果是textbox1 texbox2或textbox3 texbox4，则
MsgBox“我们不平等”
其他的
MsgBox“我们是平等的”

---

问候

我认为下面的代码将帮助您

    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

---

你可以发布你拥有的代码吗？有很多它不允许我：（我做了很多，哈哈，这很简单，但我的意思是我们谈论的是9个文本框，这将是很多无用的代码我想知道一个更简单的方法你能发布你的代码@itsmedavid吗？

code

Private Sub TextBox1\u TextChanged（ByVal发送方作为System.Object，ByVal e作为System.EventArgs）处理TextBox1.TextChanged、TextBox2.TextChanged、TextBox2.TextChanged、TextBox3.TextChanged、TextBox4.TextChanged、TextBox5.TextChanged、TextBox6.TextChanged、TextBox7.TextChanged、TextBox8.TextChanged、TextBox9.TextChanged，如果不是数字（TextBox1.Text））然后，如果将Dim a作为整数结束子项

code