声明一个通用常数(在代码区的最上边):Private Const vbCtrlV = 22设置键盘事件优先,在Form_Load里加:Me.KeyPreview = True再:Private Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = vbCtrlV Then Call Command1_ClickEnd Sub (Clickg是不是写错了?Command1换成你设置的按钮名称)...
定义全局快捷键VB定义全局快捷键2007-11-27 15:29'模块中 '以下程序放在模块中 Option Explicit Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As ...