arek smk b2s

ya...... ini merupakan salah satu cara yang saya dapat dari kawan seperjuangan pada tempoe duloe taun 2004 lalu untuk menyelesaikan tugas pbk yang dapat C itu hiks...hiks.... :(

Cara menjalankan file flash di VB dan VB.NET
VB:
1. Buat satu project
2. Pilih Standard EXE
3. Klik kanan pada tab toolbox (yang sebelah kiri dari editor),
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
=============================================

VB.Net
1. Buat satu project, terserah dengan nama apa
2. klik kanan pada toolbox, pilih pada add/remove items...
3. pilih tab COM Components
4. pilih shockwave flash object dengan cara memberi tanda kotak
disebelah kiri
5. klik ok, maka komponen tersebut akan ditambahkan pada toolbox
6. tambahkan komponen shockwave flash kedalam form
7. pada bagian kode, tambahkan baris berikut:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal _
e As System.EventArgs) Handles MyBase.Load
Dim strPath As String
'baris ini tergantung dari letak file flashnya
strPath = "D:\Projects\Flash\test\tutorial.swf"
AxShockwaveFlash1.Movie = strPath
AxShockwaveFlash1.Play()
End Sub
8. run program

that's it.....

selamat menikmati hiks....hiks.... mudah-mudahan berguna bagi para kawan-kawan sekalian, maupun cara nya ketinggalan jaman