Dasar 22. Form 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
    

Tampilan Form >>

 DEMIKIANLAH TUTORIALNYA SEMOGA BERMANFAAT..... JANGAN LUPA LIKE POST INI>>>>> MAKASIH.....

Print this page

Posted in: Visual Basic 6.0