Killsoft Sugdok

Progressbar with label percent

Go down

Progressbar with label percent

Post by giovhz on Thu Nov 21, 2013 10:39 am

Code:
Public Class Form2

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(3)

        If ProgressBar1.Value = ProgressBar1.Maximum Then
            Timer1.Stop()

        Else
            ProgressBar1.Value += 1
            Label1.Text = ProgressBar1.Value.ToString + "%"
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

/
[You must be registered and logged in to see this link.]

[You must be registered and logged in to see this link.]
avatar
giovhz
Newbie
Newbie

Posts : 41
Join date : 2013-03-09

Back to top Go down

Back to top


 
Permissions in this forum:
You cannot reply to topics in this forum