Program Tambahan Visual Basic Bagian 5

Program Tambahan Visual Basic Bagian 5 : Loading

Kali ini kita akan belajar cara membuat Loading.

1. Buat sebuah form baru.
2. Masukan objek objek berikut ini :

NAME	CAPTION	TOOL
Label1	LOADING…..	Label
Timer1	-	Timer
ProgressBar1		ProgressBar

3. Keterangan :
- Ubahlah interval dari Timer1 menjadi 100.
- Cara memunculkan ProgressBar pada ToolBox:

• Klik kanan pada ToolBox lalu pilih Components.
• Beri tanda checklist pada MICROSOFT WINDOWS COMMON CONTROL 6.0 (SP6).
• kemudian tekan APPLY atau OK.

4. Listing Program :

Private Sub Form_Activate()
Tengah
End Sub
Private Sub Timer1_Timer()
a = ProgressBar1.Value
If ProgressBar1.Value < 100 Then
ProgressBar1.Value = a + 10
Else
Unload Me
End If
End Sub
Public Sub Tengah()
Me.Left = (Screen.Width – Me.Width) / 2
Me.Top = (Screen.Height – Me.Height) / 2
End Sub

 Hasil syntax yang kita buat