Tema destacado: Recuperar cuenta de Google, GMail, Youtube
 Autor
|
Tema: Pantallazos para los ejercicios 3 y 4 (Leído 43,600 veces)
|
Mondaraz
 Desconectado
Mensajes: 2
|
Que tal soplo, soy nuevo en esto de programacion en VB6.0, estoy aprendiendo de forma autodidacta, ya resolvi el ejercicio 3, segun yo ya funciona como lo pides en el ejercicio, lo que no supe poner es: despues de ingresar la contraseña que prosiga el programa si el usuario presiona enter, sin pasar a el boton aceptar, se que el codigo ascii para el enter es CHR(13), como le puedo hacer para que lo acepte.
saludos
|
|
|
|
|
En línea
|
|
|
|
Mondaraz
Desconectado
Mensajes: 2
|
Buenos Días
Este es mi codigo para el pantallaso 4(estoy aprendiendo a programar de forma Autodidacta), espero este bien y le sea util a alguien :
Private Sub CmdSalir_Click()
End
End Sub
Private Sub Form_Load()
MsgBox "Ingrese los nombres de las Personas"
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
Private Sub Txt10P_LostFocus()
List1.AddItem Txt10P.Text
End Sub
Private Sub Txt1P_LostFocus()
List1.AddItem Txt1P.Text
End Sub
Private Sub Txt2P_LostFocus()
List1.AddItem Txt2P.Text
End Sub
Private Sub Txt3P_lostFocus()
List1.AddItem Txt3P.Text
End Sub
Private Sub Txt4P_LostFocus()
List1.AddItem Txt4P.Text
End Sub
Private Sub Txt5P_LostFocus()
List1.AddItem Txt5P.Text
End Sub
Private Sub Txt6P_LostFocus()
List1.AddItem Txt6P.Text
End Sub
Private Sub Txt7P_LostFocus()
List1.AddItem Txt7P.Text
End Sub
Private Sub Txt8P_LostFocus()
List1.AddItem Txt8P.Text
End Sub
Private Sub Txt9P_LostFocus()
List1.AddItem Txt9P.Text
End Sub
|
|
|
|
|
En línea
|
|
|
|
|
 |
