怎么在vb 中加入延时命令

在窗体添加一个Timer和一个Command

Private Sub Command1_Click()

    Me.Timer1.Interval = 30 * 1000        '定时30秒

    Me.Timer1.Enabled = True

    Do

        If Not Timer1.Enabled Then MsgBox "时间到！": Exit Sub

        DoEvents

    Loop

End Sub

Private Sub Form_Load()

    Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

    Me.Timer1.Enabled = False

End Sub

VB提倡的是用定时器控件（Timer）的方法。首先在窗体放入一个Timer1和Command1，然后输入以下代码：

Private Sub Command1_Click()

Timer1.Interval = 1000

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

MsgBox "这个对话框是点击按钮1秒钟后d出来的"

Timer1.Enabled = False

End Sub

此外还可以用API函数Sleep来延时，或者利用循环结合时间函数来延时，但它们都容易造成系统阻塞，所以不建议使用。

使用定时器控件还有一个最大好处，就是在延时期间你的程序还可以继续运行处理其他事务（比如鼠标点击、键盘输入等）。而其他方法产生的延时效果，在延时期间就只能傻等，什么也做不了，甚至还有可能影响到其他程序。

---