Coba Sintak ini.. (Pasti berhasil)Private Sub Command1_Click() Timer1.Enabled = False If LoadGif(Text1, Image1) Then FrameCount = 0 Timer1.Interval = CLng(Image1(0).Tag) Timer1.Enabled = True End If End Sub
Private Sub Form_Load() Text1.Text = App.Path & IIf(Right(App.Path, 1) = "\", "", "\") & "intro.gif" 'masukan file gif Timer1.Enabled = False frmSplash.Show 'Command1_Click End Sub Private Sub Timer1_Timer() If FrameCount < TotalFrames Then Image1(FrameCount).Visible = False FrameCount = FrameCount + 1 Image1(FrameCount).Visible = True Timer1.Interval = CLng(Image1(FrameCount).Tag) Else FrameCount = 0 For i = 1 To Image1.Count - 1 Image1(i).Visible = False MsgBox "Udah liat khan? flashnya jalan", vbOKOnly, "Perhatikan" End Next i Image1(FrameCount).Visible = False Timer1.Interval = CLng(Image1(FrameCount).Tag) Unload Me End If End Sub --- On Tue, 5/12/09, Frangky <[email protected]> wrote: From: Frangky <[email protected]> Subject: RE: [Programmer-VB] Cara Attach File Flash di VB To: [email protected] Date: Tuesday, May 12, 2009, 9:20 PM Masukkan Component Shockwave Flash. Saya biasa menggunakannya. Lalu di bagian Movie Properties Masukkan Path File tersebut. Misalnya: D:\namafile. swf Gampang Kan. -----Original Message----- From: Programmer-VB@ yahoogroups. com [mailto:Programmer-VB@ yahoogroups. com] On Behalf Of mr-BIG Sent: 13 Mei 2009 9:19 To: Programmer Indonesia; Programmer VB Junior; Warung VB Subject: [Programmer- VB] Cara Attach File Flash di VB dear All, maaf nih kelamaan bertapa, Saya mau tanya dong, saya punya file flash dan saya pengen menampilkannya di dalam form sebagai tampilan yg live. apa saja yang harus saya siapkan, dan bagaimana scripnya. tks b4, pm ------------ --------- --------- ------ Wahana Programmer Groups Links No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.5.325 / Virus Database: 270.12.23/2106 - Release Date: 05/09/09 06:54:00
