Selamat siang sobat TOG, pada kesempatan kali ini kita akan berbagi tutorial cara membuat progress bar vertical di visual basic. Biasanya kalian kalau membuat progress bar biasa yang bentuknya horisontal saya pastikan semua pasti sudah bisa 😀 Dibawah ini saya akan menunjukkan cara membuat progress bar yang bentuknya tidak seperti biasa, berikut step-stepnya:

1. Buka program Visual Basic anda, pada tutorial ini saya menggunakan Microsoft Visual Basic 2010 Express pilih Windos Form Applications

2. Lalu pilih menu Project dan pilih Add Class

3. Kemudian pilih Class dan beri nama VerticalBar_Vertical atau nama lain sesuai keinginan kita terus tekan Add

4. Setelah itu kita menekan Add, pada Solution Explorer sebelah kanan akan muncul Class yang telah dibuat

5. Tambahkan script berikut ini pada class ProgressBar_Vertical

1 Imports System
2 Imports System
3 Imports System.Windows.Forms
4 Public Class ProgressBar_Vertical
5    Inherits ProgressBar
6    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
7        Get
8            Dim cp As CreateParams = MyBase.CreateParams
9            cp.Style = cp.Style Or &H4
10            Return cp
11        End Get
12    End Property
13 End Class

6. Debug program tersebut 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 sehingga nanti akan tampak seperti gambar dibawah ini

9. Kemudian view code itu dengan menekan tombol F7, lalu masukkan code berikut ini ya

1 Public Class Form1
2    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
3
4        ProgressBar_Vertical1.Value = 90
5
6        ProgressBar_Vertical2.Value = 80
7
8        ProgressBar_Vertical3.Value = 70
9
10        ProgressBar_Vertical4.Value = 50
11
12        ProgressBar_Vertical5.Value = 40
13    End Sub
14
15 End Class

10. Sekarang debug program dan lihat hasilnya

Kalau ingin mengembangkan lagi misalnya untuk membuat seperti volume bar sederhana seperti berikut ini:

Desain Form

Source code:

1 Public Class Form1
2
3    Dim vol As Integer
4
5    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
6
7    End Sub
8
9    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
10
11        vol = vol + 1
12
13        ProgressBar_Vertical1.Value = vol
14
15    End Sub
16
17    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
18
19        vol = vol – 1
20
21        ProgressBar_Vertical1.Value = vol
22    End Sub
23
24 End Class

ini screenshot hasil tampilannya:

Sekian untuk artikel kali ini yang berjudul Visual Basic – Tutorial Cara Membuat Progress Bar Vertical, semoga ini bisa membantu kalian yang sedang membuat progress bar di vb ya. Jangan lupa untuk mengirimkan dan apply CV/Resume terbaik anda ke PT TOG Indonesia karena sekarang ini masih banyak lowongan kerja di bidang IT dan sudah sudah kerja sama dengan banyak perusahaan-perusahaan ternama.

Salam Sukses

TOG Indonesia