THE SKY

Selamat Datang kawan di blogspot THE SKY

Friday, 26 April 2013

Progress Bar

Untuk VB 2010

1: open new project
2: Add progress bar di toolbox dan tambahkan juga label
3: Tambahkan timer dengan propeties

Enable :True
Interval: 1000

4) Double klik pada timer1nya terus masukan koding berikut

Code:
ProgressBar1.Value = ProgressBar1.Value + 1
Label1.Text = ProgressBar1.Value & "%"
If ProgressBar1.Value = 100 Then
Timer1.Enabled = False
End If


5) pada form_load tambahkan koding berikut

Code:
Label1.Text = "0 %"


Dan selesai