利用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