Animasi File AVI Menggunakan Komponen Animation pada Microsoft Visual Basic 6.0

Langkah - langkahnya membuat program Animasi File AVI Menggunakan Komponen Animation pada Microsoft Visual Basic 6.0 :

1. Buka proyek Standard EXE yang baru
2. Klik menu Project => Components (Ctrl + T). Ceklis / centang “Microsoft Common Dialog Control 6.0 (SP3)” pada jendela Components kemudian klik Apply lalu klik OK

Gbr1

3. Masukkan objek Animation, CommonDialog dan 2 buah CommandButton ke dalam form seperti gambar di bawah ini :

Gbr2

4. Atur Properties masing - masing objek seperti di bawah ini :

Kontrol	Properties	Pengaturan
CommandButton1	Name         Caption	CmdOpen Open
CommandButton2	Name         Caption	CmdPlay Play
Animation1	Autoplay	False

5. Klik 2x (double click) pada CommandButton Open lalu ketik koding di bawah ini :

With Me.CommonDialog1

.Filter = "*.avi|*.avi|"

.ShowOpen

End With


6. Klik 2x (double click) pada CommandButton Play lalu ketik koding di bawah ini :

If Me.CmdPlay.Caption = "Play" Then

Me.Animation1.Open Me.CommonDialog1.FileTitle

Me.Animation1.Visible = True

Me.Animation1.Play

Me.CmdPlay.Caption = "Stop"

Else

Me.CmdPlay.Caption = "Play"

Me.Animation1.Stop

End If


7. Jalankan program dengan cara menekan tombol F5 pada keyboard atau pilih menu Run => Start

Gbr3

Download Source Code : Disini atau Disini