VB中的延时问题

可不可以写一段代码让程序在被触发之后延时一段时间再执行。

下面的代码就可以实现了，不过没有用timer控件，timer控件我不能编写出来你看看‘定义间隔的时间函数  Private Const KEYEVENTF_KEYUP = &H2  Private Declare Function GetTickCount Lib "kernel32" () As Long  Private Sub Pause(ByVal sSec As Long)    Dim StartSec    As Long    StartSec = GetTickCount()    While (GetTickCount() - StartSec) < sSec    DoEvents    Wend  End Sub  Private Sub Command1_Click()Text1.Text = "abc" Pause (1000)Text1.Text = Text1.Text & vbCrLf & "def"Pause (1000)Text1.Text = Text1.Text & vbCrLf & "ghi"Pause (1000)Text1.Text = Text1.Text & vbCrLf & "jkl"End Sub

sleep(100)表示程序悬挂100毫秒后再执行，sleep函数要先声明，楼上的已经声明了

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Sub Form_Load() Sleep (1000) MsgBox "Strart" End Sub

Private Sub Form_Load() Timer1.Interval = 5000 End Sub

Private Sub Timer1_Timer() Timer1.Enabled = True Shell "D:\Program Files\QQ2007\Bin\QQ.exe", 1 End End Sub

窗体上加个Timer控件，这个代码的意思是运行本程序，五秒后打开qq.exe程序。希望对你有用

用timer控件可以

Private Sub Form_Load()  Timer1.Interval = 5000 End Sub

Private Sub Timer1_Timer()

 MsgBox "随意", vbOKOnly + vbQuestion, "提示"

End Sub