用ImessageFilter接口實(shí)現(xiàn)截獲鍵盤消息
　
　　　　　　　　　　　　　　　　　　　　屠恩海（sunhai)


IMessageFilter 接口

IMessageFilter 接口允許應(yīng)用程序在消息被調(diào)度到控件或窗體之前捕獲它。

可以將實(shí)現(xiàn) IMessageFilter 接口的類添加到應(yīng)用程序的消息泵中，以在消息被調(diào)度到控件或窗體之前將

它篩選出來或執(zhí)行其他操作。若要將消息篩選器添加到應(yīng)用程序的消息泵中，請(qǐng)使用 Application 類中的

AddMessageFilter 方法。


Application.AddMessageFilter 方法

添加消息篩選器以便在向目標(biāo)傳送 Windows 消息時(shí)監(jiān)視這些消息。
[Visual Basic]
Public Shared Sub AddMessageFilter( ByVal value As IMessageFilter )

參數(shù)
value
您要安裝的 IMessageFilter 接口的實(shí)現(xiàn)。
備注
使用消息篩選器來防止引發(fā)特定事件，或在將某事件傳遞給事件處理程序之前使用消息篩選器對(duì)其執(zhí)行特

殊操作。消息篩選器對(duì)特定線程是唯一的。
若要防止調(diào)度某消息，傳遞給該方法的 value 參數(shù)實(shí)例必須用處理該消息的代碼重寫 PreFilterMessage 方法

。該方法必須返回 false。
警告 向應(yīng)用程序的消息泵添加消息篩選器會(huì)降低性能。
示例
[Visual Basic, C#, C++] 必須先提供 IMessageFilter 接口的一個(gè)實(shí)現(xiàn)，然后才可以使用消息篩選器。

下面的類創(chuàng)建一個(gè)名為 TestMessageFilter 的消息篩選器。此篩選器阻止與鼠標(biāo)左鍵有關(guān)的所有消息。
[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　　'結(jié)束程序。我們?cè)诖丝梢哉{(diào)用各種方法、過程。
End If
　　End Function