• Home
 · 
• Miscellaneous
 · 
• A Progress Bar with timer

A Progress Bar with timer

A Progress Bar with timer

Rate A Progress Bar with timer

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Task: Timer Progress Bar. It Display How Many Seconds Left .....

        'Declarations


        'Code:
        Dim LThen As Integer = 0
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 20

        Do While ProgressBar1.Value < ProgressBar1.Maximum
            ProgressBar1.Value += 1
            LThen = DateAndTime.Timer()
            Dim s
            Do While DateAndTime.Timer() < (LThen + 1)
                Me.Text = (ProgressBar1.Maximum - ProgressBar1.Value) & " Second(s)Left"
            Loop
        Loop

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim LThen As Integer = 0
        ProgressBar1.Value = 0
        ProgressBar1.Maximum = 20

        Do While ProgressBar1.Value < ProgressBar1.Maximum
            ProgressBar1.Value += 1
            LThen = DateAndTime.Timer()
            Dim s
            Do While DateAndTime.Timer() < (LThen + 1)
                Me.Text = (ProgressBar1.Maximum - ProgressBar1.Value) & " Second(s)Left"
            Loop
        Loop
        End
    End Sub
End Class