Question

vb 欢迎界面

VB中怎样做定时的欢迎界面

运行时，出现欢迎界面，几秒钟后自动进入功能界面。

希望能给个模板程序，含两个窗体的。一个欢迎窗体，
一个功能窗体（功能窗体给我留空白）
thanks，yyff11@Gmail.com

欢迎界面里面的代码要怎么写？还要怎么设置。麻烦写出完整的代码，谢谢！

Answer 1

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

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

程序也发给你了

Answer 2

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

Answer 3

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