none
Asignar fecha específica un control DatetimePicker.

    Pregunta

  • Hola buenas tardes, me gustaria saber como establecer una fecha especifica a un datetimepicker  al momento de iniciar un formulario, la idea es asignar la fecha "02/02/2222" por defecto. y al momento de marcar la casilla del checkbox me muestre la fecha del dia actual. de antemano muchas gracias.

    Este codigo lo establesco en el evento CheckedChanged del checkbox:

            If (Check1.Checked = False) Then
                dtp1.Enabled = False
                dtp1.Value = Convert.ToDateTime("02/02/2222")

            ElseIf (Check1.Checked = True) Then
                dtp1.Enabled = True
                dtp1.Value = DateTime.Today
            End If

    jueves, 19 de enero de 2017 18:41

Respuestas

  • Jose Alrey,

    Puedes establecer la fecha en tiempo de diseño o por código en el evento Load (o cualquier procedimiento invocado desde el evento)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
    	dtp1.Value = New DateTime(2022, 2, 2)
    
    End Sub

    Private Sub Check1_CheckedChanged(sender As ...
    
    	Dim chk = DirectCast(sender, CheckBox)
    
    	dtp1.Enabled = chk.Checked
    	dtp1.Value = IIf(chk.Checked, DateTime.Today, New DateTime(2022, 2, 2))
    
    End Sub


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Jose Alrey jueves, 19 de enero de 2017 21:29
    jueves, 19 de enero de 2017 18:56

Todas las respuestas

  • Jose Alrey,

    Puedes establecer la fecha en tiempo de diseño o por código en el evento Load (o cualquier procedimiento invocado desde el evento)

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
    	dtp1.Value = New DateTime(2022, 2, 2)
    
    End Sub

    Private Sub Check1_CheckedChanged(sender As ...
    
    	Dim chk = DirectCast(sender, CheckBox)
    
    	dtp1.Enabled = chk.Checked
    	dtp1.Value = IIf(chk.Checked, DateTime.Today, New DateTime(2022, 2, 2))
    
    End Sub


    Espero que la información proporcionada te haya sido de utilidad, quedo atento a tus comentarios.
    • Marcado como respuesta Jose Alrey jueves, 19 de enero de 2017 21:29
    jueves, 19 de enero de 2017 18:56
  • Muchas gracias maestro Williams, funciono perfectamente.
    jueves, 19 de enero de 2017 21:29