elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Error con "Else sin if"
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Error con "Else sin if"  (Leído 2,369 veces)
acanooo

Desconectado Desconectado

Mensajes: 2


Ver Perfil
Error con "Else sin if"
« en: 7 Febrero 2016, 21:14 pm »

Buenas a todos,

Estoy empezando con este mundillo y me surgían varias dudas, estoy utilizando visual y me haciendo un programa simple para la autentificacion de usuarios me sale el siguiente error "else sin if" transcribo lo escrito hasta ahora_

Código
  1. Private Sub CmdEntrar_Click()
  2. If TextUsuario.Text = "acano" And TextContraseña.Text = "12345" Then Ventana2.Show
  3.    Else
  4.    MsgBox = "te has equivocado"
  5.    End If
  6.    End Sub

El error "else sin if" me salta cuando pongo la contraseña y el usuario y pincho en el comando que he creado "cmdEntrar"

Donde esta el fallo por el que me salta el error este?

Muchas gracias de antemano y un saludo


« Última modificación: 8 Febrero 2016, 08:12 am por Eleкtro » En línea

LeandroA
Moderador
***
Desconectado Desconectado

Mensajes: 760


www.leandroascierto.com


Ver Perfil WWW
Re: Error con "Else sin if"
« Respuesta #1 en: 8 Febrero 2016, 00:15 am »

Ventana2.Show debe ir en otra linea

Código
  1. Private Sub CmdEntrar_Click()
  2.    If TextUsuario.Text = "acano" And TextContraseña.Text = "12345" Then
  3.          Ventana2.Show
  4.    Else
  5.           MsgBox = "te has equivocado"
  6.    End If
  7. End Sub


En línea

Shell Root
Moderador Global
***
Desconectado Desconectado

Mensajes: 3.723


<3


Ver Perfil WWW
Re: Error con "Else sin if"
« Respuesta #2 en: 8 Febrero 2016, 06:20 am »

O en su defecto con la misma linea pero con :, es decir

Código
  1. If TextUsuario.Text = "acano" And TextContrasena.Text = "12345" Then : Ventana2.Show : Else : MsgBox = "te has equivocado" : End If
En línea

Por eso no duermo, por si tras mi ventana hay un cuervo. Cuelgo de hilos sueltos sabiendo que hay veneno en el aire.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines