DateAndTime.Timer Tulajdonság
Definíció
Fontos
Egyes információk olyan, kiadás előtti termékekre vonatkoznak, amelyek a kiadásig még jelentősen módosulhatnak. A Microsoft nem vállal kifejezett vagy törvényi garanciát az itt megjelenő információért.
Double Az éjfél óta eltelt másodpercek számát adja vissza.
public:
static property double Timer { double get(); };public static double Timer { get; }static member Timer : doublePublic ReadOnly Property Timer As DoubleTulajdonság értéke
Az éjfél óta eltelt másodpercek számát jelző érték.
Példák
Ez a példa a tulajdonság használatával Timer szünetelteti az alkalmazást. A szüneteltetés során más feldolgozást is végrehajthat.
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
Vegye figyelembe, hogy a Timer tulajdonságot a Microsoft.VisualBasic névtérrel kell minősítenie, mivel Timer is definiált osztály a System.Threading, System.Timers és System.Windows.Forms névterekben.
Megjegyzések
A Timer tulajdonság a legutóbbi éjfél óta eltelt másodpercet és ezredmásodpercet is visszaadja. A másodpercek a visszatérési érték szerves részét képezik, az ezredmásodpercek pedig a törtrészben vannak.
