Adding Event to Existing Control

[ousoonerjoe]

Using VB.Net 2010.

After spending some time with the MonthCalendar Control, I realized the DoubleClick Event does not exist. I found where the MouseDown and MouseUp events contain e.Clicks which supposedly tell you the number of times a day was clicked. The idea was to double click a day in the calendar to populate a new row in the DataGridView when adding to the list of Non-Productive Holidays.

The core question:Can a DoubleClick event be added to the MonthCalendar control? I think I found code to do it, but not sure how to "activate" it (Shown here):

Public Class ExtendedMonthCalendar
    Inherits MonthCalendar

    Private m_LastClickPosition As Point
    Private m_LastClickTime As Long
    Private m_LastClickRaisedDoubleClick As Boolean

    Public Shadows Event DoubleClick(ByVal sender As Object, ByVal e As EventArgs)

    Protected Overrides Sub OnDoubleClick(ByVal e As EventArgs)
        RaiseEvent DoubleClick(Me, e)
    End Sub

    Protected Overrides Sub OnMouseDown(ByVal e As MouseEventArgs)
        If e.Button = MouseButtons.Left Then
            If Not m_LastClickRaisedDoubleClick AndAlso Now.Ticks - m_LastClickTime <= SystemInformation.DoubleClickTime * 10000 AndAlso IsInDoubleClickArea(m_LastClickPosition, Cursor.Position) Then
                OnDoubleClick(EventArgs.Empty)
                m_LastClickRaisedDoubleClick = True
            Else
                m_LastClickRaisedDoubleClick = False
            End If
            m_LastClickPosition = Cursor.Position
            m_LastClickTime = Now.Ticks
        End If
        MyBase.OnMouseDown(e)
    End Sub

    Private Function IsInDoubleClickArea(ByVal Point1 As Point, ByVal Point2 As Point) As Boolean
        Return Math.Abs(Point1.X - Point2.X) <= SystemInformation.DoubleClickSize.Width AndAlso Math.Abs(Point1.Y - Point2.Y) <= SystemInformation.DoubleClickSize.Height
    End Function
End Class

The following is the e.Clicks methodology that could not return more than 1 no matter how fast i clicked:

    Private Sub calMain_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles calMain.MouseDown
        If e.Clicks = 2 And e.Button = Windows.Forms.MouseButtons.Left Then
            dgHoliday_NewRowNeeded(Nothing, Nothing)
            dgHoliday.Item("DateOff", dgHoliday.NewRowIndex).Value = calMain.SelectionRange.Start
        End If
    End Sub

As always, any suggestions or advise is welcome.

--------------------------------------------------
Stubbornness is a virtue -- if you are right. --Chuck Noll
--------------------------------------------------

 

[jebenson]

Maybe the event header should be:

Private Sub calMain_[red]DoubleClick[/red](ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles calMain.[red]DoubleClick[/red]



I used to rock and roll every night and party every day. Then it was every other day. Now I'm lucky if I can find 30 minutes a week in which to get funky. - Homer Simpson

Arrrr, mateys! Ye needs ta be preparin' yerselves fer Talk Like a Pirate Day!

 

[ousoonerjoe]

I tried the following with absolutely no reaction. No error, but never fired either:

    Private Sub calMain_DoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles calMain.DoubleClick
        StatBarEllipse(txtMsg, "Clicks = " & e.Clicks, False)
    End Sub

I tried "OnDoubleClick" and got the error message 'System.Windows.Forms.Control.Protected Overridable Sub OnDoubleClick(e As System.EventArgs)' is not accessible in this context because it is 'Protected'.

--------------------------------------------------
Stubbornness is a virtue -- if you are right. --Chuck Noll
--------------------------------------------------

 

[Sorwen]

As far as I can tell as a control it has the double click event, but it isn't implemented so the event is never actually raised. It seems to sit there as some kind of place holder.

Google search and I found this:

http://dotnet.mvps.org/dotnet/faqs/?id=monthcalendardoubleclick&lang=en

-I hate Microsoft!
-Forever and always forward.
-My kingdom for a edit button!

 

[ousoonerjoe]

Yeah. Exactly. Is there a way to enable it on the fly? Or is this one of those things, that require creating a User-Defined Control and add the Double-Click back in?

--------------------------------------------------
Stubbornness is a virtue -- if you are right. --Chuck Noll
--------------------------------------------------

 

[Sorwen]

Yes and no you would have to create a User-Defined Control to do it. If the double click had been in but not used you could just add an addhandler or something, but that isn't the case with this.

The yes part comes in that it should still fire the Mouse Down or Mouse up events, but I didn't check. If it does then you can then create and use a RaiseEvent when that is done in succession within so many seconds(which is what that code looked to do).

-I hate Microsoft!
-Forever and always forward.
-My kingdom for a edit button!

 

[ousoonerjoe]

Ok... got my other stuff completed so I can get back to this issue.

Been doing a bit more research into the issue of enabling a DoubleClick Event to the MonthCalendar Control. According to Microsoft's MSDN help files(MonthCalendar Members), both OnDoubleClick and MouseDoubleClick should be available to add to the control. However, attempts to do so have failed miserably. The following does not error, but does not activate either:

    Public Shadows Event MouseDoubleClick As MouseEventHandler
    Private Handler As MouseEventHandler

    Private Sub calMain_MouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles calMain.MouseDoubleClick
        MessageBox.Show("DoubleClick Fired!")
    End Sub

Any thoughts on how to open up either of these events to the MonthCalendar control, so they can be coded?

--------------------------------------------------
Stubbornness is a virtue -- if you are right. --Chuck Noll
--------------------------------------------------