有关vb代码问题

来源：百度知道 编辑：UC知道 时间：2024/09/24 12:22:32
什么代码可以将Form1出现后，隔三秒自动出现Form2

定义全局变量t:
Dim t as Integer
在Form1中放一个定时器控件，名称为Timer1，将其Interval属性设为1000
加入代码：
Private Sub Form_Load()
t=3
End Sub
Private Sub Timer1_Timer()
If t=0 then
Form2.show
else
t=t-1
End If
End Sub
这样就可以了

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

Private Sub Timer1_Timer()
Form2.Show
Timer1.Interval = 0
End Sub

timer控件，interval设置为1（时间间隔），form2.show

利用用Timer函数（而不是Timer控件）做一个时间延迟即可。