VB全局热键(快捷键)

于 2021-02-11 14:26:40 发布
阅读量3.6k 收藏 12
点赞数 1
分类专栏： VisualBasic编程源码 文章标签： vb6
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ty5858/article/details/113790007
版权

'窗体代码：
Private Declare Function GetActiveWindow Lib “user32” () As Long
Private Declare Function GetAsyncKeyState Lib “user32” (ByVal vKey As Long) As Integer

Private Sub Form_Load()
Me.KeyPreview = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
'如果窗体失去焦点，热键无效
If GetActiveWindow <> Me.hwnd Then Exit Sub
'Esc退出程序
If GetAsyncKeyState(vbKeyEscape) Then KeyCode = 0: End
'F12最大化窗口
If GetAsyncKeyState(vbKeyF12) Then KeyCode = 0: Me.WindowState = 2
'F1窗口最小化
If GetAsyncKeyState(vbKeyF1) Then KeyCode = 0: Me.WindowState = 1
End Sub
'-------------------------------------------------------------------------------------------------------------------------
'相应的VB键码
常数------------------------------值-------------描述
vbKeyLButton-----------------[1]-------------鼠标左键
vbKeyRButton-----------------[2]-------------鼠标右键
vbKeyCancel-------------------[3]-------------CANCEL 键
vbKeyMButton-----------------[4]-------------鼠标中键
vbKeyBack---------------------[8]--------------BACKSPACE 键
vbKeyTab-----------------------[9]--------------TAB 键
vbKeyClear--------------------[12]-------------CLEAR 键
vbKeyReturn------------------[13]-------------ENTER 键
vbKeyShift---------------------[16]-------------SHIFT 键
vbKeyControl-----------------[17]-------------CTRL 键
vbKeyMenu-------------------[18]-------------Alt 菜单键
vbKeyPause------------------[19]-------------PAUSE 键
vbKeyCapital-----------------[20]-------------CAPS LOCK 键
vbKeyEscape-----------------[27]-------------ESC 键
vbKeySpace------------------[32]-------------SPACEBAR 键
vbKeyPageUp----------------[33]-------------PAGEUP 键
vbKeyPageDown------------[34]-------------PAGEDOWN 键
vbKeyEnd---------------------[35]-------------END 键
vbKeyHome------------------[36]-------------HOME 键
vbKeyLeft---------------------[37]-------------LEFT ARROW 键
vbKeyUp----------------------[38]-------------UP ARROW 键
vbKeyRight-------------------[39]-------------RIGHT ARROW 键
vbKeyDown------------------[40]-------------DOWN ARROW 键
vbKeySelect-----------------[41]-------------SELECT 键
vbKeyPrint-------------------[42]-------------PRINT SCREEN 键
vbKeyExecute--------------[43]--------------EXECUTE 键
vbKeySnapshot------------[44]--------------SNAP SHOT 键
vbKeyInser------------------[45]--------------INS 键
vbKeyDelete----------------[46]--------------DEL 键
vbKeyHelp------------------[47]---------------HELP 键
vbKeyNumlock------------[144]-------------NUM LOCK 键

A 键到 Z 键与其 ASCII 码的相应值 'A ’ 到 'Z ’ 是一致的
常数--------------------------值----------------------描述
vbKeyA---------------------[65]---------------------A 键
vbKeyB---------------------[66]---------------------B 键
vbKeyC---------------------[67]---------------------C 键
vbKeyD---------------------[68]---------------------D 键
vbKeyE---------------------[69]---------------------E 键
vbKeyF---------------------[70]---------------------F 键
vbKeyG---------------------[71]---------------------G 键
vbKeyH---------------------[72]---------------------H 键
vbKeyI-----------------------[73]---------------------I 键
vbKeyJ----------------------[74]---------------------J 键
vbKeyK----------------------[75]---------------------K 键
vbKeyL----------------------[76]---------------------L 键
vbKeyM---------------------[77]---------------------M 键
vbKeyN---------------------[78]---------------------N 键
vbKeyO---------------------[79]---------------------O 键
vbKeyP---------------------[80]---------------------P 键
vbKeyQ---------------------[81]---------------------Q 键
vbKeyR---------------------[82]---------------------R 键
vbKeyS---------------------[83]---------------------S 键
vbKeyT---------------------[84]---------------------T 键
vbKeyU---------------------[85]---------------------U 键
vbKeyV---------------------[86]---------------------V 键
vbKeyW---------------------[87]---------------------W 键
vbKeyX---------------------[88]---------------------X 键
vbKeyY---------------------[89]---------------------Y 键
vbKeyZ---------------------[90]---------------------Z 键

0 键到 9 键与其 ASCII 码的相应值 '0 ’ 到 '9 ’ 是一致的
常数------------------值------描述
vbKey0-------------[48]-----0 键
vbKey1-------------[49]-----1 键
vbKey2-------------[50]-----2 键
vbKey3-------------[51]-----3 键
vbKey4-------------[52]-----4 键
vbKey5-------------[53]-----5 键
vbKey6-------------[54]-----6 键
vbKey7-------------[55]-----7 键
vbKey8-------------[56]-----8 键
vbKey9-------------[57]-----9 键

数字小键盘上的键
常数------------------------值------------描述
vbKeyNumpad0--------[96]----------0 键
vbKeyNumpad1--------[97]----------1 键
vbKeyNumpad2--------[98]----------2 键
vbKeyNumpad3--------[99]----------3 键
vbKeyNumpad4--------[100]--------4 键
vbKeyNumpad5--------[101]--------5 键
vbKeyNumpad6--------[102]--------6 键
vbKeyNumpad7--------[103]--------7 键
vbKeyNumpad8--------[104]--------8 键
vbKeyNumpad9--------[105]--------9 键
vbKeyMultiply-----------[106]-------乘号 (*) 键
vbKeyAdd----------------[107]-------加号 (+) 键
vbKeySeparator--------[108]-------ENTER 键（在数字小键盘上）
vbKeySubtract----------[109]-------减号 (-) 键
vbKeyDecimal----------[110]-------小数点 (.) 键
vbKeyDivide------------[111]--------除号 (/) 键

功能键
常数---------------值--------------描述
vbKeyF1--------[112]------------F1 键
vbKeyF2--------[113]------------F2 键
vbKeyF3--------[114]------------F3 键
vbKeyF4--------[115]------------F4 键
vbKeyF5--------[116]------------F5 键
vbKeyF6--------[117]------------F6 键
vbKeyF7--------[118]------------F7 键
vbKeyF8--------[119]------------F8 键
vbKeyF9--------[120]------------F9 键
vbKeyF10------[121]------------F10 键
vbKeyF11------[122]------------F11 键
vbKeyF12------[123]------------F12 键
vbKeyF13------[124]------------F13 键
vbKeyF14------[125]------------F14 键
vbKeyF15------[126]------------F15 键
vbKeyF16------[127]------------F16 键

键盘上的舞指
关注
  • 1
    点赞
  • 踩
  • 12
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
VB 全局热键
miaozk2006的专栏
08-09 321
新建立一个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 ...
c语言getasynckeystate,getasynckeystate
weixin_39982933的博客
05-19 2242
编程语言中文网今天精心准备的是《getasynckeystate》，下面是详解！VB GetAsyncKeyState函数问题，高手进用GetAsyncKeyState函数判断某个键被按下，第一次返回值为1，可是第二次、第三次·····该怎么判断，百科上查了本人菜鸟看的糊涂，求高手详细解释一下！...用GetAsyncKeyState函数判断某个键被按下，第一次返回值为1，可是第二次、第三次···...
VS2015快捷键大全
Alliswell_WP
04-11 999
在学习C基础总结了笔记，并分享出来。有问题请及时联系博主：Alliswell_WP，转载请注明出处。 目录： 零、VS常用快捷键一、VS2015快捷键大全一、VS2008快捷键大全三、VS2005的隐藏快捷键 零、VS常用快捷键 快捷键 含义 Ctrl + k,Ctrl + f 自动格式化代码 Ctrl + k,Ctrl +...
使用VB在应用程序中注册热键
zgqtxwd的专栏
04-24 335
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
GetAsyncKeyState
InkSnail的专栏
04-08 2030
GetAsyncKeyState的返回值表示两个内容，一个是最高位bit的值，代表这个键是否被按下，一个是最低位bit的值，代表在上次调用GetAsyncKeyState后，这个键是否被按下。应该是if(GetAsyncKeyState(VK_LSHIFT)&&0x8000) SHORT GetKeyState(int nVirtKey);SHORT GetAsyncKeyStat
GetAsyncKeyState函数
热门推荐
TOMJJY的博客
01-14 1万+
SHORT GetAsyncKeyState(int vKey); GetAsyncKeyState()的返回值表示两个内容，一个是最高位bit的值，代表这个键是否被按下，一个是最低位bit的值，代表在上次调用GetAsyncKeyState()后，这个键是否被按下。 应该是 if(GetAsyncKeyState(VK_LSHIFT)&0x8000) 例：若判断 回车键 if（GetAs...
VB全局热键1111111111
04-20
VB全局热键是一种在Visual Basic (VB)编程环境中实现的特殊功能，允许用户通过按下预先设定的快捷键组合来触发程序中的特定事件或操作。在VB应用中设置全局热键可以极大提高用户的交互体验和工作效率，因为用户无需...
vb6全局热键ocx控件
03-19
全局热键，也称为系统热键或快捷键，允许用户在任何应用程序或操作系统界面下通过按下特定的键盘组合来触发某个操作。例如，Ctrl + C 和 Ctrl + V 是常见的复制和粘贴热键。开发者不再使用VB6，而是转向了Visual ...
VB6编写的全局热键源代码
05-16
通过以上步骤，开发者可以在VB6中实现全局热键功能，使程序即使在后台也能响应用户的快捷键操作。此功能对于提高用户体验和程序效率具有重要意义。在实际开发中，可以根据需求调整和扩展这些基础概念。
WPF 全局快捷键 GlobalHotKeyDemo
02-21
**WPF全局快捷键(GlobalHotKey)详解** 在Windows Presentation Foundation (WPF)应用程序中，全局快捷键（Global Hotkeys）允许用户在不与应用程序窗口交互的情况下触发特定功能。这通常用于实现像“Ctrl+Alt+S”...
设置全局热键
11-18
全局热键，也称为系统级快捷键，是编程中一种非常实用的技术，它允许用户通过按下特定的键盘组合来快速启动或控制程序，无需将焦点置于该程序窗口上。这提高了用户的工作效率，使得在多任务环境下切换变得更加便捷。...
VBA截屏并粘贴到EXCEL内
sayu3368的博客
01-12 2225
Private Declare Sub keybd event Lib “user32” (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Sub CopyAndPaste() Workbooks(“拷贝源文件.xlsx”).Activate Workbooks(“拷贝源文件.xlsx”).Sheets(1).Select Application.Wait (Now + Tim
KeyCode常数一览表
lgb571的专栏
05-28 1382
可在代码中的任何地方用下列常数代替实际值： 常数 值 描述vbKeyLButton 0x1 鼠标左键vbKeyRButton 0x2 鼠标右键vbKeyCancel 0x3 CANCEL 键vbKeyMButton 0x4 鼠标中键vbKeyBack 0x8 BACKSPACE 键vbKeyTab 0x9 TAB 键vbKeyClear 0xC CLEAR 键vbKeyReturn 0
vb全局热键类
weixin_30457465的博客
11-09 193
vb全局热键类 '类模块 VERSION 1.0 CLASS BEGIN MultiUse = -1 'True Persistable = 0 'NotPersistable DataBindingBehavior = 0 'vbNone DataSourceBehavior = 0 'vbNon...
用keybd_event截图,参数如何定义
cyuyan的专栏
12-10 2483
用keybd_event截图,参数如何定义 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Call keybd_event(vbKeySnapshot, 0, 0
VB的HOOK简介
hack_wg的专栏
10-18 785
 Hook简介Hook这个东西有时令人又爱又怕，Hook是用来拦截系统某些讯息之用，例如说，我们想让系统不管在什麽地方只要按个Ctl-B便执行NotePad，或许您会使用Form的KeyPreview，设定为True，但在其他Process中按Ctl-B呢？那就没有用，这是就得设一个KeyboardHook来拦截所有Key in的键；再如：MouseMove的E
vb底层开发之Hook(钩子)
VisionSpace的专栏
04-16 1122
原帖地址：http://hi.baidu.com/starwork/blog/item/6d989ed3b2cb2c35960a1638.htmlhook是WINDOWS提供的一种消息处理机制，它使得程序员可以使用子过程来监视系统消息，并在消息到达目标过程前得到处理。 下面将介绍WINNDOWS HOOKS并且说明如何在WINDOWS 程序中使用它。 关于HOOKS 使用HOOK 将会降低
详解VB中系统热键使用
08-22 5685
最近弄这个很头疼了,没多少基础,不好理解,现在弄清楚了,这里总结一下. 先说要用到的API SetWindowLong GetWindowLong  '用来获取/设置窗口的消息处理函数地址,为什么后面会说到 上面两个函数都要用到GWL_WNDPROC = (-4)这个常数
VB6 设置快捷键
最新发布
07-27
在VB6中设置快捷键可以使用API函数来实现。可以使用以下代码来注册全局热键： ```vb Private Declare Function RegisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long Private Declare Function UnregisterHotKey Lib "user32" (ByVal hwnd As Long, ByVal id As Long) As Long Private Const MOD_ALT As Long = &H1 Private Const MOD_CONTROL As Long = &H2 Private Const MOD_SHIFT As Long = &H4 Private Const MOD_WIN As Long = &H8 Private Sub Form_Load() ' 注册快捷键，例如Ctrl+Shift+1 RegisterHotKey Me.hwnd, 1, MOD_CONTROL + MOD_SHIFT, vbKey1 End Sub Private Sub Form_Unload(Cancel As Integer) ' 取消注册快捷键 UnregisterHotKey Me.hwnd, 1 End Sub Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) ' 按下快捷键时触发的事件 If KeyCode = vbKey1 Then ' 执行相应的操作 MsgBox "快捷键被触发！" End If End Sub ``` 这段代码在窗体加载时注册了一个快捷键Ctrl+Shift+1，并在窗体关闭时取消注册。当用户按下快捷键时，会触发`Form_KeyDown`事件，你可以在该事件中执行相应的操作。在这个例子中，当快捷键被触发时，会弹出一个消息框显示"快捷键被触发！"。你可以根据自己的需求修改代码中的快捷键和相应的操作。\[2\] #### 引用[.reference_title] - *1* *3* [VB全局热键(快捷键)](https://blog.csdn.net/ty5858/article/details/113790007)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] - *2* [章鱼哥出品—VB.NET 自定义快捷键使用详解之全局热键](https://blog.csdn.net/zhangyubishoulin/article/details/39815891)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^control_2,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

键盘上的舞指

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值