Question

vb6.0制作一个小程序 在线等

点击这个按钮后 延迟10s 按下F4 这个键 没有多少分了 大侠帮帮我吧

Answer 1

Private Declare Function Sleep Lib "kernel32 " (ByVal dwMilliseconds As Long) As Long

Private Sub Command1_Click()
Sleep 10 * 1000‘延迟10s
SendKeys "{F4}"’ 按下F4 这个键
End Sub