Mengakali Progress Bar Jika Nilai Melewati Batas Maksimal

Kadang kala sewaktu kita menggunakan progress bar, kita mendapatkan pesan kesalahan "Out of Range Error" yang berarti nilai dari progress bar tersebut sudah melewati batas maksimalnya. Ada trik untuk membuat agar pesan tersebut tidak muncul, salah satunya menggunakan fungsi mod pada Visual Basic.

ProgressBar1.Max+1000

Lalu dalam looping kita menggunakan baris perintah dibawah ini :

ProgressBar1.Value=X mod 1000

Dimana X adalah nilai yang tidak kita ketahui. dengan cara tersebut, setiap kali nilai melewati batas maksimal, nilainya akan dimulai dari 0 kembali. Lalu bagaimana jika nilainya yang terlihat pada progress bar tidak penuh, akan tetapi hanya setengah. Anda dapat menambahkan perintah berikut ini pada akhir statement di luar looping.

ProgressBar1.Value=ProgressBar1.Max

Artikel Terkait