Minggu, 27 September 2009

Menjalankan Flash via Visual Basic 6

1. Buat satu project
2. Pilih Standard EXE

3. Klik kanan pada tab toolbox (yang sebelah kiri dari editor) atau tekan tombol ctrl+t, pilih Components.
4. Pada tab Controls pilih Shockwave Flash dengan cara menandai kotak
disamping kirinya, kemudian klik OK. Maka kontrol shockwave flash
akan ditambahkan pada tab tersebut

5. klik kontrol Shockwave Flash yang baru ditambahkan dan diletakkan
pada form yang diinginkan.

6. pada bagian kode, tambahkan baris berikut:
Private Sub Form_Load()
Dim strPath As String
'baris ini tergantung dari letak file flashnya
strPath = "D:\Projects\Flash\test\tutorial.swf"
ShockwaveFlash1.Movie = strPath
ShockwaveFlash1.Play
End Sub

7. run program