C / C++ / MFC

<br />
class CMyButton : public CButton<br />
{<br />
   public:<br />
      afx_msg void OnRButtonUp(UINT nFlags, CPoint point);<br />
      DECLARE_MESSAGE_MAP()<br />
};<br />

<br />
BEGIN_MESSAGE_MAP(CMyButton, CButton)<br />
   ON_WM_RBUTTONUP()<br />
END_MESSAGE_MAP()<br />
<br />
void CMyButton::OnRButtonUp(UINT nFlags, CPoint point)<br />
{<br />
  //Stuff I want to do.<br />
}<br />

<br />
Dim regexp As New Regex("<(B|b)(L|l)(O|o)(C|c)(k|K)(q|Q)(u|U)(O|o)(t|T)(e|E)")<br />
        Dim matches As MatchCollection<br />
        Dim m As Match<br />
<br />
        'matches = regexp.Matches(body, "<\/(B|b)(L|l)(O|o)(C|c)(k|K)(q|Q)(u|U)(O|o)(t|T)(e|E)>")<br />
        'If matches.Count > 2 Then           <br />
        'End If<br />
        'm.index position is in the right position where <blockquote was found<br />
        ' therefore, substracting compund length of deleting <blockquote... > string from original match index <br />
        'finding all the blockquote string and store in the array<br />
        matches = regexp.Matches(body)<br />
        If matches.Count > 2 Then<br />
            Dim bquotes(matches.Count) As String<br />
            Dim bquote As String<br />
            Dim index As Integer = 0<br />
            Dim count As Integer = 0<br />
<br />
            For Each m In matches<br />
                close1 = body.IndexOf(">", m.Index)<br />
                Dim temp As String<br />
                Dim found As Boolean<br />
                temp = body.Substring(m.Index, close1 + 1 - m.Index)<br />
                If index <> 0 Then<br />
                    For Each bquote In bquotes<br />
                        If bquote = Nothing Then<br />
                            Exit For<br />
                        End If<br />
                        If (bquote = temp) Then<br />
                            found = True<br />
                            Exit For<br />
                        Else<br />
                            found = False<br />
                        End If<br />
                    Next<br />
                End If<br />
                If Not found Then<br />
                    bquotes(index) = temp<br />
                    index += 1<br />
                End If<br />
            Next<br />
            Dim i As Integer = 0<br />
            For Each bquote In bquotes<br />
                If (bquote = Nothing Or i = index) Then Exit For<br />
                body = regexp.Replace(body, bquote, "")<br />
                i += 1<br />
            Next<br />
            body = regexp.Replace(body, "<\/(B|b)(L|l)(O|o)(C|c)(k|K)(q|Q)(u|U)(O|o)(t|T)(e|E)>", "")<br />
            body = regexp.Replace(body, "(M|m)(A|a)(R|r)(G|g)(I|i)(N|n)-(L|l)(E|e)(F|f)(T|t):", "")<br />
        End If<br />
        regexp = Nothing