Assalamu’alaikum
Wr.Wb
Nantslight –
Kemarin dapat game flash yang baguus namannya parampa, pasti udah tahu parampa
kan.. nah mau jalanin tu game ternyata di pc aku belum ada swf playernya/flash
player. Mau pasang swf player harus nginstal dulu.. Akhirnya timbullah niat
untuk membuat sendiri tu software.. Dengan bantuan mbah google akhirnya
bisa deh..
Ok langsung aja
ya..
Pertama buka dulu
IDE Visual Basic 6.0..
Kemudian
Tambahkan 1 CommandButton, 1 Common Dialog, 1 ShockWaveFlash dan 1 module..
Cara nambahin
CommonDialog sebagai berikut..
-
Klik
Ctrl + T
-
Centang
di bagian Microsoft Common Dialog Control 6.0
-
Aply
-
OK
Cara nambahin
ShockWaveFlash sebagai berikut..
-
Klik
Ctrl + T
-
Beri
tanda centang di bagian Shockwave Flash..
-
Aply
-
Ok
Kemudian Atur
Tata letaknya sesuai selera anda.. Kalau selera saya seperti berikut..
Kemudian Atur
Propertinya..
Nama
|
Properties
|
|
Command1
|
Name
Caption
|
bukak
&Open..
|
CommondDialog
|
Name
|
comondlg
|
ShockWaveFlash
|
Name
|
plesh
|
Kemudian buat
Form, masukkan kode berikut..
------------------------------------------------------------------------------
Private
Sub Form_Resize()
On
Error Resume Next
fullsize
Me, plesh
End
Sub
Private
Sub Form_Load()
bukak_Click
End
Sub
Private
Sub op_Click()
comondlg.Filter
= "Flash File (.swf)|*.swf"
comondlg.ShowOpen
plesh.Movie
= comondlg.FileName
Me.Caption
= comondlg.FileTitle
End
Sub
------------------------------------------------------------------------------
Kemudian buat Module-nya masukkan kode berikut..
------------------------------------------------------------------------------
Public Function fullsize(frm As Object, object As Object)
object.Top = 0
object.Left = 0
object.Width = frm.Width
object.Height = frm.Height
End Function
------------------------------------------------------------------------------
Kemudian jalnkan atau compile menjadi exe, dan kemudian buka file swf yang
anda punya..Yang kepingin sourcenya langsung aja ke sini.. Sekian dulu ya..
Selamat Mencoba..
Semoga Bermanfaat..
Wassalamu’alaikum Wr.Wb
Tags:
Visual Basic
Leave a comment