Menambahkan Teks pada ProgressBar – Kode VB Net

Feryanto Sunarli, A.Md Kontrol, Source Code, Visual Basic .Net,

Agar Kontrol ProgressBar lebih bersifat informatif, baiknya ditambahkan teks didalamnya yang menampilkan nilainya. Untuk menambahkan teks di Kontrol ProgressBar (ProgressBar1), caraya tuliskan kode-kode berikut :
Tulis kode ini di event (Declarations) dari Form

Sub SetProgressLabel()
Dim s As String
s = ((ProgressBar1.Value * 100) \ ProgressBar1.Maximum) & " %"

Dim f As New Font("Arial", 12, FontStyle.Regular)

Dim sf As New StringFormat
sf.Alignment = StringAlignment.Center
sf.LineAlignment = StringAlignment.Center

ProgressBar1.Refresh()

ProgressBar1.CreateGraphics.DrawString(s, f, Brushes.Black, ProgressBar1.DisplayRectangle, sf)
End Sub

Karena Kontrol ProgressBar  tidak mempunyai event Paint, maka harus menggunakan bantuan Kontrol Panel. Caranya tambahkan Kontrol Panel baru (Panel1), lalu tempatkan ProgressBar1 didalamnya yang bisa dilakukan dengan cara drag-drop atau dengan cara cut-paste. Nantinya ukuran Kontrol Progressbar1 akan disamakan dengan Kontrol Panel1.
Kemudian tulis kode ini di event Panel1_Paint :

ProgressBar1.Dock = DockStyle.Fill
SetProgressLabel()
Dan tulis kode ini di event Panel1_Resize :
SetProgressLabel()

Sekarang Anda tinggal menambahkan  satu kode (untuk merubah teks) setiap kali nilainya ingin diubah. Misalkan ingin mengubah nilai ProgressBar1 menjadi 70, maka kodenya seperti ini :

'mengubah nilai
ProgressBar1.Value = 70
'mengubah teks
SetProgressLabel()

Tinggalkan komentar