Timer For Repeater

rupesh gour

2y739.NET

i have an repeater there is multiple record each record have different expiry datetime.

i want to set timer with remaining time for each record in timer to show remaining time continue.

Please help me with code.

coding on vb.net

3 Replies

Know the answer? Post it — somebody with the same question will find it here.

Abhishek Yadav2y ago

Imports System.Timers

Public Class Form1
    Private records As New List(Of Record)()
    Private timers As New List(Of Timer)()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Sample records with different expiry datetimes
        records.Add(New Record("Record 1", DateTime.Now.AddSeconds(20)))
        records.Add(New Record("Record 2", DateTime.Now.AddSeconds(30)))
        records.Add(New Record("Record 3", DateTime.Now.AddSeconds(40)))

        ' Create a timer for each record
        For Each record In records
            Dim timer As New Timer()
            timers.Add(timer)

            ' Set the interval of the timer to 1 second (1000 milliseconds)
            timer.Interval = 1000

            ' Add the Tick event handler for the timer
            AddHandler timer.Elapsed, Sub(sender, args) TimerTick(sender, args, record)

            ' Start the timer
            timer.Start()
        Next
    End Sub

    Private Sub TimerTick(sender As Object, e As ElapsedEventArgs, record As Record)
        ' Calculate the remaining time
        Dim remainingTime = record.ExpiryDateTime - DateTime.Now

        ' Update the UI on the main thread
        BeginInvoke(Sub()
                        ' Update the remaining time in the UI for the corresponding record
                        If remainingTime.TotalSeconds > 0 Then
                            ' Display remaining time
                            label1.Text = $"{record.Name}: {remainingTime.ToString("h\:mm\:ss")}"
                        Else
                            ' Expiry time reached
                            label1.Text = $"{record.Name}: Expired"
                        End If
                    End Sub)
    End Sub
End Class

Public Class Record
    Public Property Name As String
    Public Property ExpiryDateTime As DateTime

    Public Sub New(name As String, expiryDateTime As DateTime)
        Me.Name = name
        Me.ExpiryDateTime = expiryDateTime
    End Sub
End Class

Here's an updated code snippet that shows how to update the time without reloading the page using a Timer:

rupesh gour2y ago
i want update time without page load , with timer page load is happening.
+3

Abhishek Yadav2y ago

Imports System.Timers

Public Class Form1
    Private records As New List(Of Record)()
    Private timers As New List(Of Timer)()

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' Sample records with different expiry datetimes
        records.Add(New Record("Record 1", DateTime.Now.AddSeconds(20)))
        records.Add(New Record("Record 2", DateTime.Now.AddSeconds(30)))
        records.Add(New Record("Record 3", DateTime.Now.AddSeconds(40)))

        ' Create a timer for each record
        For Each record In records
            Dim timer As New Timer()
            timers.Add(timer)

            ' Set the interval of the timer to 1 second (1000 milliseconds)
            timer.Interval = 1000

            ' Add the Tick event handler for the timer
            AddHandler timer.Elapsed, Sub(sender, args) TimerTick(sender, args, record)

            ' Start the timer
            timer.Start()
        Next
    End Sub

    Private Sub TimerTick(sender As Object, e As ElapsedEventArgs, record As Record)
        ' Calculate the remaining time
        Dim remainingTime = record.ExpiryDateTime - DateTime.Now

        ' Update the UI on the main thread
        BeginInvoke(Sub()
                        ' Update the remaining time in the UI for the corresponding record
                        If remainingTime.TotalSeconds > 0 Then
                            ' Display remaining time
                            label1.Text = $"{record.Name}: {remainingTime.ToString("h\:mm\:ss")}"
                        Else
                            ' Expiry time reached
                            label1.Text = $"{record.Name}: Expired"
                        End If
                    End Sub)
    End Sub
End Class

Public Class Record
    Public Property Name As String
    Public Property ExpiryDateTime As DateTime

    Public Sub New(name As String, expiryDateTime As DateTime)
        Me.Name = name
        Me.ExpiryDateTime = expiryDateTime
    End Sub
End Class