VB怎么做到两个键一起按

2024-12-15 15:55:24

推荐回答（3个）

回答1：

很简单啊，用keybd_event啊
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Const KEYEVENTF_KEYUP = &H2
’上面是定义
keybd_event ASC("W"), 0, 0, 0 '按下W键
keybd_event ASC("A"), 0, 0, 0 '按下A键
keybd_event ASC("W"), 0, KEYEVENTF_KEYUP, 0 ‘弹起W键
keybd_event ASC("A"), 0, KEYEVENTF_KEYUP, 0 '弹起A键

回答2：

不需要两个键，也能做到向左上移动。如果两个命令按钮同时发生单击事件

回答3：

如果一定要读取任意的键组合，VB没有直接提供这个功能，必须使用API函数：GetKeyboardState。
先自己了解一下这个函数。