Coding ProgressBar1 di VB NET 2008
Atur
propertinya seperti berikut
No.
|
Objek
|
Properti
|
Nilai Properti
|
1.
|
Solution
Explorer Form1
|
Name
Name
StartPosition
|
Latihan 7 Frlatihan7 CenterScreen
|
2.
3.
|
Time1
ProgressBar1
|
Text
Text
|
-
-
|
4
|
Label1
Label2
Label3
Label4
|
Text
Text
Text
Text
|
TOKO PALUGADA KAWALI
Mohon Menunggu Proses Encripsi Sedang Dilakukan....
Copyright (@) 2017 CBI production
|
Tambahkan
kode program tiap Event, sebagai
berikut
Public Class
Form1
Private Sub Form1_Load(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Timer1.Tick
If
ProgressBar1.Value < 100 Then
ProgressBar1.Value += 2
ElseIf
ProgressBar1.Value = 100 Then
Timer1.Stop()
MessageBox.Show("Sudah Selesai Melakukan Encripsi dan Silahkan Masuk
Ke Aplikasi Zodiak", "Pemberitahuan",
MessageBoxButtons.OK, MessageBoxIcon.Information)
Form2.Show()
End If
End Sub
End Class