[RESOLVED] [2005] Set Value of Each DateTimePicker In a Groupbox

[Jonny1409]

Hello,

I have several DateTimePickers on my form (formatted as time) and would like to populate each of them based on the current hour.
e.g. If I open the form at 10:22 AM I would lke the datetimepickers to show 10:00.

In my own mind, the code below is the sort of thing I'm after :

Dim d As DateTimePicker
For Each d In GroupBox1
    d.Value = Date.Today & " " & Hour(Now) & ":00"
Next

However I get a message about groupbox1 not being a collection type.
I assume there is a way of doing what I want ?

[stanav]

Put something like this in your form load event handler

Dim time As Date = DateTime.Now.AddMinutes(-DateTime.Now.Minute)
        Dim DTP As DateTimePicker = Nothing
        For Each ctrl As Control In Me.GroupBox1.Controls
            If TypeOf ctrl Is DateTimePicker Then
                DTP = DirectCast(ctrl, DateTimePicker)
                DTP.Value = time
            End If
        Next

[jmcilhinney]

This:

Dim time As Date = DateTime.Now.AddMinutes(-DateTime.Now.Minute)

doesn't allow for seconds and milliseconds. This would be better:

Dim time As Date = DateTime.Today.AddHours(DateTime.Now.Hour)

[RhinoBull]

This:

Dim time As Date = DateTime.Now.AddMinutes(-DateTime.Now.Minute)

doesn't allow for seconds and milliseconds. This would be better:

Dim time As Date = DateTime.Today.AddHours(DateTime.Now.Hour)

What?! Care to explain?

[jmcilhinney]

The first code rounds the minutes but leaves the seconds and milliseconds so you don't get the even hour. My code gives you the even hour.

[Jonny1409]

Thank you both very much - I appreciate it.