用ImessageFilter接口实现截获键盘消息

 IMessageFilter 接口
I MessageFilter 接口允许应用程序在消息被调度到控件或窗体之前捕获它。
可以将实现 IMessageFilter 接口的类添加到应用程序的消息泵中，以在消息被调度到控件或窗体之前将
它筛选出来或执行其他操作。若要将消息筛选器添加到应用程序的消息泵中，请使用 Application 类中的
AddMessageFilter 方法。
Application.AddMessageFilter 方法
添加消息筛选器以便在向目标传送 Windows 消息时监视这些消息。

[Visual Basic] Public Shared Sub AddMessageFilter( ByVal value As IMessageFilter )
参数 value 您要安装的 IMessageFilter 接口的实现。

备注 使用消息筛选器来防止引发特定事件，或在将某事件传递给事件处理程序之前使用消息筛选器对其执行特 殊操作。

消息筛选器对特定线程是唯一的。

若要防止调度某消息，传递给该方法的 value 参数实例必须用处理该消息的代码重写 PreFilterMessage 方法
。该方法必须返回 false。

 警告 向应用程序的消息泵添加消息筛选器会降低性能。

示例 [Visual Basic, C#, C++] 必须先提供 IMessageFilter 接口的一个实现，然后才可以使用消息筛选器。
下面的类创建一个名为 TestMessageFilter 的消息筛选器。此筛选器阻止与鼠标左键有关的所有消息。

[Visual Basic] ' Creates a message filter. Public Class TestMessageFilter Implements IMessageFilter
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) _ As Boolean Implements IMessageFilter.PreFilterMessage ' Blocks all the messages relating to the left mouse button. If ((m.Msg >= 513) And (m.Msg <= 515)) Then Console.WriteLine("Processing the messages : " & m.Msg) Return True End If Return False End Function End Class
用Esc键退出程序
Implements IMessageFilter
　　Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load 'assign message to app and form Application.AddMessageFilter(Me) End Sub
Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) As Boolean
Implements IMessageFilter.PreFilterMessage Dim keyCode As Keys = CType(m.WParam.ToInt32(), Keys) And Keys.KeyCode If keyCode = Keys.Escape Then End　　'结束程序。我们在此可以调用各种方法、过程。 End If 　　 End Function