locked
Validacion de fecha VB-2008 RRS feed

  • Pregunta

  • Hola a todos, como valido un control de fecha en visual basic 2008, quisiera que cuando yo le ingrese una fecha no validada me salga un mensaje de error.
    sábado, 8 de mayo de 2010 20:21

Respuestas

  • Hola, Marco Antonio:

    Si por "control de fecha" entendemos un control DateTimePicker, va a ser un poco complicado seleccionar una fecha no válida, o asignarle una fecha incorrecta. No obstante, verifica la fecha en el evento Validanting de dicho control. Inserta en el formulario un control ErrorProvider, y ejecuta algo parecido a lo siguiente:

        Private Sub DateTimePicker1_Validating( _
            ByVal sender As Object, _
            ByVal e As System.ComponentModel.CancelEventArgs) _
            Handles DateTimePicker1.Validating

            Dim dt As DateTimePicker = DirectCast(sender, DateTimePicker)

            Try
                Dim fecha As DateTime = dt.Value

            Catch ex As Exception
                ErrorProvider1.SetError(dt, "La fecha no es válida.")

            End Try

        End Sub

    Un saludo

     


    Enrique Martínez [MS MVP - VB]
    sábado, 8 de mayo de 2010 21:04
    Moderador

Todas las respuestas

  • Hola, Marco Antonio:

    Si por "control de fecha" entendemos un control DateTimePicker, va a ser un poco complicado seleccionar una fecha no válida, o asignarle una fecha incorrecta. No obstante, verifica la fecha en el evento Validanting de dicho control. Inserta en el formulario un control ErrorProvider, y ejecuta algo parecido a lo siguiente:

        Private Sub DateTimePicker1_Validating( _
            ByVal sender As Object, _
            ByVal e As System.ComponentModel.CancelEventArgs) _
            Handles DateTimePicker1.Validating

            Dim dt As DateTimePicker = DirectCast(sender, DateTimePicker)

            Try
                Dim fecha As DateTime = dt.Value

            Catch ex As Exception
                ErrorProvider1.SetError(dt, "La fecha no es válida.")

            End Try

        End Sub

    Un saludo

     


    Enrique Martínez [MS MVP - VB]
    sábado, 8 de mayo de 2010 21:04
    Moderador
  • Hola, muchas gracias por tu aporte lo voy a poner a prueba ya te cuento como me fue. gracias
    miércoles, 12 de mayo de 2010 5:17