August 2010 - Contact Center Experiences

How to register Hot Keys in VB.net

August 19, 2010 No comments

Code sample: Register multiple hotkeys such as Alt+D, Alt+C, etc.

Imports System.Runtime.InteropServices<br><br>Public Class Form1<br><br>    Public Const MOD_ALT As Integer = &H1 'Alt key<br>    Public Const WM_HOTKEY As Integer = &H312<br><br>    <DllImport("User32.dll")> _<br>    Public Shared Function RegisterHotKey(ByVal hwnd As IntPtr, _<br>                        ByVal id As Integer, ByVal fsModifiers As Integer, _<br>                        ByVal vk As Integer) As Integer<br>    End Function<br><br>    <DllImport("User32.dll")> _<br>    Public Shared Function UnregisterHotKey(ByVal hwnd As IntPtr, _<br>                        ByVal id As Integer) As Integer<br>    End Function<br><br>    Private Sub Form1_Load(ByVal sender As System.Object, _<br>                        ByVal e As System.EventArgs) Handles MyBase.Load<br>        RegisterHotKey(Me.Handle, 100, MOD_ALT, Keys.D)<br>        RegisterHotKey(Me.Handle, 200, MOD_ALT, Keys.C)<br>    End Sub<br><br>    Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)<br>        If m.Msg = WM_HOTKEY Then<br>            Dim id As IntPtr = m.WParam<br>            Select Case (id.ToString)<br>                Case "100"<br>                    MessageBox.Show("You pressed ALT+D key combination")<br>                Case "200"<br>                    MessageBox.Show("You pressed ALT+C key combination")<br>            End Select<br>        End If<br>        MyBase.WndProc(m)<br>    End Sub<br><br>    Private Sub Form1_FormClosing(ByVal sender As System.Object, _<br>                        ByVal e As System.Windows.Forms.FormClosingEventArgs) _<br>                        Handles MyBase.FormClosing<br>        UnregisterHotKey(Me.Handle, 100)<br>        UnregisterHotKey(Me.Handle, 200)<br>    End Sub<br><br>End Class

1

Imports System.Runtime.InteropServices Public Class Form1 Public Const MOD_ALT As Integer = &H1 'Alt key Public Const WM_HOTKEY As Integer = &H312 <DllImport("User32.dll")> _ Public Shared Function RegisterHotKey(ByVal hwnd As IntPtr, _ ByVal id As Integer, ByVal fsModifiers As Integer, _ ByVal vk As Integer) As Integer End Function <DllImport("User32.dll")> _ Public Shared Function UnregisterHotKey(ByVal hwnd As IntPtr, _ ByVal id As Integer) As Integer End Function Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load RegisterHotKey(Me.Handle, 100, MOD_ALT, Keys.D) RegisterHotKey(Me.Handle, 200, MOD_ALT, Keys.C) End Sub Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) If m.Msg = WM_HOTKEY Then Dim id As IntPtr = m.WParam Select Case (id.ToString) Case "100" MessageBox.Show("You pressed ALT+D key combination") Case "200" MessageBox.Show("You pressed ALT+C key combination") End Select End If MyBase.WndProc(m) End Sub Private Sub Form1_FormClosing(ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles MyBase.FormClosing UnregisterHotKey(Me.Handle, 100) UnregisterHotKey(Me.Handle, 200) End Sub End Class

Contact Center Experiences

Monthly Archives: August 2010

How to register Hot Keys in VB.net

Find Failure Calls in T-Server

Tips for using Text Pad with Genesys

“HTTP Error 404 – File or Directory not found” error message when you request dynamic content with IIS 6.0

“HTTP Error 404 – File or Directory not found” error message when you request dynamic content with IIS 6.0

Recent Posts

Recent Comments

Archives

Categories

Meta