APUNTES PARA CUARTO SEMESTRE VENTANA DE SERIALES

Ejercicio:

En el siguiente ejercicio crearemos una pantalla que vemos comúnmente al instalar un programa. Esta es la pantalla para registrar el producto. En esta verificaremos que cada una de las cajas de texto que debe completar el usuario no se dejen vacía. También, verificaremos si la clave escrita por el usuario coincide con la requerida por el programa.

Código para programar la primer caja de texto

Dim Clave As String Clave = "1234512345123451234512345" 'Verifica que la contraseña es igual a la que contiene las cajas.

 If txtCaja1.Text & txtCaja2.Text & txtCaja3.Text & txtCaja4.Text & txtCaja5.Text = Clave Then MsgBox ("Contraseña Correcta.") Unload Me ' Cierra esta ventana.

Else

MsgBox ("Contraseña Incorrecta."), vbCritical, "Registro" txtCaja1.SetFocus ' Hace que la primera caja reciba el enfoque.

 End If

Código para programar el salto a la siguiente caja una vez que que se hayan escrito 5 caracteres en una caja determinada

Verificamos que Si la primera caja de texto tiene cinco caracteres.

If Len(txtCaja1.Text) = 5 Then

txtCaja2.SetFocus ' Saltamos a la segunda caja.

End If

Código para programar el botón cancelar

Sale del programa.

 End

Código para programar el botón de comando registrar

Verificamos que Si la cuarta caja de texto tiene cinco caracteres.

 If Len(txtCaja5.Text) = 5 Then

cmdRegistrar.SetFocus ' Hacemos que el botón Registrar reciba el enfoque. End If