Fungsi & Event Controls Visual Basic .Net - XIII [ Progress Bar ]

 

Progress Bar 

Tambahkan objek ProgressBar dan Timer; label  pada Form design sesuai dengan gambar diatas. Setelah itu, isikan sintax , pada form_active dan timer

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

     ProgressBar1.Value = ProgressBar1.Value + 1

     label1.Text = ProgressBar1.Value & "% "

     If ProgressBar1.Value = 100 Then

         Timer1.Enabled = False

         MsgBox("Proses loading selesai")

         Me.Close()

     End If

 End Sub

Private Sub Form1_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated

     Timer1.Enabled = True

End Sub

Setelah itu, jalankan tekan F5, maka akan ditampilkan proses progress bar tersebut sesuai wakti berjalan per detik

Progress bar sedang berjalan sesuai dengan waktu berjalan

Jika proses loading selesai 100 % maka akan keluar pesan