проверить все текстовые поля в 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

Добавить командную кнопку на вашей форме ... И разместить свой код там ..

USE Условное выражение, как если бы еще ..

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

Привет! * * 1006

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