我想做一个启动画面，启动画面过后是登录界面。这个怎么做啊，请大侠帮助啊。（在线等待！！）

Question

我想做一个启动画面，启动画面过后是登录界面。这个怎么做啊，请大侠帮助啊。（在线等待！！）

Answer 1

在启动画面上放一个TIMER，
三秒或二秒后关闭自身，同时打开登录窗口。

Answer 2

我自己知道了，谢谢（ vansoft(Vansoft Workroom ）

Answer 3

放一个timer,一个probar在桌面上,然后:
Dim time1 As Integer
Sub load1()
MDIfrm.Show
Unload Me
End Sub
Private Sub Form_Load()
'Call conn
probar.Min = 1
probar.Max = 100
End SubPrivate Sub Timer1_Timer()
time1 = time1 + 1
If time1 < 101 Then
probar.Value = time1
Label1.Caption = "正在进入，请稍候……                       " & time1 & " %"
Else
frmload.Show
Unload Me
End If
End Sub

Answer 4

Dim Dtime As Integer
Private Sub Timer1_Timer()
    Dtime = Dtime + 1
    If Dtime < 100 Then
        ProgressBar1.Value = Dtime
        Label1.Caption = "窗体正在载入，请稍等....." & Dtime / ProgressBar1.Max & "%"
    Else
        Unload Me
    End If
End Sub