Calling flash in VB 6.0 [Resolved]

[iori85z]

Hi, I have a application done using VB6.0. I want to ask 1 things. When I double click to open the application, can it first open a Flash (.swf) file b4 opening the application. Does the codings need to be done in the application itself or externally?

[Deepak Sakpal]

vb comes with flash ocx. why don't u that to play .swf files.

what u r trying to do ? i mean, r u trying to show splash screens ? or want to play .swf files externally.

If u want to play .swf files externally then it requires compatible flash player installed (you can download its new version from macromedia).

[iori85z]

What I have now is that I already use macromedia flash to create a flash file (start.swf). What I wan to do now is that when I double-click to start my application, the flash screen will run finish and close b4 the application (GUI)really starts. This is something like a flash introduction screen, which many other ppl are doing. Its like when u first insert the macromedia studio mx cd to install, it will first start a flash screen b4 showing u the options to install.

[kleinma]

you can do this pretty easily.

First off Deepak, I am sure you probably said this in error, but the flash shockwave ocx comes with the flash player, not with VB itself.

iori85z, if you go to the components list in VB6 look under Shockwave and you should find the control there. Just stick one on a form and you can have the flash play there as your "splash screen" before the application loads. It is a simple control to use and you dont need to specify many details for it to work other than the location of the swf file and for it to play or loop, etc... very simple

[iori85z]

Oh ok, I will go try it out. I update u guys again if it works or if there is any other problems, thanks alot.

[Deepak Sakpal]

sure . I am here.

[iori85z]

I managed to find the Shockwave Flash component under the components tab. I have put it on a form. But I don't know how to code it(call it) , can anyone please help? The directory which my flash is stored in is C:\Flash.


Private Sub ShockwaveFlash1_OnReadyStateChange(newState As Long)

End Sub

[Deepak Sakpal]

Just drop a flash control on form, don't change any property.

Private Sub Form_Load()
    ShockwaveFlash1.ScaleMode = 3 'play movie in actual size 
    ShockwaveFlash1.Movie = "C:\Flash\YourFileName.swf"
End Sub

movie will be played automatically.

[iori85z]

OK, I managed to get it to run, however, after finish playing, the flash did not close automatically, how should i code it to make it close automatically? And 1 more thing is that when the flash loads, the main page which is suppose to load onli after the flash finish playing and exits loads up at the same time as the flash, why is that so? I've already put it to hide but it still show.

[Deepak Sakpal]

can u post ur project here.

[iori85z]

Code For The OK button, after the username and ID has been confirm, it will start the splash screen.

Public Sub cmdOK_Click()

strName = txtUsername.Text
strPass = txtPassword.Text

dbIP.Open "dsn=MydB"

Set rsName = dbIP.Execute("Select Username From MyLogin")
Set rsPwd = dbIP.Execute("Select Password From MyLogin")

If rsName.Fields("Username").Value = strName And rsPwd.Fields("Password").Value = strPass Then
Me.Hide
MySplash.Show

Else
On Error GoTo ErrorHandler

ErrorHandler:
MsgBox ("Invalid Username or Password!")

End If

dbIP.Close

End Sub


Code for the Main:

Private Sub Form_Load()

'List Groups
With cboGroups
.List(0) = "Group 01"
.List(1) = "Group 02"
.List(2) = "Group 03"
.List(3) = "Group 04"
.List(4) = "Group 05"
.List(5) = "Group 06"
.Text = "Groups"


End With

End Sub


Code for the splash screen:

Private Sub Form_Load()

ShockwaveFlash1.ScaleMode = 3 'play movie in actual size
ShockwaveFlash1.Movie = "C:\Ivan2.swf"

Me.Hide
Main.Show

End Sub


So after the login has been confirm, the splash screen is suppose to play, and after the splash screen has been played, then the splash screen will close. Thereafter, the Main page will show. Tats the flow.

[Deepak Sakpal]

Code for the splash screen:
 
Private Sub Form_Load()
    Me.Show
    ShockwaveFlash1.ScaleMode = 3 'play movie in actual size
    ShockwaveFlash1.Movie = "C:\Ivan2.swf"
    Main.Show
End Sub

[iori85z]

Nope, tat dosen't work, the splash screen still pop up the same time as the main screen. I think I forgot to post 1 code, I'll edit my previous code.

[Deepak Sakpal]

drop a timer control on form where u have the flash control

Private Sub Form_Load()
    Timer1.Interval = 100
    ShockwaveFlash1.Loop = False
    ShockwaveFlash1.ScaleMode = 3
    ShockwaveFlash1.Movie = "C:\Inetpub\wwwroot\DoctorDetails\images\animated_text.swf"
End Sub
 
Private Sub Timer1_Timer()
    If ShockwaveFlash1.Playing = False Then
        Unload Me
        Main.Show
    End If
End Sub

[iori85z]

OK, I will try the timer now.

[iori85z]

Oh ok, looks like I've to add a timer to make it works, haha, thanks for ur help.

[pnish]

Or as an alternative without using a timer control:

Private Sub Form_Load()
    
    Show
    DoEvents
    
    ShockwaveFlash1.Loop = False
    ShockwaveFlash1.ScaleMode = 3
    ShockwaveFlash1.Movie = "C:\YourMovie.swf"
    Do While ShockwaveFlash1.Playing
        DoEvents
    Loop
    
    frmMain.Show    ' Display your main form
    Unload Me       ' Unload the splash form
    
End Sub