Animasi Copy dan Delete di Visual Basic 6

Kali ini gw mau share animasi copy data. Animasi ini bisa kita gunakan ketika program sedang memproses data yang cukup besar agar user dapat mengetahuinya sampai peoses selesai. Animasi ini kurang lebihnya sama seperti program windows ketika kita sedang mengcopy file makan akan muncul animasi copy data tersebut.

Oke cekitod deh. Langsung tkp.
> Pertama download dulu animasinya di link ini :
Animasi Copy
Animasi Hapus

> Lalu tambahkan komponen dengan menekan tombol CTRL + T lalu aktifkan Microsoft Multimedia Control 6.0 (SP6). Klik APPLY dan OK

> Lalu buat form dengan nama frmCopy, design form dan masukan properti ini  :

1. Timer1 
2. Timer2
3. Timer3
4. Timer4
5. Animation1
6. Progressbarr

> Buka View Code dan masukan coding di bawah ini :

Option Explicit

Private Sub Form_Load()
frmCopy.Animation1.Open App.Path + "\filecopy.avi"
frmCopy.Animation1.Play
frmCopy.Timer2.Enabled = True
frmCopy.Timer3.Enabled = True
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set frmCopy = Nothing
End Sub

Private Sub Timer1_Timer()
On Error Resume Next
ProgressBar1.Value = ProgressBar1.Value + 1
Label1.Caption = ProgressBar1.Value

If ProgressBar.Value = 100 Then
Animation1.Close
Timer1.Enabled = False
Unload Me

Timer2.Enabled = False
End If
End Sub

Private Sub Timer2_Timer()
Timer2.Enabled = False
End Sub

Private Sub Timer3_Timer()
On Error Resume Next
ProgressBar1.Value = ProgressBar1.Value + 1
Label1.Caption = ProgressBar1.Value
If ProgressBar.Value = 100 Then
Animation1.Close
Timer1.Enabled = False
Unload Me
End If
End Sub

Private Sub Timer4_Timer()
frmCopy.Caption = "Save"
Timer4.Enabled = False
End Sub

> Setelah itu masukan code ini di setiap tombol atau action yang ingin memanggil animas tersebut

frmCopy.Show 1

 > Taraaaa, Form animasi sudah berjalan.

Untuk animasi hapus bisa menggunakan cara yang sama hanya tinggal merubah lokasi "filecopy.avi" menjadi "filedel.avi"

Note :
- Atur Properti interval menjadi 20 di semua timer
- Simpan filecopy.avi dan filedel.avi di folder yang sejajar dengan penyimpanan project yang dijalankan

Semoga Bermanfaat