Membuat Progress Bar Vertikal dengan VB.Net

Secara default komponen progress bar di VB .Net berbentuk Horizontal. Dengan satu dua baris code sederhana kita bisa membuat Progress Bar berbentuk Vertikal.

Menambahkan Sebuah Class

Langkah pertama ; membuat atau sebuah class bernama ProgressBar_Vertikal
code programnya.



Imports System
Imports System.Windows.Forms
Public Class ProgressBar_Vertikal
    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

Kemudian Debugging project, tutup Form atau stop Debug. Di ToolBox akan muncul sebuah komponen baru namanya ProgressBar_Vertikal

Menggunakan ProgressBar_Vertikal

Tambahkan komponen ProgressBar_Vertikal di ToolBox ke Form, code programnya
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar_Vertikal1.Value = 90
        ProgressBar_Vertikal2.Value = 80
        ProgressBar_Vertikal3.Value = 70
        ProgressBar_Vertikal4.Value = 50

    End Sub
End Class

Hasilnya