Hotkey Class

Public Class Hotkey
	Inherits NativeWindow
	Implements IDisposable

Dim instance As Hotkey

public ref class Hotkey : public NativeWindow, 
	IDisposable

type Hotkey = 
    class
        inherit NativeWindow
        interface IDisposable
    end

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

Public Class Form1 : Inherits Form

    Private WithEvents hotkey As Hotkey

    Public Sub Test() Handles MyBase.Shown

        MyClass.InitializeComponent()

        ' Registers a new global hotkey on the system. (Alt + Ctrl + A) 
        hotkey = New Hotkey(HotkeyModifiers.Alt Or HotkeyModifiers.Control, Keys.A)

        ' Replaces the current registered hotkey with a new one. (Alt + Escape)
        hotkey = New Hotkey(DirectCast([Enum].Parse(GetType(HotkeyModifiers), "Alt", True), HotkeyModifiers),
                            DirectCast([Enum].Parse(GetType(Keys), "Escape", True), Keys))

        ' Set the tag property.
        hotkey.Tag = "I'm a String tag"

    End Sub

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="HotKey.Press"/> event of the HotKey control.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="HotkeyPressEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub HotKey_Press(ByVal sender As Object, ByVal e As HotkeyPressEventArgs) _
    Handles hotkey.Press

        Dim sb As New Global.System.Text.StringBuilder
        With sb
            .AppendLine(String.Format("Key.......: {0}", e.Key.ToString()))
            .AppendLine(String.Format("Modifiers.: {0}", e.Modifiers.ToString()))
            .AppendLine(String.Format("Identifier: {0}", e.Id))
            .AppendLine(String.Format("Press-count: {0}", DirectCast(sender, Hotkey).Count))
            .AppendLine(String.Format("Tag: {0}", DirectCast(sender, Hotkey).Tag.ToString()))
        End With

        MessageBox.Show(sb.ToString(), String.Empty, MessageBoxButtons.OK, MessageBoxIcon.Information)

        ' Unregister the hotkey.
        Me.hotkey.Unregister()

        ' Is Registered?
        Debug.WriteLine(Me.hotkey.IsRegistered)

    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.