VB如何制作一个欢迎界面3秒后跳转到应用界面
3个回答
展开全部
比如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
其他要添加什么控件的自己加,改什么属性之类的
在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
其他要添加什么控件的自己加,改什么属性之类的
展开全部
form1放置timer设置每1秒变量i增1,直到大于3后跳转新form2
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建立一个欢迎界面frmSplash增加一个定时器,该窗体启动三秒后关闭欢迎界面启动应用界面。
追问
能给个示例程序吗
追答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询