利用Application.AddMessageFilter屏蔽消息

很早时候就注意到Application的AddMessageFilter，苦于自己基础差，测试不出好结果来。今天看贴，有人想屏蔽Form上凡TextBox的右键消息，于是重新看了看这个话题。只是还是没有得出什么好效果来，只能将就着实现。

 

Application.AddMessageFilter主要的功能是添加消息筛选器以便在向目标传送 Windows 消息时监视这些消息。

 

（哎，本来想按自己的理解说这些含义的，怕误人了，受骂也多了，汲取教训，还是照贴MSDN的原字吧。可怜的我，本来就不是专业人士，也只能是入俗，僧不僧俗不俗的，乡巴佬戴领带入城，可怜哪。）

 

注意：向应用程序的消息泵添加消息筛选器会降低性能。（警告之类的我是一般不管的，有用就用，管它）

 

使用Application.AddMessageFilter与一般的方法调用不一样，它的参数Message有这样的要求：若要防止调度某消息，传递给该方法的 value 参数实例必须用处理该消息的代码重写 PreFilterMessage 方法。该方法必须返回 false。

 

以屏蔽Form上凡TextBox的右键消息为例，下面交待一下主要做法。

 

一、实现ImessageFilter接口。如下。

为什么做了个传递Form的属性，只要是用来判断当前控件是不是TextBox用的。这种效果并不理想，需要改进。本来是不需要引进这个属性的，用Message.GetLParam方法就可以得知当前消息的对象是不是TextBox，可怜我不知道那个Structure该如何写，若是你给我贴出来补正，小人感激不尽。

 

Public Class TextBoxRButtonMessageFilter

    Implements System.Windows.Forms.IMessageFilter

    Const WM_RBUTTONDOWN As Integer = &H204

    Const WM_RBUTTONUP As Integer = &H205

    Private m_Form As System.Windows.Forms.Form

    Public WriteOnly Property [Form]() As System.Windows.Forms.Form

        Set(ByVal Value As System.Windows.Forms.Form)

            m_Form = Value

        End Set

    End Property

 

    Public Function RButtonFilterMessage(ByRef m As System.Windows.Forms.Message)

    As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage

        If (m.Msg = WM_RBUTTONDOWN OrElse m.Msg = WM_RBUTTONUP) AndAlso m_Form.ActiveControl.GetType.Name.Equals("TextBox") Then

         Return True

        Else

            Return False

        End If

    End Function

End Class

 

二、向应用程序的消息泵添加消息筛选器。

 

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

    MyBase.New()

   '该调用是 Windows 窗体设计器所必需的。

    InitializeComponent()

    '在 InitializeComponent() 调用之后添加任何初始化

    mMsgFilter.Form = Me

    System.Windows.Forms.Application.AddMessageFilter(mMsgFilter)

End Sub

……

#End Region

Private mMsgFilter As New TextBoxRButtonMessageFilter

 

就这么简单。问题是怎么使用Message.GetLParam的，请指教。

 

三、以下用Handle来代替ActiveControl

 

#Region " Windows 窗体设计器生成的代码 "

Public Sub New()

    MyBase.New()

    '该调用是 Windows 窗体设计器所必需的。

    InitializeComponent()

    '在 InitializeComponent() 调用之后添加任何初始化

    MsgFilterInit()

End Sub

.......

#End Region

Private mMsgFilter As New TextBoxRButtonMessageFilter

Private Sub MsgFilterInit()

    Dim ctr As System.Windows.Forms.Control

    For Each ctr In Me.Controls

        If TypeOf ctr Is TextBox Then

            mMsgFilter.SetFilterHandles(ctr.Handle)

        End If

    Next

    System.Windows.Forms.Application.AddMessageFilter(mMsgFilter)

End Sub

End Class

 

 

 

Public Class TextBoxRButtonMessageFilter

    Implements System.Windows.Forms.IMessageFilter

    Const WM_RBUTTONDOWN As Integer = &H204

    Const WM_RBUTTONUP As Integer = &H205

    Private m_HWnds As New Hashtable

    Public Sub SetFilterHandles(ByVal mHWnd As IntPtr)

        m_HWnds.Add(mHWnd, Nothing)

    End Sub

    Public Function RButtonFilterMessage(ByRef m As System.Windows.Forms.Message) _

    As Boolean Implements System.Windows.Forms.IMessageFilter.PreFilterMessage

        If (m.Msg = WM_RBUTTONDOWN OrElse m.Msg = WM_RBUTTONUP) AndAlso m_HWnds.Contains(m.HWnd) Then

            Return True

        Else

            Return False

        End If

    End Function

End Class