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!
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