Fecha: Junio 8 de 2012

Asignatura: Tecnología e Informática

Formación en Valor: Alegría.

Núcleo Integrador: Eventos LostFocus y GotFocus.

Objetivo: Programar salida y entrada del Cursor.

Desarrollo:

GotFocus: es un evento que ocurre al momento de caer el cursor sobre un objeto.

LostFocus: es un evento que ocurre al momento de salir el cursor.

En la pantalla de Visual Basic 6.0 agregar al formulario 2 cuadros de textos.

Debe agregar 2 cuadros de textos y un Boton de Comando CommandButton 

El formulario queda de la siguiente forma:

Borrar la propiedad Text, para que los cuadros de textos queden en blanco.

Recuerde seleccionar el cuadro de texto (Con un Clic sobre el cuadro) para que se muestren las propiedades y Borrar la propiedad Text.

Muestre la ventana Formulario (Form)

Aparece el siguiente código

Private Sub Text1_Change()

End Sub

Debe cambiar al Evento LostFocus

Escriba el siguiente código, que valida que tenga información el cuadro de texto, si no tiene información no deja salir el cursor del cuadro de texto.

Private Sub Text1_LostFocus()

  If Text1 = "" Then

    MsgBox "Escriba un dato"

    Text1.SetFocus

  End If

End Sub

Luego debe realizar lo mismo Doble Clic sobre el botón de comando COMMAND1 y seleccionar el evento GotFocus y escribir el siguiente código:

Private Sub Command1_GotFocus()

If Text2 = "" Then

    MsgBox "Escriba un dato"

    Text1.SetFocus

  End If

End Sub

Ejecute el programa y pruebe, la salida del cursor sin escribir datos.