Problemer med splash screen ....

Det er lang tid siden jeg har brugt VB, så det er lidt et gæt:

Hvis kl. er 18:07:59 tror jeg second(time) vil returnere 59, du trækker så 4 fra så det højeste der bliver sammenlignet med din variablen er 55. Hvilket gør at programmet fryser hvis kl. var noget 55-59 sekunder.

MvH

Stefan Svensson
http://www.remote-unlock.dk

Ja, jeg ville også sige du havde nogle problemer med tiden. Her er noget der kan hjælpe:

    'What ever goes here

    Tid = Second(Time) + 4 mod 60

    'What ever goes here   

    Do Until Tid <= Second(Time)
        DoEvents
    Loop
    
    'What ever goes here

Foresten skal du have ros for at definere tid som en byte. Der er alt for mange som bare ville definere den som integer og bruge meget mere hukommelse end nødvendigt!

// Your brain is your weapon, do not waste it!!

Et af de muntre tweaks i VB er DoEvents.

Det er en resource sluger der rykker. Selvom navnet antyder at man frigiver styresystemet er det faktisk ikke korrekt. Der bruges faktisk mange ressourcer da der for hver gang der loop'es skal sendes et kald til DoEvents. Dette betyder at din form er always on.

Ved at bruge DoEvents er man faktisk tilbage i QB dage da programmerne var kodestyret og ikke eventstyret.

Jeg vil foreslå dig at bruge en timerkontrol i stedet samt sætte din splash forms .keypreview til true. Du kan så i et .keypress og et .mousedown lukke din splash.

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Form_Load()
    Timer1.Interval = 10000
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Unload Me
End Sub

Private Sub Timer1_Timer()
    Unload Me
End Sub