如何编写代码获取大写锁定键或数字键盘键的状态？
发布时间：2022-06-26 17:28:58
Q：我想在代码中就能确定大写锁定键或者数字键盘键的状态，以便适当地提醒用户这些键已经开启或者应该开启，怎么编写代码？
A：可以借助于Windows API来取得键盘相应键的状态，代码如下：
‘API声明
Private Declare Function GetKeyState Lib “user32” (ByVal nVirtKey As Long) As Integer
‘定义键编码常量
‘大写锁定键编码常量
Private Const GetCapsLock = 2
‘数字键盘键编码常量
Private Const GetNumLock = 144
‘获取大写锁定键状态
Public Function CapsLock() As Boolean
CapsLock = KeyState(GetCapsLock)
End Function
‘获取数字键盘键状态
Public Function NumLock() As Boolean
NumLock = KeyState(GetNumLock)
End Function
‘获取指定键状态
Private Function KeyState(lKey As Long) As Boolean
KeyState = CBool(GetKeyState(lKey))
End Function
‘测试大写锁定键状态
Sub test()
If CapsLock Then
MsgBox “注意!你现在的大写锁定键是开启的.”, vbExclamation
Else
MsgBox “大写锁定未开启.”
End If
End Sub
运行上述代码中的test过程，如果开启了大写状态，那么会得到下所示的消息：
我们可以在程序中加入上述代码来测试相应键的状态。例如，在要求用户输入密码时，如果开启了大写锁定键，则可以提示用户大写锁定键已开启的信息，以免用户将小写字母输成了大写字母。
0
投稿猜你喜欢
除了阅读和修改限制之外，文档限制还有一个重要的方面，那就是打印限制。大家知道，许多文档或复习资料由于版权方面的考虑，制作者会将其制作成只能看- Word文档中有时候经常使用超链接，这样有助阅读时快速跳转到指定的位置，那么在word文档中如何插入超链接?下面小编就为大家详细介绍一下，来
- 在我们工作生活中经常需要用到电脑截图来截取保存些重要信息，不过对于电脑新手来说还是不太清楚电脑怎么截图，问小编电脑按什么键自由截图。那今天小
- 在使用电脑的过程中总会遇到各种各样的问题，就有用户跟小编反应说自己打开任何程序都会自动跳转到Microsoft Store商店，非常烦人，有
- Word在编辑文档的时候可以对文字进行一些简单的变换，可是怎样为页面设置除了白色以外的其它颜色呢?今天，小编就教大家在Word中对页面更换颜
- 如何自动汇总Word 2003文档？Word 2003中的“自动摘要”工具通过找出所有关键点来自动汇总文档。然后，“自动摘要”会在屏幕上突出
- word不能插入图表的解决办法：1、点击电脑下角“开始”--所有程序--wps office工具--配置工具--高级--兼容设置--将第三方
- Excel中只有你想不到的，没有他做不到的，今天给大家分享10个Excel神技巧，一起快乐的办公！1、快速录入编号选中要录入编号
- [方法一]第一步：打开要编辑的文本。第二步：拖动鼠标或使用键盘选定要改变字体的文本。第三步：单击“格式”工具栏上“字体”框右边的下拉箭头，打
- 本周，苹果发布了 iOS/iPadOS 14.4 正式版，更新内容包括：“相机”可识别更小的二维码；“设置”中新增分类蓝牙设备类型的选项，以
- 在电子信息化发展越来越快的今天，很多东西都被电子化所代替，比如调查问卷，资料填写等等，需要我们在方框中打钩或打叉，那么下面就由小编给大家分享
- 一、输入文字在word中输入文字时，文字会出现在插入点(也称当前位置，即那个一直闪动的小竖条，其状态显示在word状态栏中)前。如果要在文字
- 函数COUNT在计数时，将把数值型的数字计算进去;但是错误值、空值、逻辑值、日期、文字则被忽略。如果参数是一个数组或引用，那么只统计数组或引
- 在Excel工作表中，您可以将列宽指定为 0(零)到 255。此值表示可在用标准字体 (标准字体：工作表的默认文本字体。标准字体决定了“常规
- office办公软件中常用的3个软件分别是word、Excel和PowerPoint。1、Microsoft Office WordMicr
- CorelDRAW是一款图形设计软件，使用coreldraw的时候，很多用户不知道查找与替换在哪里，那么我们应该怎么操作呢？针对这一问题，本
- “实况文本”是苹果在 iOS 15 以及更新系统中增加的一项实用功能，通过此功能，只需轻点照片中高亮显示的文本，你就可以打电话、发邮件或查询
- Office 2007安装失败写入注册表时出错1406该怎么办？出现这个问题就需要管理员权限，今天我们分享两种解决办法，一个是通过修改注册表
- 经常使用办公软件的人可能有遇到过需要将Excel相邻两行数据相互交换的情况，需要怎么弄才最方便呢？您还是像大家通常所做的那样先在Excel文
- EXCEL如何创建下拉列表?这里pc6小编Excel2010为例，给大家图解怎样添加下拉列表：打开Excel选择数据,如图1
