新建一个工程,包含2个窗体FORM1,FORM2,如何实现一个欢迎界面,运行时间3秒,3秒后Form1消失,Form2出现

新建一个工程,包含2个窗体FORM1,FORM2,如何实现一个欢迎界面,运行时间3秒,3秒后Form1消失,Form2出现

在窗体FORM1中写入代码：

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
s = s + 1
If s >= 3 Then
Me.Hide
'或者用：unload me
Form2.Show

End If
End Sub

Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True End Sub

Private Sub Timer1_Timer() Static L As Long L = L + 1 If L = 3 Then Form2.Show Unload Me End If End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息