Membuat Progress Bar Vertical Pada Visual Basic

Ngomongin berbagi, kali ini saya mau berbagi tutorial membuat Progress Bar pada Visual Basic 2010 yang berbentuk vertikal. Tutorial ini saya buat dari beberapa sumber di internet, namun saya telah mempraktekkannya sendiri dan saya tulis sebagai bentuk dokumentasi saya. Baiklah, kalau membuat progress bar biasa yang bentuknya horisontal kawan-kawan semua pasti sudah bisa. Kali ini saya akan menunjukkan cara membuat progressbar yang bentukknya tidak biasa, berikut langkah-langkahnya

1. Buka program Visual Basic anda, pada tutorial ini saya menggunakan Microsoft Visual Basic 2010 Express pilih Windos Form Applications
2. Pilh menu Project dan pilih Add Class
   
3. Pilih Class dan beri nama VerticalBar_Vertical atau nama lain sesuai keinginan anda dan tekan Add
   
4. Setelah anda menekan Add, pada Sulution Explorer sebelah kanan akan muncul Class yang telah dibuat
   
5. Tambahkan scrpt berikut ini pada class ProgressBar_Vertical
   

   1 2 3 4 5 6 7 8 9 10 11 12 13

   Imports System Imports System Imports System.Windows.Forms Public Class ProgressBar_Vertical     Inherits ProgressBar     Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams         Get             Dim cp As CreateParams = MyBase.CreateParams             cp.Style = cp.Style Or &H4             Return cp         End Get     End Property End Class

6. Debug program dengan cara tekan tombol F5 atau pada menu Debug->Start Debugging
   
7. Tutup form hasil debug, dan sekarang pada ToolBox akan muncul Windows Component baru yaitu Pointer dan ProgressBar_Vertical
   
8. Sekarang saatnya menggunakan ProgressBar Vertical tadi, pilih Component ProgressBar_Vertical pada toolbox. Tempatkan pada form sehinnga tampak seperti gambar berikut
   
9. Kemudian view code dengan menekan tombol F7, lalu masukkan code berikut ini
   

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

   Public Class Form1     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load           ProgressBar_Vertical1.Value = 90           ProgressBar_Vertical2.Value = 80           ProgressBar_Vertical3.Value = 70           ProgressBar_Vertical4.Value = 50           ProgressBar_Vertical5.Value = 40     End Sub   End Class

10. Debug program dan lihat hasilnya,
    

Demikianlah tutorial membuat Progressbar Vertical dari saya, semoga bermanfaat. Anda dapat mengembangkan progressbar vertical tersebut misalnya untuk membat seperti volumebar sederhana seperti berikut,
Desain Form:

Source code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

Public Class Form1       Dim vol As Integer       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load       End Sub       Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click           vol = vol + 1           ProgressBar_Vertical1.Value = vol       End Sub       Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click           vol = vol - 1           ProgressBar_Vertical1.Value = vol     End Sub   End Class

Printscreen tampilan hasil:

 

Selain volumebar sederhana di atas, anda juga dapat menggunakan progressbar vertical tersebut untuk keperluan lain seperti baterybar atau kebutuhan yang lain.
Akhirnya saya mengucapkan terimakasih telah membaca tutorial dari saya, semoga dapat memberi manfaat. Dan saya juga mohon kritik dan sarannya agar tutorial saya yang selanjunya bisa lebih baik
Terimakasih