Highlight entire week in MonthCalendar Control

[Randy]

Based on the date that the user selects, I'm trying to make the
MonthCalendar control highlight the entire week. In my case, the week
is from Monday - Sunday. I thought that using AddBoldedDate along
with selectionrange. start and .end would accomplish this, but it
doesn't.

Here is my code:

Private Sub MonthCalendar1_ DateChanged(ByV al sender As System.Object,
ByVal e As System.Windows. Forms.DateRange EventArgs) Handles
MonthCalendar1. DateChanged
Dim dateToday As Date = MonthCalendar1. SelectionRange. Start
Dim LastMonday As Date
Select Case dateToday.DayOf Week
Case DayOfWeek.Monda y
LastMonday = MonthCalendar1. SelectionRange. Start
Case DayOfWeek.Tuesd ay
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-1)
Case DayOfWeek.Wedne sday
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-2)
Case DayOfWeek.Thurs day
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-3)
Case DayOfWeek.Frida y
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-4)
Case DayOfWeek.Satur day
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-5)
Case DayOfWeek.Sunda y
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-6)
End Select

With MonthCalendar1
.SelectionRange .Start = LastMonday
.SelectionRange .End = LastMonday.AddD ays(7)
for x = 0 to 6
.AddBoldedDate( LastMonday.AddD ays(x))
next
End With
End Sub

Thanks,
Randy

[Randy]

Any takers?

[rvgrahamsevatenein]

I was looking to solve the same problem when I found your post. This
works for me:

Private Sub dtPick1_DateSel ected(ByVal sender As System.Object,
ByVal e As System.Windows. Forms.DateRange EventArgs) Handles
dtPick1.DateSel ected
Dim i As Integer = CInt(dtPick1.Se lectionStart.Da yOfWeek)
Dim d As Date = dtPick1.Selecti onStart
dtPick1.Selecti onStart = d.AddDays(1 - i)
dtPick1.Selecti onEnd = d.AddDays(7 - i)
End Sub

Note that I'm triggering off the DateSelected event, not DateChanged,
that way it doesn't re-trigger itself.
The seed values in the AddDays method make it Monday first day of
week. Otherewise use 0 and 6.
Enums always have an integer value behind, so you can avoid the Select
Case language.

Bob Graham

On Sep 23, 5:44 pm, Randy <spam.eastl...@ gmail.comwrote:

Based on the date that the user selects, I'm trying to make the
MonthCalendar control highlight the entireweek. In my case, theweek
is from Monday - Sunday. I thought that using AddBoldedDate along
with selectionrange. start and .end would accomplish this, but it
doesn't.

Here is my code:

Private Sub MonthCalendar1_ DateChanged(ByV al sender As System.Object,
ByVal e As System.Windows. Forms.DateRange EventArgs) Handles
MonthCalendar1. DateChanged
Dim dateToday As Date = MonthCalendar1. SelectionRange. Start
Dim LastMonday As Date
SelectCase dateToday.DayOf Week
Case DayOfWeek.Monda y
LastMonday = MonthCalendar1. SelectionRange. Start
Case DayOfWeek.Tuesd ay
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-1)
Case DayOfWeek.Wedne sday
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-2)
Case DayOfWeek.Thurs day
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-3)
Case DayOfWeek.Frida y
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-4)
Case DayOfWeek.Satur day
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-5)
Case DayOfWeek.Sunda y
LastMonday =
MonthCalendar1. SelectionRange. Start.AddDays(-6)
EndSelect

With MonthCalendar1
.SelectionRange .Start = LastMonday
.SelectionRange .End = LastMonday.AddD ays(7)
for x = 0 to 6
.AddBoldedDate( LastMonday.AddD ays(x))
next
End With
End Sub

Thanks,
Randy

[rvgrahamsevatenein]

Actually I've found a flaw in the case where a user selects a sunday,
it goes to the next week, but that should be easy to fix with an IIF
or whatever.

Sayonnara, Bob

[rvgrahamsevatenein]

Another flaw!!! Works pretty well in Vista but causes some display
corruption in XP...

[Randy]

That works perfectly.

For anybody who happens upon this post, the major difference (besides
that Bob's code is much more efficient) seems to be that I was using
selectionrange. start (and end) where Bob is using selectionstart and
selectionend.

Thanks, Bob!
Randy