ProgressBar Shape Visual Basic 2008

Tips kali ini kita akan membuat ProgressBar pada Form dengan menggunakan Visual Basic 2008, hasilnya seperti gambar di atas. Ikuti langkah-langkah di bawah ini, ToolBox yang digunakan sebagai berikut:

Rancanglah ToolBox di atas seperti gambar di bawah ini:

Ketikkan source program di bawah ini, dengan mengarahkan kursor pada design, mengklik kanan lalu pilih View Code.

Public Class GraphProgreesBar

Inherits System.Windows.Forms.Form
Dim G As Graphics
Dim Idx As Integer = 1
Dim iPercent As Integer = 1
Dim sPercent As String = ""
Dim L As Label = New Label

Private Sub GraphProgreesBar_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TimeBar.Enabled = True
TimeBar.Interval = 100
TimeBar.Start()
REM setting pada label progress
L.Height = 50
L.Width = 75
L.TextAlign = ContentAlignment.MiddleLeft
L.Top = 100
L.Left = 1
L.BackColor = Color.Black
L.ForeColor = Color.Green
Me.BackColor = Color.Black
Me.Controls.Add(L)
End Sub

Private Sub TimeBar_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimeBar.Tick
REM setting kecepatan progress pada form
If Idx >= Me.Width Then
Idx = 1
End If
Idx += 1
iPercent = CInt(Idx * 100 / Me.Width)
sPercent = iPercent & "% Progress"
REM setting pada graphic progress bar
G = Me.CreateGraphics
G.FillEllipse(Brushes.YellowGreen, Idx, 80, 15, 15)
L.Left = Idx + 1
L.Text = sPercent
End Sub

End Class

Setelah anda mengetik listing dari source program diatas tekan F5, maka akan tampil gambar di atas.

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian