如何编写代码获取大写锁定键或数字键盘键的状态？
发布时间：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
投稿猜你喜欢
Windows7系统里面有个天气小工具，这个工具主要是帮助我们了解天气状况的，可是有用户发现Windows7天气小工具不能用了，那么当你遇到- word作为我们日常的办公软件不仅可以帮助我们处理文字上的编辑，还可以进行图片处理，功能全面，不过对于新用户或者不熟练用户来说，很多小问题待
- Win7右下角音量控制图标不见了，可以放出声音，在控制面板的调节系统音量里里可以调节音量，检查了声卡驱动也是正确的，下面与大家分享下具体的找
- 苹果手机设置没有wifi选项怎么办?最近有很多小伙伴反馈苹果手机没有Wi-Fi选项，碰到这样的情况该怎么办呢?下面，小编就给大家介绍苹果手机
- 现在我们的电脑中都是带有蓝牙功能的，但是想要使用它还需要下载相应的蓝牙驱动。相信还有部分用户不太清楚蓝牙的具体打开方法吧，那么今天小编就为大
- 年底的时候，我们家都会来一次家庭大扫除，但最后会发现:无论平时打扫的有多干净，总是能从犄角旮旯里清理出一些想不到的垃圾，比如几个月前从手里弹
- 今天给大家分享一下这种阴影的制作方法。 具体方法如下：绘制一个竖着的长方形备用。 然后绘制一个椭圆，并将其设置为如下图的
- balenaetcher怎么制作windows启动盘？balenaEtcher写盘工具是一款苹果写盘工具，能够安全快速地将图像刻录到SD卡和
- 有的用户在使用电脑的过程中经常会遇上很多难以解决的情况，这时候我们可以尝试通过上网查找解决方法进行解决，有的用户笔记本拿点按哦闪烁后出现了条
- 许多用户在使用打印机的时候经常会出现一些使用上的问题，例如最近有的小伙伴在使用自己的Win10系统搜索共享打印机的时候发现自己的电脑无法搜索
- 在win10系统中由用户发现了一个名为Config.Msi 的文件夹，该文件夹有什么用呢可以删除吗？Config.Msi文件夹通常位于C:C
- 系统u盘启动盘怎么制作？系统u盘启动盘可以在电脑出现问题的时候帮助用户进行重装或者安装系统，快速恢复电脑状态，而且也可以在日常使用中帮助用户
- 扩展WPS云空间 如果你使用了文档漫游功能，并且经常使用WPS Office，那么小编预计在一个月左右你就收到“您的WPS云文档空
- 谷歌浏览器截图怎么截？谷歌浏览器是现在非常火热的浏览器之一，非常的好用，他的稳定性，速度，安全性都非常的高，那么谷歌浏览器又是怎么截图的呢，
- 一说起数据查询，很多小伙伴们马上会想到VLOOKUP、LOOKUP这些函数了，咱们之前也推送过VLOOKUP和他的七大姑八大姨们，那除了这些
- 转转怎么发布二手商品？转转APP是一款二手商品交易平台，用户们可将自己不用的东西出售给他人，那么我们该如何在转转APP上发布商品呢？下面小编
- 有小伙伴想了解笔记本win7怎么恢复出厂设置，win7系统不像win10系统可以直接重置，win7系统需要通过备份还原的方法实现恢复出厂设置
- 问：Office Word2010中的字数统计在哪里，找了好久都没找到这个功能，怎么和以前的版本都不大一样啊?答：Word2007是点“审阅
- Excel表格软件默认的情况下，新建的工作表使用的11号宋体作为默认字体。其实我们可以根据自己实际需要修改Excel表格中的默认字体，下面给
- 如果整天对着单一的桌面壁纸的话，难免会比较单调，很多小伙伴都想给自己的电脑桌面壁纸设置的更加个性化。那么该如何设置电脑桌面壁纸呢？下面小编就
