MouseMonitor Class

Public NotInheritable Class MouseMonitor
	Inherits NativeWindow
	Implements IDisposable

Dim instance As MouseMonitor

public ref class MouseMonitor sealed : public NativeWindow, 
	IDisposable

[<SealedAttribute>]
type MouseMonitor = 
    class
        inherit NativeWindow
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public NotInheritable Class Form1 : Inherits Form

    Friend WithEvents MouseMon As New MouseMonitor(Me)

    Private Sub Form1_Shown(ByVal sender As Object, ByVal e As EventArgs) _
    Handles MyBase.Shown

        Me.MouseMon.WorkingArea = SystemInformation.VirtualScreen
        Me.MouseMon.SuppressMouseButtonUpEventWhenDoubleClick = False
        Me.MouseMon.Enabled = True

    End Sub

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="MouseMonitor.MouseMove"/> event of the <see cref="MouseMon"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    '''
    ''' <param name="e">
    ''' The <see cref="MouseMoveEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub MouseMon_MouseMove(ByVal sender As Object, ByVal e As MouseMoveEventArgs) _
    Handles MouseMon.MouseMove

        Console.WriteLine(String.Format("Mouse moved to: {0}", e.Position.ToString()))

    End Sub

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="MouseMonitor.MouseButtonClick"/> event of the <see cref="MouseMon"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    '''
    ''' <param name="e">
    ''' The <see cref="MouseButtonClickEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub MouseMon_MouseButtonClick(ByVal sender As Object, ByVal e As MouseButtonClickEventArgs) _
    Handles MouseMon.MouseButtonClick

        Console.WriteLine(String.Format("Mouse Button Click: {0,-10} at: {1}", e.MouseButton.ToString(), e.DeviceInfo.Position.ToString()))

    End Sub

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="MouseMonitor.MouseButtonDoubleClick"/> event of the <see cref="MouseMon"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    '''
    ''' <param name="e">
    ''' The <see cref="MouseButtonDoubleClickEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub MouseMon_MouseButtonDoubleClick(ByVal sender As Object, ByVal e As MouseButtonDoubleClickEventArgs) _
    Handles MouseMon.MouseButtonDoubleClick

        Console.WriteLine(String.Format("Mouse Button Double-Click: {0,-5} at: {1}", e.MouseButton.ToString(), e.DeviceInfo.Position.ToString()))

    End Sub

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="MouseMonitor.MouseWheelScroll"/> event of the <see cref="MouseMon"/> instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    '''
    ''' <param name="e">
    ''' The <see cref="MouseWheelScrollEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub MouseMon_MouseWheelScroll(ByVal sender As Object, ByVal e As MouseWheelScrollEventArgs) _
    Handles MouseMon.MouseWheelScroll

        Console.WriteLine(String.Format("Mouse wheel scrolled to: {0}", e.WheelDirection.ToString()))

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.