Título: VB ejercicio 3 Publicado por: Codename!! en 20 Julio 2004, 21:24 pm 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: Código: Private Sub Command1_Click() formulario2: Código: Private Sub Command1_Click() PD: a todo esto komo se hace para que el kodigo salga en blanco komo haceis la mayoria ???? ::) ::) Título: Re: VB ejercicio 3 Publicado por: Cobac en 20 Julio 2004, 22:40 pm se hace con los tags [ code][ /code] :P (pero sin el espacio que he puesto antes :P
ya te he modificado el mensaje poniendote los tags, así el código es mucho más facil de visualizar salu2 Título: Re: VB ejercicio 3 Publicado por: Codename!! en 21 Julio 2004, 01:08 am ok muxas gracias
Título: Re: VB ejercicio 3 Publicado por: tallin en 24 Noviembre 2004, 12:03 pm 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
Título: Re: VB ejercicio 3 Publicado por: soplo en 27 Noviembre 2004, 00:01 am Hola
Empieza por el primero y cuando te pares lo dices. Para eso están Un saludo Título: Re: VB ejercicio 3 Publicado por: facirio en 25 Enero 2005, 04:16 am ¡Hola amigos del Foro!
Título: Re: VB ejercicio 3 Publicado por: facirio en 25 Enero 2005, 04:21 am ¡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. |