当前位置: 源码素材网 » VB源码 » 系统相关 » 详情页

VB6.0 判断Num Lock键和Caps Lock键是否锁定

VB6.0 判断Num Lock键和Caps Lock键是否锁定。
  Private Sub Command1_Click()
   Dim MyStr As String
   If GetKeyState(vbKeyCapital) Then
   MyStr = "Caps Lock键锁定;"
   Else
   MyStr = "Caps Lock键未锁定;"
   End If
   If GetKeyState(vbKeyNumlock) Then
   MyStr = MyStr + "Num Lock键锁定。"
   Else
   MyStr = MyStr + "Num Lock键未锁定。"
   End If
   Label1.Caption = MyStr
  End Sub

  • 相关标签:大小写锁定
  • 调试环境:VB6.0
  • 文件大小:2.17K
  • 资源评级:
  • 更新时间:2019-08-13
  • 相关链接:暂无演示

源码测试截图:

VB6.0 判断Num Lock键和Caps Lock键是否锁定运行截图

相似源码:大小写锁定 VB源码下载:VB6.0 判断Num Lock键和Caps Lock键是否锁定 测试截图

下载声明:

本站资源仅供学习参考,禁止用于非法途径。若“VB6.0 判断Num Lock键和Caps Lock键是否锁定”源代码侵犯了您的权益,请尽快告诉我们。