用ImessageFilter接口实现截获键盘消息 2066 [原作]

2066 2004-06-13 07:09:04
用ImessageFilter接口实现截获键盘消息 2066 [原作]

http://dev.csdn.net/develop/article/27/27907.shtm

关键字 ImessageFilter,Application.AddMessageFilter,键盘,截获,消息,vs.net,vb.net,Microsoft Visual Studio .NET,
出处

      用ImessageFilter接口实现截获键盘消息
 
                    屠恩海(sunhai)


IMessageFilter 接口

IMessageFilter 接口允许应用程序在消息被调度到控件或窗体之前捕获它。

可以将实现 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


                           2004年5月16日



...全文
87 2 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
aycn 2004-09-15
thanks
  • 打赏
  • 举报
回复
2066 2004-09-15
a
  • 打赏
  • 举报
回复
相关推荐
发帖
VB
加入

1.6w+

社区成员

VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
申请成为版主
帖子事件
创建了帖子
2004-06-13 07:09
社区公告
暂无公告