VB如何制作一个欢迎界面3秒后跳转到应用界面

2025-05-19 05:14:22

推荐回答（3个）

回答（1）：

比如form1作为欢迎界面，form2作为应用界面，
在form1中添加一个timer，改其属性interval为1000，
在form1的code中输入以下代码

Dim t%
Private Sub Form_Load()
t = 2
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
t = t - 1
If (t = 0) Then
Timer1.Enabled = False
Form1.Hide
Form2.Show
End If
End Sub

其他要添加什么控件的自己加，改什么属性之类的

回答（2）：

form1放置timer设置每1秒变量i增1，直到大于3后跳转新form2

回答（3）：

建立一个欢迎界面frmSplash增加一个定时器，该窗体启动三秒后关闭欢迎界面启动应用界面。