TimeMeasurer Class

Public NotInheritable Class TimeMeasurer
	Implements IDisposable

Dim instance As TimeMeasurer

public ref class TimeMeasurer sealed : IDisposable

[<SealedAttribute>]
type TimeMeasurer = 
    class
        interface IDisposable
    end

No code example is currently available or this language may not be supported.

Public Class Form1 : Inherits Form

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' A <see cref="TimeMeasurer"/> instance which is used as a chronometer.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    Private WithEvents chrono As New TimeMeasurer With {.UpdateInterval = 100}

    ' Label used to display the elapsed time.
    Private lblChrono As Label

    Private Shadows Sub Shown() Handles MyBase.Shown

        Me.lblChrono = Me.Label1
        Me.chrono.Start(TimeSpan.FromMinutes(1.0R))

    End Sub

    ''' ----------------------------------------------------------------------------------------------------
    ''' <summary>
    ''' Handles the <see cref="TimeMeasurer.TimeUpdated"/> event of the chrono instance.
    ''' </summary>
    ''' ----------------------------------------------------------------------------------------------------
    ''' <param name="sender">
    ''' The source of the event.
    ''' </param>
    ''' 
    ''' <param name="e">
    ''' The <see cref="TimeMeasurerUpdatedEventArgs"/> instance containing the event data.
    ''' </param>
    ''' ----------------------------------------------------------------------------------------------------
    Private Sub Chrono_TimeUpdated(ByVal sender As Object, ByVal e As TimeMeasurerUpdatedEventArgs) _
    Handles chrono.TimeUpdated

        ' H:M:S:MS
        Me.lblChrono.Text = String.Format("{0:00}:{1:00}:{2:00}:{3:000}",
                                          e.Elapsed.Hours, e.Elapsed.Minutes, e.Elapsed.Seconds, e.Elapsed.Milliseconds)

        If (e.Elapsed = e.Goal) Then
            Me.lblChrono.Text = "Chronometer Done!"
        End If

    End Sub

End Class

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.

No code example is currently available or this language may not be supported.