Páginas: [1] 
|
 |
|
 Autor
|
Tema: VB ejercicio 3 (Leído 2617 veces)
|
Codename!!
 Desconectado
Mensajes: 801
|
yo lo he hecho asi: creo que es mas facil de entender para los mas inexpertos mi codigo, en lugar que el de m3ll1 (que tambien esta muy bien ehh, vi que m3ll1 habia hecho el ejercicio 3 y dije haber si yo tmb soy kapaz de hacerlo (sin mirar, porsupuesto) Este es mi codigo: formulario1: Private Sub Command1_Click()
On Error Resume Next
If Text2.Text = "" Then
MsgBox "Tienes Que escribir una contraseña", vbInformation, "Introduzca contraseña"
Else
Form2.Show
End If
End Sub formulario2: Private Sub Command1_Click()
On Error Resume Next
If Form1.Text2.Text = Form2.txtconfirmada.Text Then
MsgBox "contraseña correcta", vbInformation, "bien hecho"
Else
MsgBox "contraseña incorrecta", vbCritical, "Prueba otra vez"
End If
End Sub PD: a todo esto komo se hace para que el kodigo salga en blanco komo haceis la mayoria ????  |
|
|
|
« Última modificación: 20 Julio 2004, 22:39 por Cobac »
|
En línea
|
|
|
|
|
Cobac
|
se hace con los tags [ code][ /code]  (pero sin el espacio que he puesto antes ya te he modificado el mensaje poniendote los tags, así el código es mucho más facil de visualizar salu2 |
|
|
|
|
En línea
|
PIV 2533 @ 2720Mhz | 512MB DRR333 @ 358 | 160 Gb + 40 Gb Seagate Barracuda
En la Edad Media la Iglesia robaba con los diezmos. En el siglo XXI la SGAE roba con sus cánones. |
|
|
Codename!!
Desconectado
Mensajes: 801
|
ok muxas gracias
|
|
|
|
|
En línea
|
|
|
|
tallin
Desconectado
Mensajes: 1
|
hola si me podrias pasar unos ejercicios de visual basic 6.0 ya resueltos para practicar por que apenas estoy aprendiendo a usar visual basic 6.0
|
|
|
|
|
En línea
|
|
|
|
|
soplo
|
Hola
Empieza por el primero y cuando te pares lo dices.
Para eso están
Un saludo
|
|
|
|
|
En línea
|
Callar es asentir ¡No te dejes llevar!
|
|
|
facirio
Desconectado
Mensajes: 3
|
¡Hola amigos del Foro!
|
|
|
|
|
En línea
|
|
|
|
facirio
Desconectado
Mensajes: 3
|
¡Hola amigos del Foro!
Con respecto a la solución de este ejercicio Nº 3, yo le he dado esta (quizás no sea tan refinada, pero soy principiante también, y resulta correctamente)
Option Explicit
Form1.
Private Sub cmdAceptar_Click()
If Len(txtUsuario) = 0 Then
MsgBox ("¡Debe ingresar el nombre de Usuario!")
End If
If Len(txtClave.Text) = 0 Then
MsgBox ("¡Debe ingresar su clave!"): Exit Sub
End If
Form2.Show
End Sub
Form2.
Option Explicit
Private Sub cmdAceptar_Click()
If Len(txtConfirmacion) = 0 Then
MsgBox ("¡Debe confirmar la clave!"): Exit Sub
End If
If txtConfirmacion = Form1.txtClave Then
MsgBox ("¡Clave correcta!"): End
End If
If txtConfirmacion <> Form1.txtClave Then
Error:
MsgBox ("¡Clave Incorrecta!, inténtelo de nuevo")
txtConfirmacion = ""
txtConfirmacion.SetFocus
End If
End Sub
Saludos.
Facirio.
|
|
|
|
|
En línea
|
|
|
|
|
Páginas: [1] 
|
|
|
 |
