Visual Basic - como llamar una funcion

Life is soft - evento anual de software empresarial
 
Vista:

como llamar una funcion

Publicado por denisin (17 intervenciones) el 22/09/2005 20:21:16
Miren necesito saber como se llama una funcion en el siguinete caso .
tengo una funcion para validar fecha yo deseo que un vez yo la haya introducido y haga el evento de pasar a otro texto se realice la funcion y me mande el aviso si tengo mal la fecha. no se donde hacer el llamado a la funcion y cual es la instruccion correcta para hacerlo.
please
gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:como llamar una funcion

Publicado por Eli (49 intervenciones) el 22/09/2005 21:47:07
Las funciones se pueden llamar desde disintas partes según sea la necesidad, no se si esta función es la que yo te di, bueno la puedes llamar si quieres desde el evento KeyPress, par que cuando el usuario presione la tecla enter valide tu función, o en el LostFocus por si el usuario pasa a otro TextBox con el mouse

asi te debería de servir:
'El nombre MaskFecha es e nombre de la caja donde se digita la fecha ponle el nombre de la tuya

Private Sub MaskFecha_KeyPress(KeyAscii As Integer)
'Función para que solo acepte Números, la tecla Enter y BackSpace
If KeyAscii = 13 Then
'Validar Fecha
If IsDate(MaskFecha.Text) Then
MsgBox "Fecha Valida"
Else
MsgBox MaskFecha.Text & " NO es una fecha válida."
End If
Else
If InStr("0123456789", Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then
KeyAscii = 0
End If
End If

End Sub

Private Sub MaskFecha_LostFocus()
'Validar Fecha
If IsDate(MaskFecha.Text) Then
MsgBox "Fecha Valida"
Else
MsgBox MaskFecha.Text & " NO es una fecha válida."
End If
MaskFecha.SetFocus

End Sub

'salu2 y suerte, espero que te sirva
'o si necesitas algo solo escribeme
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar