Question

VB 怎么设计一个按键延时程序

一个大概如题的程序和界面，能够自己设置快捷键和延时时间。
每次你一按快捷键时，目标按键（比如回车键）就会按下635毫秒然后弹起。
我是VB初学者
按了快捷键，相当于按了键盘上的某一个键。。。。

Answer 1

第一种:用TIMER函数
记录开始时间,再加上需要延时的时间是否等于当前时间

第二种:用API函数 sleep函数,延时

追问

具体一点呗，还有怎么做按了快捷键，相当于按了键盘上的某一个键

追答

添加一个命令按钮 Command1
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
    Sleep 500 '延时时间,单位毫秒
    MsgBox "时间到"
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
   Select Case KeyCode
      Case vbKeyF1
        MsgBox "F1 is your friend."
        Command1_Click '当按下快捷键F1响应命令按钮1事件
      Case vbKeyF2: MsgBox "F2 could copy text."
      Case vbKeyF3: MsgBox "F3 could paste text."
      Case vbKeyF4: MsgBox "F4 could format text."
   End Select
End Sub

Private Sub Form_Load()
KeyPreview = True
End Sub