'Beispiel: VB .Net - Numpad - Taste 0 - 9 in Verbindung mit der Alt-Taste registrieren. ' Public Class Form1 Private Declare Function RegisterHotKey Lib "user32.dll" ( _ ByVal hwnd As IntPtr, _ ByVal id As Int32, _ ByVal fsModifiers As Int32, _ ByVal vk As Int32) _ As Int32 Private Declare Function UnregisterHotKey Lib "user32.dll" ( _ ByVal hwnd As IntPtr, _ ByVal id As Int32) _ As Int32 Public Const WM_HOTKEY As Int32 = &H312 Private Const MOD_ALT As Int32 = &H1 Private Const VK_NUMPAD0 As Int32 = &H60 Private Const VK_NUMPAD1 As Int32 = &H61 Private Const VK_NUMPAD2 As Int32 = &H62 Private Const VK_NUMPAD3 As Int32 = &H63 Private Const VK_NUMPAD4 As Int32 = &H64 Private Const VK_NUMPAD5 As Int32 = &H65 Private Const VK_NUMPAD6 As Int32 = &H66 Private Const VK_NUMPAD7 As Int32 = &H67 Private Const VK_NUMPAD8 As Int32 = &H68 Private Const VK_NUMPAD9 As Int32 = &H69 Public Const VK_REMEMBER_0 As Int32 = 10 Public Const VK_REMEMBER_1 As Int32 = 11 Public Const VK_REMEMBER_2 As Int32 = 12 Public Const VK_REMEMBER_3 As Int32 = 13 Public Const VK_REMEMBER_4 As Int32 = 14 Public Const VK_REMEMBER_5 As Int32 = 15 Public Const VK_REMEMBER_6 As Int32 = 16 Public Const VK_REMEMBER_7 As Int32 = 17 Public Const VK_REMEMBER_8 As Int32 = 18 Public Const VK_REMEMBER_9 As Int32 = 19 Private _handle As IntPtr = Me.Handle Public Sub Register() RegisterHotKey(_handle, VK_REMEMBER_0, MOD_ALT, VK_NUMPAD0) RegisterHotKey(_handle, VK_REMEMBER_1, MOD_ALT, VK_NUMPAD1) RegisterHotKey(_handle, VK_REMEMBER_2, MOD_ALT, VK_NUMPAD2) RegisterHotKey(_handle, VK_REMEMBER_3, MOD_ALT, VK_NUMPAD3) RegisterHotKey(_handle, VK_REMEMBER_4, MOD_ALT, VK_NUMPAD4) RegisterHotKey(_handle, VK_REMEMBER_5, MOD_ALT, VK_NUMPAD5) RegisterHotKey(_handle, VK_REMEMBER_6, MOD_ALT, VK_NUMPAD6) RegisterHotKey(_handle, VK_REMEMBER_7, MOD_ALT, VK_NUMPAD7) RegisterHotKey(_handle, VK_REMEMBER_8, MOD_ALT, VK_NUMPAD8) RegisterHotKey(_handle, VK_REMEMBER_9, MOD_ALT, VK_NUMPAD9) End Sub Public Sub Unregister() UnregisterHotKey(_handle, VK_REMEMBER_0) UnregisterHotKey(_handle, VK_REMEMBER_1) UnregisterHotKey(_handle, VK_REMEMBER_2) UnregisterHotKey(_handle, VK_REMEMBER_3) UnregisterHotKey(_handle, VK_REMEMBER_4) UnregisterHotKey(_handle, VK_REMEMBER_5) UnregisterHotKey(_handle, VK_REMEMBER_6) UnregisterHotKey(_handle, VK_REMEMBER_7) UnregisterHotKey(_handle, VK_REMEMBER_8) UnregisterHotKey(_handle, VK_REMEMBER_9) End Sub Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) _ Handles Me.FormClosing Unregister() End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _ Handles MyBase.Load Register() End Sub Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message) Select Case m.Msg Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_0 Me.Label1.Text = DateTime.Now.ToString() & " Taste 0" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_1 Me.Label1.Text = DateTime.Now.ToString() & " Taste 1" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_2 Me.Label1.Text = DateTime.Now.ToString() & " Taste 2" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_3 Me.Label1.Text = DateTime.Now.ToString() & " Taste 3" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_4 Me.Label1.Text = DateTime.Now.ToString() & " Taste 4" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_5 Me.Label1.Text = DateTime.Now.ToString() & " Taste 5" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_6 Me.Label1.Text = DateTime.Now.ToString() & " Taste 6" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_7 Me.Label1.Text = DateTime.Now.ToString() & " Taste 7" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_8 Me.Label1.Text = DateTime.Now.ToString() & " Taste 8" Case WM_HOTKEY And m.WParam.ToInt32 = VK_REMEMBER_9 Me.Label1.Text = DateTime.Now.ToString() & " Taste 9" End Select MyBase.WndProc(m) End Sub End Class