vb 欢迎界面

发布网友发布时间：2022-06-27 05:06

共3个回答

热心网友时间：2024-12-02 15:08

很简单，在 Form1 加个 Timer 控件。
Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Form2.Visible = True
Unload Me
End Sub

程序也发给你了

热心网友时间：2024-12-02 15:09

private sub form1_load()
printf"欢迎使用xx操作系统"
form2.visible = false
timer1.interval = n*1000 'n秒
timer1.enable = true
end sub

Private Sub Timer1_Timer()
timer1.enable = false
form2.visible = true
End Sub

sub form2
.......
.......
e.nd sub

热心网友时间：2024-12-02 15:09

form1是启动窗体,form2是你的主窗体,form1上加个定时器,时间设置为1000(毫秒),并且enable为false,form1的代码如下:

Dim i As Integer
Private Sub Form_Load()
i = 0
Timer1.Enabled = True
DoEvents
Load Form2
DoEvents
End Sub

Private Sub Timer1_Timer()
DoEvents
i = i + 1
Label1.Caption = "程序正在加载" & i & "....."
DoEvents
If i = 5 Then
DoEvents
Form2.Show
Unload Me
End If
End Sub