Menampilkan Flash Visual Basic 2008

Tips kali ini, saya akan mencoba menampilkan animasi flash di atas pada form Visual Basic 2008.

Hasil tampilannya seperti gambar di bawah ini.

Toolbox yang saya gunakan perhatikan tabel di bawah ini.

ToolBox	Properties
1 UserForm	Name: UserForm1 Text: V. Hutabalian's Blog "Flash VB 2008"
1 Shockwave Flash Object	Name:OBJFlash
2 Button	Name: Button1 & Button 2 Text Button1: Start Text Button2: Exit

Desain Form dari table Toolbox di atas perhatikan gambar di bawah ini.



Setelah selesai mendesai Form dengan mengatur semua object propertis Toolbox. Ketikkan source program di bawah ini dengan mengarahkan kursor pada design Form, Klik kanan lalu pilih View Code.

Source Program:

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++'
' Menampilkan Flash Visual Basic 2008 '
'======================================================================='
' '
' Berbagi ilmu Sensasi Kepuasan Tersendiri '
' By: V. Hutabalian '
' Publish to V. Hutabalian's Blog 31 Mei 2010 '
'+++++++++++++++++++++++========================++++++++++++++++++++++++'
Public Class Form1

Inherits System.Windows.Forms.Form


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
With OBJFlash
.Stop()
.Movie = Application.StartupPath & "\City.swf"
End With
End Sub

Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
OBJFlash.Dispose()
Application.Exit()


End Sub
End Class

Setelah Anda mengetikkan listing source program diatas tekan F5, maka hasil tampilan visualnya seperti gambar di bawah ini.

Kemudian tekan tombol Start, hasilnya seperti gambar di bawah ini:

Selamat mencoba Guys! Nantikan Tips Aplikasi Cantik Lainnya by Verynandus Hutabalian.