Question

求VB中，在from2窗口等待几秒自动弹出from3窗口的时候 form2窗口关闭代码

Answer 1

在Form2窗口放入一个Timer1控件

Private Sub Form_Load()
Timer1.Interval = 5000 '等待5秒
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Form3.Show
Unload Me
End Sub

Answer 2

在from2中加入TIMER,代码如下
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
i=i+1
if i=5 then
Form3.Show
Unload Me
end if
End Sub

Answer 3

sleep 3000
show form3
hide