口袋妖怪xy钓竿哪里拿:关于vb编程的问题

来源:百度文库 编辑:高校问答 时间:2024/05/02 20:18:44
请问vb有没有语句表示该下面一段代码在过了几秒种之后执行

我指的是在同一个事件里

1. 用timer控件
2. 或者干脆来一个循环:
do
DoEvents
until (延时时间到)
3. 用API函数 sleep
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Sleep 1000 '延时1000毫秒
MsgBox "End of Sleep!"
End Sub

可以用timer
代码下面启用timer,然后在timer里设置好时间,在timer事件设置你想实现的功能最后再把timer停止,如此循环即可