Alle WindowMessages der Anwendung filtern

    • .NET (FX) 1.0–2.0
    • VB.NET

      Alle WindowMessages der Anwendung filtern

      Mit dem IMessageFilter-Interface kann man alle WindowMessages, die an iein Control der Anwendung gehen, abhorchen, abfangen, manipulieren.
      Muss man natürlich sparsam einsetzen, denn - etwa bei Mausbewegungen - sind das sehr viele, und wenn man da kompliziertes Zeugs anfängt, hat man seine Anwendung sehr schnell sehr langsam gemacht.

      Als Beispiel logge ich einfach mal alle MouseMoves über dem Haupt-Formular ins Output-Window.
      Das ist sonst ja ein Problem, denn wenn ein anderes Control auf dem Formular liegt, erreicht das MouseMove ja nicht mehr das Form.
      die Klasse

      VB.NET-Quellcode

      1. Imports System.ComponentModel
      3. Public Class MessageEvent : Inherits CancelEventArgs : Implements IMessageFilter
      5. Public Event Messaging As EventHandler(Of MessageEvent)
      6. Public Message As Message
      8. Public Sub New()
      9. Application.AddMessageFilter(Me)
      10. End Sub
      12. Private Function PreFilterMessage(ByRef m As Message) As Boolean Implements IMessageFilter.PreFilterMessage
      13. Cancel = False
      14. Message = m
      15. RaiseEvent Messaging(Me, Me)
      16. Return Cancel
      17. End Function
      19. End Class
      und ihre Verwendung

      VB.NET-Quellcode

      1. Imports System.Drawing
      3. Public Class frmMouseOverApplication
      5. Private WithEvents _MouseLogger As New MessageEvent
      6. Const WM_MOUSEMOVE As Integer = 512
      8. Private Sub _MouseLogger_Messaging(ByVal sender As Object, ByVal e As MessageEvent) Handles _MouseLogger.Messaging
      9. If e.Message.Msg <> WM_MOUSEMOVE Then Return
      10. Dim pt = New Point(e.Message.LParam.ToInt32)
      11. Dim ctl = Control.FromHandle(e.Message.HWnd)
      12. pt = ctl.PointToScreen(pt)
      13. Console.WriteLine(pt.ToString())
      14. End Sub
      16. End Class

      Sowas kann nützlich sein, will man zB ein Fly-Out-Panel entwickeln - da muss ja ein Bereich definiert sein, der das FOP anzeigt, wenn die Maus da drüber steht.
      Interessant übrigens, dass das MouseMove auch gefeuert wird, ohne dass die Maus bewegt wurde (ca 1/s).
      Dateien

    Facebook
    Telefonspende