title image


Smiley Re: Userform 3 sek. anzeigen
Hallo Tobias,ich habe mir jetzt zwar nicht die Muehe gemacht, den entsprechenden Code auf den EWAF-Seiten zu suchen, haette jedoch eine unter Excel97 funktionierende Alternative zu bieten.Ich habe das Problem wie folgt geloest:In "Hauptmodule" der Datei wird mittels Auto_Open() u.a. auch die entsprechende Userform aufgerufen (hier mit Namen "UserForm_Start").Sub Auto_Open() Rem Was auch immer vorher geschehen soll, muss hierher. UserForm_Start.Show ' as SplashScreen Rem Was auch immer hinterher geschehen soll, muss hierher.End SubIn der zu zeigenden UserForm steht dann folgender Code:Private Sub UserForm_Activate() Rem Shows the UserForm only for the period as defined per PauseTime. Dim PauseTime, Start, Finish, TotalTime PauseTime = 3 ' Set duration (3 seconds). Start = Timer ' Set start time. Do While Timer DoEvents ' Yield to other processes. Loop Unload Me Rem The following code is for demonstration only and can be deleted. Finish = Timer ' Set end time. TotalTime = Finish - Start ' Calculate total time. MsgBox "Splash Screen was shown for " & TotalTime & " seconds."End SubAnstelle von Wait wird der Timer genutzt, und in Verbindung mit DoEvents die Ausfuehrung von irgend welchen anderen Aktivitaeten ermoeglicht.So wie ich es verstehe, wuerde mit der Wait-Anweisung hingegen, die CPU fuer andere Aktivitaeten blockiert sein.Ok, im Zeitalter von 1GHz Taktfrequenzen vielleicht nicht mehr unbedingt notwendig,aber trotzdem besser.Viele Gruesse Norbert

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: