NOVATO con problemas IF

[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] Expandir


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] Expandir


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.