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

2026年09月24日 20:47
有2个网友回答
网友(1):

在窗体FORM1中写入代码: Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
s = s + 1
If s >= 3 Then
Me.Hide
'或者用:unload me
Form2.ShowEnd If
End Sub

网友(2):

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Static L As Long
L = L + 1
If L = 3 Then
Form2.Show
Unload Me
End If
End Sub