發問時間: 電腦與網際網路程式設計 · 1 0 年前

關於VB的”啟動畫面”

我想用VB做一個啟動畫面

(VB內建的東西)

我想讓他設定成

5秒後自動進入其他表單

請問要怎麼做呢?

他的原碼是

Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)

Unload Me

End Sub

Private Sub Form_Load()

lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision

lblProductName.Caption = App.Title

End Sub

Private Sub Frame1_Click()

Unload Me

End Sub

1 個解答

評分
  • 阿戊
    Lv 7
    1 0 年前
    最佳解答

    Private Sub Form_Load()

    lblVersion.Caption = "版本 " & App.Major & "." & App.Minor & "." & App.Revision

    lblProductName.Caption = App.Title

    Me.Show

    Dim t1 As Date

    t1 = Now

    Do Until Second(Now - t1) >= 5: DoEvents: Loop

    Form1.Show '表單名稱視需要自行修改

    Unload Me

    End Sub

    '其它的部份可以拿掉(不刪除也無影響)...保留Form_Load(),並加上藍色字的部份即可

還有問題?馬上發問,尋求解答。