Question

怎样使VB对按住的键盘不作出响应？

比如在文本框里，按住“s”就会一直输入“s”，怎样让他只输入一个“s”

若以下回答无法解决问题，邀请你更新回答

Answer 1

Dim f As Boolean

Private Sub Text1_KeyPress(KeyAscii As Integer)
If f Then
    KeyAscii = 0
Else
    f = True
End If
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
f = False
End Sub