MouseEventArgs and a Clicks property

[=?ISO-8859-2?Q?Marcin_Grz=EAbski?=]

Hi,

I'm working on control that uses a MonthCalendar.
A MonthCalendar have not a DoubleClick event, so
i tried to use the events related with MouseEventArgs
parameter. I was trying to check "Clicks" property, but
it returns always 1.
Is there any chance to get "Clicks" greater than one?

Thanks in advance.

 

[AHadiA]

Hi
Here is a solution from post:
http://groups.google.com/group/micr...Click)+>+2000000+Then&rnum=1#701f442f376022d9



Try this: (assumes a monthcalendar control called MonthCalendar1 and a
textbox control called TextBox1)

Private m_NumClicks As Short = 0
Private m_FirstClick As Long

Private Sub MonthCalendar1_DateSelected( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.DateRangeEventArgs) _
Handles MonthCalendar1.DateSelected

If m_NumClicks >= 2 Then
TextBox1.Text = e.Start.Date.ToString
m_NumClicks = 0
End If

End Sub

Private Sub MonthCalendar1_MouseDown( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MonthCalendar1.MouseDown

If e.Button = MouseButtons.Left Then
If m_NumClicks = 0 Then
m_FirstClick = Now.Ticks
m_NumClicks += 1
ElseIf (Now.Ticks - m_FirstClick) > 2000000 Then
m_NumClicks = 0
Else
m_NumClicks += 1
End If
End If
End Sub


Jacob Grass
Microsoft .NET MVP

 

[Guest]

Hi,

Thank You very much!

Marcin

Hi
Here is a solution from post:
http://groups.google.com/group/micr...Click)+>+2000000+Then&rnum=1#701f442f376022d9



Try this: (assumes a monthcalendar control called MonthCalendar1 and a
textbox control called TextBox1)

Private m_NumClicks As Short = 0
Private m_FirstClick As Long

Private Sub MonthCalendar1_DateSelected( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.DateRangeEventArgs) _
Handles MonthCalendar1.DateSelected

If m_NumClicks >= 2 Then
TextBox1.Text = e.Start.Date.ToString
m_NumClicks = 0
End If

End Sub

Private Sub MonthCalendar1_MouseDown( _
ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) _
Handles MonthCalendar1.MouseDown

If e.Button = MouseButtons.Left Then
If m_NumClicks = 0 Then
m_FirstClick = Now.Ticks
m_NumClicks += 1
ElseIf (Now.Ticks - m_FirstClick) > 2000000 Then
m_NumClicks = 0
Else
m_NumClicks += 1
End If
End If
End Sub


Jacob Grass
Microsoft .NET MVP

 

[Aboulfazl Hadi]

Your Welcome