What is wrong with this code?
When I enter the numbers into the text boxes in debug mode, nothing happens when I click "button1" form2 should show and msgbox should come up but it doesn't!
here is my defective code:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If T1.Text = "0" And T2.Text = "3" And T3.Text = "4" And T4.Text = "0" And T5.Text = "2" And T6.Text = "7" And T7.Text = "5" And T14.Text = "2" And T13.Text = "4" And T12.Text = "0" And T11.Text = "9" And T10.Text = "0" And T9.Text = "1" And T8.Text = "9" And T15.Text = "0" And T16.Text = "2" And T17.Text = "7" And T18.Text = "5" And T19.Text = "3" And T20.Text = "4" And T21.Text = "0" Then
MsgBox("Login Successful!", MsgBoxStyle.Information)
form2.show()
End If
End Sub
Private Sub T1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T1.TextChanged
If T1.TextLength = 1 Then
T2.Select()
End If
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
T1.Select()
End Sub
Private Sub T2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T2.TextChanged
If T2.TextLength = 1 Then
T3.Select()
End If
End Sub
Private Sub T3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T3.TextChanged
If T3.TextLength = 1 Then
T4.Select()
End If
End Sub
Private Sub T4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T4.TextChanged
If T4.TextLength = 1 Then
T5.Select()
End If
End Sub
Private Sub T5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T5.TextChanged
If T5.TextLength = 1 Then
T6.Select()
End If
End Sub
Private Sub T6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T6.TextChanged
If T6.TextLength = 1 Then
T7.Select()
End If
End Sub
Private Sub T7_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T7.TextChanged
If T7.TextLength = 1 Then
T8.Select()
End If
End Sub
Private Sub T8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T8.TextChanged
If T8.TextLength = 1 Then
T9.Select()
End If
End Sub
Private Sub T9_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T9.TextChanged
If T9.TextLength = 1 Then
T10.Select()
End If
End Sub
Private Sub T10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T10.TextChanged
If T10.TextLength = 1 Then
T11.Select()
End If
End Sub
Private Sub T11_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T11.TextChanged
If T11.TextLength = 1 Then
T12.Select()
End If
End Sub
Private Sub T12_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T12.TextChanged
If T12.TextLength = 1 Then
T13.Select()
End If
End Sub
Private Sub T13_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T13.TextChanged
If T13.TextLength = 1 Then
T14.Select()
End If
End Sub
Private Sub T14_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T14.TextChanged
If T14.TextLength = 1 Then
T15.Select()
End If
End Sub
Private Sub T15_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T15.TextChanged
If T15.TextLength = 1 Then
T16.Select()
End If
End Sub
Private Sub T16_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T16.TextChanged
If T16.TextLength = 1 Then
T17.Select()
End If
End Sub
Private Sub T17_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T17.TextChanged
If T17.TextLength = 1 Then
T18.Select()
End If
End Sub
Private Sub T18_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T18.TextChanged
If T18.TextLength = 1 Then
T19.Select()
End If
End Sub
Private Sub T19_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T19.TextChanged
If T19.TextLength = 1 Then
T20.Select()
End If
End Sub
Private Sub T20_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T20.TextChanged
If T20.TextLength = 1 Then
T21.Select()
End If
End Sub
Private Sub T21_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles T21.TextChanged
If T21.TextLength = 1 Then
Button1.Select()
End If
End Sub
End Class
Bookmarks