'==================设置快捷键==============================
<DllImport("user32.dll", SetLastError := True)> _
Public Function RegisterHotKey(hWnd As IntPtr, id As Integer, fsModifiers As KeyModifiers, vk As Keys) As Boolean
End Function
<DllImport("user32.dll", SetLastError := True)> _
Public Function UnregisterHotKey(hWnd As IntPtr, id As Integer) As Boolean
End Function
<Flags> _
Public Enum KeyModifiers
None = 0
Alt = 1
Control = 2
Shift = 4
Windows = 8
End Enum
Public Class GlobalKeyDown
Inherits System.Windows.Forms.form
private shared obj As new GlobalKeyDown
private Sub New()
End Sub
Public Shared Function getInstance() As GlobalKeyDown
Return obj
End Function
Protected Overrides Sub WndProc(ByRef m As System.Windows.Forms.Message)
Functions.Execute("处理快捷键", m)
MyBase.WndProc(m)
End Sub
End Class
Dim obj As GlobalKeyDown = GlobalKeyDown.getInstance
RegisterHotKey(obj.Handle, 102, KeyModifiers.Control Or KeyModifiers.Alt, Keys.Y) ' 快捷键ctrl+alt+y
加好友 
发短信
Post By：2014/8/12 9:48:00 [显示全部帖子]
