Question

vb中如何使启动窗体延迟3秒

这是我的代码，但我不知道怎么实现启动窗体的延迟
Private Sub Form_Load()
Me.Show
DoEvents
Load Form2
Unload Me
Form2.Show
End Sub

Answer 1

在这个窗体上添加 一个timer. Enabled=false

dim t%

Private Sub Form_Load()
Me.Show
Timer1.Interval = 1000
Timer1.Enabled = True
t=0
End Sub

Private Sub Timer1_Timer()
t=t+1

if t>3 then
Load Form2
Unload Me
Form2.Show
end if

End Sub

Answer 2

上面回答是将第二个窗体延迟,并不是启动窗体.

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

Private Sub Form_load()

Sleep 3000

End Sub

这个使用了API函数.极其简单.

3000 和 timer.interval 单位一样,表示3秒.