Evento Lostfocus Visual basic

Por: Marx

El evento lost focus se activa cuando el foco o cursor deja de estar en el objeto, utilizaremos este evento en el text1, ingresar una fecha escribiendo -(guiones) entre el dia-mes-año, el programa verifica que sea una fecha valida, de ser lo hará una resta regresando el numero de días que restan del año.
Ingrese en el formulario 1 cuadro de texto, 1 label y 1 botón de comando

Este es el codigo:


Option Explicit

Private Sub Command1_Click()
' envia el focus al text1
Text1_LostFocus
End Sub

Private Sub Text1_LostFocus()
'evento focus
Dim AFecha, Ndias
'Verifica que sea una fecha valida
If IsDate(Text1.Text) Then
'convierte el contenido del text1 en fecha
AFecha = CDate(Text1.Text)
'resta los dias que hay hasta fin de año
Ndias = DateSerial(Year(AFecha) + 1, 1, 1) - AFecha
Label1.Caption = "Quedan " & Ndias & " dias en el año."
Else
MsgBox Text1.Text & " NO es válida la fecha"
Text1.SetFocus
End If
End Sub

Si quieres mas artículos como este, Subscribete al blog por email...es gratis!

Comentarios

Entradas populares de este blog

Estructuras de Control visual basic

ESTRUCTURA Y FORMATO Lenguaje C