NOVATO con problemas IF

Iniciado por pica6666, 17 Agosto 2011, 16:12 PM

0 Miembros y 1 Visitante están viendo este tema.

pica6666

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

$Edu$

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?

pica6666

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.

pica6666

vale ya lo he conseguido, no se que tenia mal pero ya esta, gracias$Edu$

$Edu$

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

pica6666

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.