[VB6] Duvida

[_Rest_]

Tou a fazer uma aplicação em k no inicio tem uma intro em flash. O objectivo era passar a intro e dps kuando esta akabasse passava ao proximo form.

Private Sub Form_Load()

Intro.Play
Form1.Hide
Form2.Show

End Sub

tentei assim mx n deu porque ele executa logo tudo. A unika solução k eu pensei é usar um timer mx isso é um bokado primitivo, não ha outra solução?

[vbmaster]

Faz um Sleep x

[deathseeker25]

_Rest_ lê a thread Como fazer um post com qualidade 🙂

[_Rest_]

_Rest_ lê a thread Como fazer um post com qualidade 😛

Desculpa... Agora tenho mais cuidado.

Faz um Sleep x

Um sleep como?

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Form_Load()

Intro.Play
Sleep 3000
Form1.Hide
Form2.Show

End Sub

Assim?... Não da porque é no form_load e ele executa logo tudo

[Tiago Salgado]

Experimenta algo do genero.

Private Sub Form_Load() 
Intro.Play
End Sub

Private Sub Timer1_Timer()
If ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames Then MsgBox "..."
End Sub

Não garanto que dê, nunca usei este tipo de componente.

[_Rest_]

Experimenta algo do genero.

Private Sub Form_Load() 
Intro.Play
End Sub

Private Sub Timer1_Timer()
If ShockwaveFlash1.FrameNum = ShockwaveFlash1.TotalFrames Then MsgBox "..."
End Sub

Não garanto que dê, nunca usei este tipo de componente.

Não deu, mas já descobri como fazer

Private Sub Form_Load()

Intro.Movie = App.Path & "/Movie.swf"
Intro.LoadMovie 1, App.Path & "/BMS - Movie.swf"
Intro.Loop = False
Intro.Menu = False

End Sub

Private Sub Timer1_Timer()

If Intro.IsPlaying = False Then
    Form2.Show
    Unload Form1
    Timer1.Enabled = False
End If

End Sub