Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: pica6666 en 17 Agosto 2011, 16:12 PM

Título: NOVATO con problemas IF
Publicado por: pica6666 en 17 Agosto 2011, 16:12 PM
no me acepta ELSE debajo del form2.label1.text para poner contraseña erronea en un msgbox, aqui dejo el codigo

por cierto me dice "'Else' debe ir precedida de la instrucción 'If' o 'ElseIf' correspondiente"

Gracias


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "kikon" And TextBox2.Text = "premio" Then Form2.Show()
        Form2.Label1.Text = "CONTRASEÑA ACEPTADA"
    End Sub
Título: Re: NOVATO con problemas IF
Publicado por: $Edu$ en 17 Agosto 2011, 16:23 PM
Eso es porque al poner el Then y la instruccion que sigue todo en una misma linea, no hay q poner End If pero cuando usas else si, entonces hazlo distinto por ejemplo asi:

Código (vb) [Seleccionar]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       
If TextBox1.Text = "kikon" And TextBox2.Text = "premio" Then
        Form2.Show()
   else
        Form2.Label1.Text = "CONTRASEÑA ACEPTADA"
end if

    End Sub



Entiendes?
Título: Re: NOVATO con problemas IF
Publicado por: pica6666 en 17 Agosto 2011, 16:28 PM
pero lo que yo quiero es crear un if y que me diga contraseña aceptada y luego el form2  y SI NO que me diga contraseña incorrecta con un msgbox.
Título: Re: NOVATO con problemas IF
Publicado por: pica6666 en 17 Agosto 2011, 16:35 PM
vale ya lo he conseguido, no se que tenia mal pero ya esta, gracias$Edu$
Título: Re: NOVATO con problemas IF
Publicado por: $Edu$ en 17 Agosto 2011, 16:41 PM
Ah no lei bien q decia Contraseña Aceptada perdon, mala mia, pero la idea ya la entendiste creo, quedaria asi:

Código (vb) [Seleccionar]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "kikon" And TextBox2.Text = "premio" Then
        Form2.Show()
        Form2.Label1.Text = "CONTRASEÑA ACEPTADA"

  else

        Form2.Label1.Text = "CONTRASEÑA INCORRECTA"
end if

    End Sub




Pero acuerdate que tu error era porque hiciste un if "corto" de una linea, si lo haces "estructurado" no tendras problemas nunca
Título: Re: NOVATO con problemas IF
Publicado por: pica6666 en 18 Agosto 2011, 20:57 PM
Pues estoy empezando con esto, aprendiendo viendo tutoriales y videos del youtube, me recomiendas algun tutorial o manual que conozcas?.

Correcto ese fue mi error, tan simple y corto  era el codigo que acudi al foro, por que me daba rabia no solucionarlo, gracias de nuevo.