Progress Circle V. Basic 2008

Tips kali ini bagaimana membuat Progress Circle bentuk lain selain Bar. Tampilan visualnya seperti gambar di atas.

Ikuti langkah-langkah di bawah ini. ToolBox yang digunakan sebagai berikut:

Rancang T00lBox di atas seperti gambar di bawah ini:

Setelah langkah di atas selesai, ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.

Listing program sebagai berikut:

Public Class Form1

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim Idx As Integer = 1
Dim warna As Color
warna = Color.GreenYellow
Dim mypen As New Pen(warna, 10)
REM membuat counter bilangan dan timer progress shape
If Idx >= Me.Width Then
Idx = 1
End If
Idx += 1
Label1.Text += 2
Dim x As Integer
REM menempatkan titik awal pergerakan shape
x = -90 + Idx
REM tampilkan shape circle
PictureBox1.CreateGraphics.DrawArc(mypen, 14, 14, 190, 190, x, CInt(Label1.Text))
REM ulang kembali progress setelah satu lingkaran penuh
If Label1.Text = 450 Then
PictureBox1.Refresh()
x = -90 + Idx
Label1.Text = 0
End If
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
PictureBox1.BackColor = Color.Black
Me.BackColor = Color.Black
End Sub
End Class

Setelah mengetikkan Listing Source Program di atas tekan F5. Tampilan Visualnya seperti gambar paling atas.

Artikel yang berkaitan mengenai ProgressBar Klik Tutorial ini ==> di sini

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