Hi
Here is a solution from post:
http://groups.google.com/group/micro...1f442f376022d9
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
