vb按键语法

答案：列：sendkeys "a" '则按下A键
  以下是特殊按键对应代码，
  BACKSPACE {BACKSPACE}
  BREAK {BREAK}
  CAPS LOCK {CAPSLOCK}
  DEL {DEL}
  DOWN ARROW {DOWN}
  END {END}
  ENTER {ENTER}
  ESC {ESC}
  HELP {HELP}
  HOME {HOME}
  INS {INS}
  LEFT ARROW {LEFT}
  NUM LOCK {NUMLOCK}
  PAGE DOWN {PGDN}
  PAGE UP {PGUP}
  PRINT SCREEN {PRTSC}
  RIGHT ARROW {RIGHT}
  SCROLL LOCK {SCROLLLOCK}
  TAB {TAB}
  UP ARROW {UP}
  F1 {F1}
  F2 {F2}
  F3 {F3}
  F4 {F4}
  F5 {F5}
  F6 {F6}
  F7 {F7}
  F8 {F8}
  F9 {F9}
  F10 {F10}
  F11 {F11}
  F12 {F12}
  F13 {F13}
  F14 {F14}
  F15 {F15}
  F16 {F16}
  下面是热键例子
  新建立一个FORM~
  
 Private Sub Form_Load()
  Dim ret As Long
  preWinProc = GetWindowLong(Me.hwnd, GWL_WNDPROC)
  ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, AddressOf Wndproc)
  idHotKey = 1
  'Modifiers = MOD_ALT + MOD_CONTROL
  uVirtKey = vbKeyF1 '着里是热键的定义,把F1改成你想要的键盘都可以
 ret = RegisterHotKey(Me.hwnd, idHotKey, Modifiers, uVirtKey)
  End Sub
  
 Private Sub Form_Unload(Cancel As Integer)
  Dim ret As Long
  ret = SetWindowLong(Me.hwnd, GWL_WNDPROC, preWinProc)
  Call UnregisterHotKey(Me.hwnd, uVirtKey)
  
 End Sub
  
 新建立一个模块
  
 Option Explicit
  
 Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
  Declare Function CallWindowProc Lib "User32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  Declare Function RegisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
  Declare Function UnregisterHotKey Lib "User32" (ByVal hwnd As Long, ByVal id As Long) As Long
  
 Public Const WM_HOTKEY = &H312
  Public Const MOD_ALT = &H1
  Public Const MOD_CONTROL = &H2
  Public Const MOD_SHIFT = &H4
  Public Const GWL_WNDPROC = (-4)
  
 Public preWinProc As Long
  Public Modifiers As Long, uVirtKey As Long, idHotKey As Long
  
 Private Type taLong
  ll As Long
  End Type
  
 Private Type t2Int
  lWord As Integer
  hWord As Integer
  End Type
  
 Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  If Msg = WM_HOTKEY Then
  If wParam = idHotKey Then
  Dim lp As taLong, i2 As t2Int
  lp.ll = lParam
  LSet i2 = lp
  If (i2.lWord = Modifiers) And i2.hWord = uVirtKey Then
  msgbox "你按下了热键哦~"
  End If
  End If
  End If
  Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)
  End Function

上一个：vb设置热键
下一个：vb 根据文本框的数字读取文本