splash screen

Kode 

Private Sub Form_Load()
Dim Tid As Byte
    Me.Show
    Tid = Second(Time)
    Load frmMain
    
    Do Until Tid < Second(Time) - 4
        DoEvents
    Loop
    
    Unload Me
    frmMain.Show
End Sub

-

[Redigeret d. 12/01-04 18:02:46 af Dini]

-

[Redigeret d. 12/01-04 18:02:46 af Dini]

Du kan bruge en tråd til at styre din splash screen, og en anden tråd til at loade resten af dit program ind. Derved kan du loade "tunge" programmer ind, uden brugeren bliver sindsyg over at det ikke starter med det samme...

Kan ikke lige VB, så jeg kan ikke hjælpe dig med syntax'en
-------------------------------
Hilsen Jimmi Westeberg
http://www.westsworld.dk

Det ville være lidt godt, hvis du kunne loade programmet i baggrunden, og derefter kalde en .show på det.
Så har du jo reduceret den tid det tager at starte programmet efter din splashscreen kører...

-------------------------------
Hilsen Jimmi Westeberg
http://www.westsworld.dk

Hvis det er fordi du ikke skal loade noget under splash-screen (hvilket det lyder til eftersom du har en fast defineret periode den skal vises) kan du bruge en timer. Saet timer intervallet til et sekund, og naar den naar 4 stop timeren, luk splash og aabn hovedprogrammet.

Du skal sætte projektets startup object til din frmSplash... I splashens form indsætter du så koden:

Kode 

Private Sub Form_Load()
Dim Tid As Byte
    Me.Show
    Tid = Second(Time)
    Load frmMain
    
    Do Until Tid < Second(Time) - 4
        DoEvents
    Loop
    
    Unload Me
    frmMain.Show
End Sub

// Great programs often follow great brains!