當前位置: 首頁>>代碼示例>>VB.NET>>正文


VB.NET Timer.Dispose方法代碼示例

本文整理匯總了VB.NET中System.Threading.Timer.Dispose方法的典型用法代碼示例。如果您正苦於以下問題:VB.NET Timer.Dispose方法的具體用法?VB.NET Timer.Dispose怎麽用?VB.NET Timer.Dispose使用的例子?那麽, 這裏精選的方法代碼示例或許可以為您提供幫助。您也可以進一步了解該方法所在System.Threading.Timer的用法示例。


在下文中一共展示了Timer.Dispose方法的1個代碼示例,這些例子默認根據受歡迎程度排序。您可以為喜歡或者感覺有用的代碼點讚,您的評價將有助於係統推薦出更棒的VB.NET代碼示例。

示例1: Example

' 導入命名空間
Imports System.Threading

Public Module Example
    Public Sub Main()
        ' Use an AutoResetEvent to signal the timeout threshold in the
        ' timer callback has been reached.
        Dim autoEvent As New AutoResetEvent(False)

        Dim statusChecker As New StatusChecker(10)

        ' Create a timer that invokes CheckStatus after one second, 
        ' and every 1/4 second thereafter.
        Console.WriteLine("{0:h:mm:ss.fff} Creating timer." & vbCrLf, 
                          DateTime.Now)
        Dim stateTimer As New Timer(AddressOf statusChecker.CheckStatus, 
                                    autoEvent, 1000, 250)

        ' When autoEvent signals, change the period to every half second.
        autoEvent.WaitOne()
        stateTimer.Change(0, 500)
        Console.WriteLine(vbCrLf & "Changing period to .5 seconds." & vbCrLf)

        ' When autoEvent signals the second time, dispose of the timer.
        autoEvent.WaitOne()
        stateTimer.Dispose()
        Console.WriteLine(vbCrLf & "Destroying timer.")
    End Sub
End Module

Public Class StatusChecker
    Dim invokeCount, maxCount As Integer 

    Sub New(count As Integer)
        invokeCount  = 0
        maxCount = count
    End Sub

    ' The timer callback method.
    Sub CheckStatus(stateInfo As Object)
        Dim autoEvent As AutoResetEvent = DirectCast(stateInfo, AutoResetEvent)
        invokeCount += 1
        Console.WriteLine("{0:h:mm:ss.fff} Checking status {1,2}.", 
                          DateTime.Now, invokeCount)
        If invokeCount = maxCount Then
            ' Reset the counter and signal the waiting thread.
            invokeCount = 0
            autoEvent.Set()
        End If
    End Sub
End Class
開發者ID:VB.NET開發者,項目名稱:System.Threading,代碼行數:51,代碼來源:Timer.Dispose

輸出:

11:59:54.202 Creating timer.

11:59:55.217 Checking status  1.
11:59:55.466 Checking status  2.
11:59:55.716 Checking status  3.
11:59:55.968 Checking status  4.
11:59:56.218 Checking status  5.
11:59:56.470 Checking status  6.
11:59:56.722 Checking status  7.
11:59:56.972 Checking status  8.
11:59:57.223 Checking status  9.
11:59:57.473 Checking status 10.

Changing period to .5 seconds.

11:59:57.474 Checking status  1.
11:59:57.976 Checking status  2.
11:59:58.476 Checking status  3.
11:59:58.977 Checking status  4.
11:59:59.477 Checking status  5.
11:59:59.977 Checking status  6.
12:00:00.478 Checking status  7.
12:00:00.980 Checking status  8.
12:00:01.481 Checking status  9.
12:00:01.981 Checking status 10.

Destroying timer.


注:本文中的System.Threading.Timer.Dispose方法示例由純淨天空整理自Github/MSDocs等開源代碼及文檔管理平台,相關代碼片段篩選自各路編程大神貢獻的開源項目,源碼版權歸原作者所有,傳播和使用請參考對應項目的License;未經允許,請勿轉載。