Bueno, acabo de comenzar a usar Visual Basic (con el programa 2008), estoy haciendo ejercicios varios y el caso es que tengo un problema el cual no consigo solucionar, puede que no me de cuenta del error y lo tenga en frente de las narices, estoy desesperado.
Lo que trato de hacer es hacer que en el formulario se reconozca una serie de usuarios y contraseñas (la única forma más fácil y para prácticar que se me ocurre es mediante una matriz bidimensional). A la hora de intentar probar un usuario y contraseña introducidos por una persona tiene que ir probando los datos de la matriz pero me da error.
He probado con un
for o bien con un
do while pero sigue sin funcionar como quiero. Os dejo el código por si hay algo mal (está incompleto).
Código:
Dim Intento As Integer = 1
[...]
Private Sub aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles aceptar.Click
Dim Matriz(5, 2) As String
Dim i As Integer = 1
Matriz(1, 1) = "user"
Matriz(1, 2) = "pass"
Matriz(2, 1) = "user2"
Matriz(2, 2) = "pass2"
Matriz(3, 1) = "user3"
Matriz(3, 2) = "pass3"
Matriz(4, 1) = "user4"
Matriz(4, 1) = "pass4"
Matriz(5, 1) = "user5"
Matriz(5, 1) = "pass5"
If (Intento = 3) Then
MsgBox("Error")
BoxUsuario.Enabled = False
BoxContrasena.Enabled = False
aceptar.Enabled = False
Else
If (Matriz(i, 1) = BoxUsuario.Text.ToLower) Then
If (Matriz(i, 2) = BoxContrasena.Text.ToLower) Then
MsgBox("Conexión aceptada")
Else
MsgBox("Contraseña incorrecta")
Intento = Intento + 1
End If
Else
MsgBox("Usuario no reconocido")
Intento = Intento + 1
End If
End If
End Sub