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