Timer, propriété
Mise à jour : novembre 2007
Retourne une valeur de type Double représentant le nombre de secondes écoulées depuis minuit.
ReadOnly Public Property Timer() As Double
Notes
La propriété Timer retourne à la fois les secondes et les millisecondes écoulées depuis minuit. Les secondes font partie de la partie entière de la valeur de retour, les millisecondes de la partie décimale.
Exemple
Cet exemple utilise la propriété Timer pour suspendre l'application. D'autres traitements peuvent être effectués lors de la pause.
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
Notez que vous devez qualifier la propriété Timer avec l'espace de noms Microsoft.VisualBasic, parce que Timer est également une classe définie dans les espaces de noms System.Threading, System.Timers et System.Windows.Forms.
Configuration requise
Espace de noms :Microsoft.VisualBasic
**Module :**DateAndTime
**Assembly :**bibliothèque Visual Basic Runtime (dans Microsoft.VisualBasic.dll)
Dans la mesure où Timer est membre d'un module plutôt que d'une classe, vous n'avez pas besoin de créer un objet sur lequel accéder à Timer.