Capture Month Change with MonthCalendar

[Randy]

I have a MonthCalendar on one of my forms. I have disovered that the
DateChanged event is triggered not only when the user clicks on a new
date, but also if they click on the Previous or Next Month arrows
(meaning they click on either of the left or right pointing arrows in
the top corner). If the user changes the month, it messes up some of
the date logic that I have in the DateChanged event. Does anybody
know how I can capture this action? I'd like my code in the
DateChanged routine to work like this:

If MonthNotChanged then
Do Something
Else 'month changed
Do something Else
End if

Thanks,
Randy

[Cor Ligthert[MVP]]

Randy,

Did you try the other events, I use always the TextChanged one?

Cor

[Randy]

I don't see TextChanged in the list of events. I looked at the other
events, but I don't see anything that is more appropriate.

[Cor Ligthert[MVP]]

http://msdn2.microsoft.com/en-us/lib...xtchanged.aspx

>I don't see TextChanged in the list of events. I looked at the other
events, but I don't see anything that is more appropriate.

[Randy]

Charlie,
I was going down the same path with using an If statement to check if
the month had changed. Unfortunately, this doesn't always work. If
you look at the calendar view, you can often see the last few days of
the previous month or the first few days of the succeeding month. If
the user were to click on these dates, the logic you propose would
conclude that the user had clicked the arrow, not the date. I'll post
my code below for anybody who is interested.

What I am trying to do is execute certain lines of code *only* if the
user has selected a date. If they are clicking on one of the arrows,
I am treating this action as the user *navigating* to a date (as
opposed to actually selecting one). So if they were to click Sep 28
while viewing the Oct calendar, this would qualify as *selecting* a
date, and thus would initiate a sequence of actions. If they clicked
the left arrow, this is simply a navigational move and would be
disregarded. I've looked for patterns in how the MonthCalendar
handles these arrow clicks, but I'm not seeing reliable patterns that
I can code around.

Somehow, the control must distinguish these arrows or it wouldn't work
as it does. So the question is still, how can I trap these clicks in
my VB code? If I can figure that out, it will make my programming
monumentally easier as well as more reliable.
Private Sub MonthCalendar1_ DateChanged(ByV al sender As Object, ByVal e
As System.Windows. Forms.DateRange EventArgs) Handles
MonthCalendar1. DateChanged
'If there are unsaved changes, alert the user
If bLoading = False Then
If bUnsaved = True Then
frmDateChange.S how()
Exit Sub
End If

'This is where I'm stuck trying to trap the arrow click
Dim d As Date = e.Start
'Me.Text = Me.CurrentSelec tedDate
If d.AddMonths(-1).Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Right arrow clicked."
Call SelectDates()
End If
ElseIf d.AddMonths(1). Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Left arrow clicked."
Call SelectDates()
End If
Else
Me.Text = d.ToString & " Date changed."
Call SelectDates()
Call RemoveControls( )
Call AddDataRows()
End If
Me.CurrentSelec tedDate = d
End If
End Sub

Private Sub SelectDates()
Dim i As Integer =
CInt(MonthCalen dar1.SelectionS tart.DayOfWeek)
Dim d As Date = MonthCalendar1. SelectionStart
Dim a As Integer
If i = 0 Then
a = -6
Else
a = 1 - i
End If
MonthCalendar1. SelectionStart = d.AddDays(a)

If i = 0 Then
a = 0
Else
a = 7 - i
End If
MonthCalendar1. SelectionEnd = d.AddDays(a)
End Sub

So, how do I trap this arrow click? Or if there is no way, how can I
program the logic to identify and trap the conditions that would would
be present if the arrows are clicked? Any help is appreciated.

Thanks,
Randy

[=?Utf-8?B?Q2hhcmxpZQ==?=]

You could add another event handler to the code I previously provided...In
fact, this would probably do it on its own...

The MonthCalendar.M ouseDown event (e as MouseEventArgs) captures the X and Y
coordinates relative to the control itself...My test shows that Y < 24 for a
click of the month buttons...

"Randy" wrote:

Charlie,
I was going down the same path with using an If statement to check if
the month had changed. Unfortunately, this doesn't always work. If
you look at the calendar view, you can often see the last few days of
the previous month or the first few days of the succeeding month. If
the user were to click on these dates, the logic you propose would
conclude that the user had clicked the arrow, not the date. I'll post
my code below for anybody who is interested.

What I am trying to do is execute certain lines of code *only* if the
user has selected a date. If they are clicking on one of the arrows,
I am treating this action as the user *navigating* to a date (as
opposed to actually selecting one). So if they were to click Sep 28
while viewing the Oct calendar, this would qualify as *selecting* a
date, and thus would initiate a sequence of actions. If they clicked
the left arrow, this is simply a navigational move and would be
disregarded. I've looked for patterns in how the MonthCalendar
handles these arrow clicks, but I'm not seeing reliable patterns that
I can code around.

Somehow, the control must distinguish these arrows or it wouldn't work
as it does. So the question is still, how can I trap these clicks in
my VB code? If I can figure that out, it will make my programming
monumentally easier as well as more reliable.
Private Sub MonthCalendar1_ DateChanged(ByV al sender As Object, ByVal e
As System.Windows. Forms.DateRange EventArgs) Handles
MonthCalendar1. DateChanged
'If there are unsaved changes, alert the user
If bLoading = False Then
If bUnsaved = True Then
frmDateChange.S how()
Exit Sub
End If

'This is where I'm stuck trying to trap the arrow click
Dim d As Date = e.Start
'Me.Text = Me.CurrentSelec tedDate
If d.AddMonths(-1).Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Right arrow clicked."
Call SelectDates()
End If
ElseIf d.AddMonths(1). Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Left arrow clicked."
Call SelectDates()
End If
Else
Me.Text = d.ToString & " Date changed."
Call SelectDates()
Call RemoveControls( )
Call AddDataRows()
End If
Me.CurrentSelec tedDate = d
End If
End Sub

Private Sub SelectDates()
Dim i As Integer =
CInt(MonthCalen dar1.SelectionS tart.DayOfWeek)
Dim d As Date = MonthCalendar1. SelectionStart
Dim a As Integer
If i = 0 Then
a = -6
Else
a = 1 - i
End If
MonthCalendar1. SelectionStart = d.AddDays(a)

If i = 0 Then
a = 0
Else
a = 7 - i
End If
MonthCalendar1. SelectionEnd = d.AddDays(a)
End Sub

So, how do I trap this arrow click? Or if there is no way, how can I
program the logic to identify and trap the conditions that would would
be present if the arrows are clicked? Any help is appreciated.

Thanks,
Randy

[=?Utf-8?B?Q2hhcmxpZQ==?=]

The mousedown event happens AFTER the datechanged event, so you may have to
capture any needed parameters in the datechanged event, and let the mousedown
event act on those parameters after determining where the user clicked...

As I was writing the previous note, I assumed the events processed in
reverse to how they actually process...Oh well, it really should not be much
of a problem.

"Randy" wrote:

Charlie,
I was going down the same path with using an If statement to check if
the month had changed. Unfortunately, this doesn't always work. If
you look at the calendar view, you can often see the last few days of
the previous month or the first few days of the succeeding month. If
the user were to click on these dates, the logic you propose would
conclude that the user had clicked the arrow, not the date. I'll post
my code below for anybody who is interested.

What I am trying to do is execute certain lines of code *only* if the
user has selected a date. If they are clicking on one of the arrows,
I am treating this action as the user *navigating* to a date (as
opposed to actually selecting one). So if they were to click Sep 28
while viewing the Oct calendar, this would qualify as *selecting* a
date, and thus would initiate a sequence of actions. If they clicked
the left arrow, this is simply a navigational move and would be
disregarded. I've looked for patterns in how the MonthCalendar
handles these arrow clicks, but I'm not seeing reliable patterns that
I can code around.

Somehow, the control must distinguish these arrows or it wouldn't work
as it does. So the question is still, how can I trap these clicks in
my VB code? If I can figure that out, it will make my programming
monumentally easier as well as more reliable.
Private Sub MonthCalendar1_ DateChanged(ByV al sender As Object, ByVal e
As System.Windows. Forms.DateRange EventArgs) Handles
MonthCalendar1. DateChanged
'If there are unsaved changes, alert the user
If bLoading = False Then
If bUnsaved = True Then
frmDateChange.S how()
Exit Sub
End If

'This is where I'm stuck trying to trap the arrow click
Dim d As Date = e.Start
'Me.Text = Me.CurrentSelec tedDate
If d.AddMonths(-1).Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Right arrow clicked."
Call SelectDates()
End If
ElseIf d.AddMonths(1). Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Left arrow clicked."
Call SelectDates()
End If
Else
Me.Text = d.ToString & " Date changed."
Call SelectDates()
Call RemoveControls( )
Call AddDataRows()
End If
Me.CurrentSelec tedDate = d
End If
End Sub

Private Sub SelectDates()
Dim i As Integer =
CInt(MonthCalen dar1.SelectionS tart.DayOfWeek)
Dim d As Date = MonthCalendar1. SelectionStart
Dim a As Integer
If i = 0 Then
a = -6
Else
a = 1 - i
End If
MonthCalendar1. SelectionStart = d.AddDays(a)

If i = 0 Then
a = 0
Else
a = 7 - i
End If
MonthCalendar1. SelectionEnd = d.AddDays(a)
End Sub

So, how do I trap this arrow click? Or if there is no way, how can I
program the logic to identify and trap the conditions that would would
be present if the arrows are clicked? Any help is appreciated.

Thanks,
Randy

[=?Utf-8?B?Q2hhcmxpZQ==?=]

And just in case you're not always depending on a mouse click for a date
change, you could use a timer to postpone the code of the datechanged event
(maybe 100 ms?, to see if the mouseclick occurred.

"Randy" wrote:

Charlie,
I was going down the same path with using an If statement to check if
the month had changed. Unfortunately, this doesn't always work. If
you look at the calendar view, you can often see the last few days of
the previous month or the first few days of the succeeding month. If
the user were to click on these dates, the logic you propose would
conclude that the user had clicked the arrow, not the date. I'll post
my code below for anybody who is interested.

What I am trying to do is execute certain lines of code *only* if the
user has selected a date. If they are clicking on one of the arrows,
I am treating this action as the user *navigating* to a date (as
opposed to actually selecting one). So if they were to click Sep 28
while viewing the Oct calendar, this would qualify as *selecting* a
date, and thus would initiate a sequence of actions. If they clicked
the left arrow, this is simply a navigational move and would be
disregarded. I've looked for patterns in how the MonthCalendar
handles these arrow clicks, but I'm not seeing reliable patterns that
I can code around.

Somehow, the control must distinguish these arrows or it wouldn't work
as it does. So the question is still, how can I trap these clicks in
my VB code? If I can figure that out, it will make my programming
monumentally easier as well as more reliable.
Private Sub MonthCalendar1_ DateChanged(ByV al sender As Object, ByVal e
As System.Windows. Forms.DateRange EventArgs) Handles
MonthCalendar1. DateChanged
'If there are unsaved changes, alert the user
If bLoading = False Then
If bUnsaved = True Then
frmDateChange.S how()
Exit Sub
End If

'This is where I'm stuck trying to trap the arrow click
Dim d As Date = e.Start
'Me.Text = Me.CurrentSelec tedDate
If d.AddMonths(-1).Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Right arrow clicked."
Call SelectDates()
End If
ElseIf d.AddMonths(1). Month = Me.CurrentSelec tedDate.Month
Then
If d.Day = 1 Then
Me.Text = d.ToString & " Left arrow clicked."
Call SelectDates()
End If
Else
Me.Text = d.ToString & " Date changed."
Call SelectDates()
Call RemoveControls( )
Call AddDataRows()
End If
Me.CurrentSelec tedDate = d
End If
End Sub

Private Sub SelectDates()
Dim i As Integer =
CInt(MonthCalen dar1.SelectionS tart.DayOfWeek)
Dim d As Date = MonthCalendar1. SelectionStart
Dim a As Integer
If i = 0 Then
a = -6
Else
a = 1 - i
End If
MonthCalendar1. SelectionStart = d.AddDays(a)

If i = 0 Then
a = 0
Else
a = 7 - i
End If
MonthCalendar1. SelectionEnd = d.AddDays(a)
End Sub

So, how do I trap this arrow click? Or if there is no way, how can I
program the logic to identify and trap the conditions that would would
be present if the arrows are clicked? Any help is appreciated.

Thanks,
Randy

[Randy]

Thanks a lot, Charlie. These are great suggestions. I'm having a
little trouble implementing it, however, as I cannot get predictable
values for the coordinates where the arrows would have to exist.
Since this is a separate topic from just determining if the arrow has
been clicked, I started a new post. (search: Find Mouse Coordinates
Within Control). I'd appreciate if you have any ideas.

Thanks again for all of your help. I really appreciate it.
Randy

[Annie McCall]

Hi Randy,

I am having the same problem. I need to know whether they clicked on the arrow to change the month or actually selected a date.

I have you had any luck solving this? Can you post your solution?

In the meantime, I will continue researching for some solution. I will post if I have any success.

This seems so basic. I'm sure we'll find a solution.

Thanks,
Annie

EggHeadCafe - .NET Developer Portal of Choice
http://www.eggheadcafe.com