Mostrar Mensajes
Lo que necesitaremos es:
5 labels,2 Botones (Command) y 2 Text
Ponerle los siguientes nombres:
Labels: Usuario,Contraseña,Datos Incorrectos,Datos Correctos,Error de datos,clickear en comprobar
Botones: Aceptar,Comprobar
Text: Los dejamos vacios.
Codeo:
Código:
Private Sub Command1_Click()
If Text1.Text = "Alumno" And Text2.Text = "4456" Then
Label4.Visible = True
Label3.Visible = False
Label5.Visible = False
Else
Label3.Visible = True
Label5.Visible = False
End If
End Sub
Private Sub Command2_Click()
If Text1.Text = "Alumno" And Text2.Text = "4456" Then
Form2.Show
Else
Label5.Visible = True
Label4.Visible = False
Label3.Visible = False
End If
End Sub
Private Sub Form_Load()
Dim a As String
Dim b As String
Dim fun As String
a = "Alumno"
b = "4456"
fun = (a & b)
Si no quieren que tenga los labels y ingresar directamente cuando ponen el id y el pass bien colocar este comando en un Command:
Código:
If Text1.Text = "Aca el id" And Text2.Text = "Aca el Pass" Then
Form2.Show
End If
End Sub
Para que al abrirse el form 2 desaparezca el primer form hay que ponerle este comando:
Código:
Form1.Hide ' Este comando sirve para ocultar el form.
Ejemplo para colocarlo:
Código:
If Text1.Text = "Axtrax" And Text2.Text = "Probando" Then
Form2.Show
Form1.Hide
End If
End Sub
Terminado quedaria asi:
Al insertar un ID y pass Incorrectos y Clickear aceptar:
Al colocar un ID y pass Incorrectos y clickear comprobar:
Al Colocar un ID y pass Correctos y clickear comprobar:
Al Colocar un ID y pass Correctos y clickear Aceptar:
Como veran abrio el segundo formulario pero en este caso el primer formulario no se oculto por que no le puse el comando para que se oculte,espero que entiendan mi tutorial y que les guste,postee esto por que vi que muchas personas pro internet preguntaban como hacerlo ademas este foro tiene mucha informacion que me ha sido util para aprender otras cosas de vb esto es algo basico lo que les e enseñado,suerte y que siga asi el foro
.