Question

怎么在vb 中加入延时命令

Answer 1

在窗体添加一个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

Answer 2

延时功能，先定义个API
Public Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)

Public Function doSleep(ByVal sngSeconds As Single) As Boolean

On Error GoTo Err_Handler
doSleep = False
Call Sleep(CInt(sngSeconds * 1000))
doSleep = True
Exit Function

Err_Handler:

End Function

答案补充
dosleep函数的延时单位是秒。

追问

没有简单点的？比如我就延迟30s 或者我按回车触发下一条

追答

呵呵 不会

追问

do while loop也可以

Answer 3

如：xkwy100 的例子那样，用timer控件或timer函数写个延时过程比较好，用API的SLEEP，在SLEEP那段时间不能响应事件

Answer 4

声明
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long) '声明

然后在你要的停地方加上
sleep 1000

后面的数字是时间 单位 毫秒

Answer 5

直接timer事件呀。能具体说说需要实现的功能吗？