Timer-Eigenschaft
Aktualisiert: November 2007
Gibt einen Wert vom Typ Double zurück, der die Anzahl der seit Mitternacht vergangenen Sekunden angibt.
ReadOnly Public Property Timer() As Double
Hinweise
Die Timer-Eigenschaft gibt sowohl die Sekunden als auch die Millisekunden seit der letzten Mitternacht zurück. Dabei werden die Sekunden im ganzzahligen Teil des Rückgabewerts angegeben und die Millisekunden in den Nachkommastellen.
Beispiel
In diesem Beispiel wird die Anwendung mithilfe der Timer-Eigenschaft unterbrochen. Innerhalb dieser Zeit können andere Prozesse ausgeführt werden.
Public Sub waitFiveSeconds()
If TimeOfDay >= #11:59:55 PM# Then
MsgBox("The current time is within 5 seconds of midnight" & _
vbCrLf & "The timer returns to 0.0 at midnight")
Return
End If
Dim start, finish, totalTime As Double
If (MsgBox("Press Yes to pause for 5 seconds", MsgBoxStyle.YesNo)) _
= MsgBoxResult.Yes Then
start = Microsoft.VisualBasic.DateAndTime.Timer
' Set end time for 5-second duration.
finish = start + 5.0
Do While Microsoft.VisualBasic.DateAndTime.Timer < finish
' Do other processing while waiting for 5 seconds to elapse.
Loop
totalTime = Microsoft.VisualBasic.DateAndTime.Timer - start
MsgBox("Paused for " & totalTime & " seconds")
End If
End Sub
Sie müssen die Timer-Eigenschaft mit dem Microsoft.VisualBasic-Namespace qualifizieren, da Timer auch eine in den Namespaces System.Threading, System.Timers und System.Windows.Forms definierte Klasse ist.
Anforderungen
Namespace:Microsoft.VisualBasic
**Modul:**DateAndTime
**Assembly:**Visual Basic Runtime Library (in Microsoft.VisualBasic.dll)
Da Timer ein Member eines Moduls ist und nicht einer Klasse, müssen Sie kein Objekt für den Zugriff auf Timer erstellen.