VB怎么判断是否按住(是按住)键

来源：百度知道 编辑：UC知道 时间：2024/09/22 22:26:47
比如说:
X 按住X就一直按X
这该怎么做
我新手,请说清楚点 谢谢
我是说 如果按住X就一直按X 如果放开 就停止按X

给你举个例子，
在Form上建一个Label1，写代码如下：
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Label1.Caption = "您按住了 " & Chr(KeyCode) & " 键"
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Label1.Caption = ""
End Sub

按住某个键后 程序就一直按住该键

我用的是textbox测试的 text1_keydown 可以改成任意控件
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal Scan As Byte, ByValdwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
a = KeyCode
Call keybd_event(a, 0, 0, 0)
End Sub

???? 你按住X后 不就是一直按住X的吗? 松开后就不按X了 不需要什么程序啊 系统本身就是这样的! 能不能再说清楚些?

按下X键时候判断:

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyX Then

Label1.Caption = "您按下了x键"
End If
End Sub

Private Sub Form_KeyUp(KeyCode As