Flacken der Zeit
14.08.2003 14:54:27
Flacken der Zeit
Hilft mir jemand das Flackern der Zeit in der Userform zu unterdrücken!
danke Willi!
Private Sub CommandButton1_Click()
UserForm1.Hide
End Sub
Private Sub Label1_Click()
Application.ScreenUpdating = True
End Sub
Private Sub Label2_Click()
End Sub
Private Sub UserForm_Activate()
Dim Pausenlänge, start, ende, Gesamtdauer, anzeige
Pausenlänge = 15 ' Dauer festlegen.
start = Timer ' Anfangszeit setzen.
'UserForm1.Caption = "VW-Mosel - Benutzerinformation"
Do While Timer < start + Pausenlänge
anzeige = Timer - start
anzeige = Pausenlänge - Application.WorksheetFunction.Round(anzeige, 0)
UserForm1.Caption = "" & anzeige & " Sek."
DoEvents ' Steuerung an andere Prozesse abgeben.
Loop
ende = Timer ' Ende festlegen.
Gesamtdauer = ende - start ' Gesamtdauer berechnen.
UserForm1.Hide
End Sub
Private Sub UserForm_Initialize()
UserForm1.Caption = "VW-Mosel"
End Sub