Jump to content
Sign in to follow this  
_Rest_

[VB6] Duvida

Recommended Posts

_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?

Share this post


Link to post
Share on other sites
_Rest_

_Rest_ lê a thread Como fazer um post com qualidade :P

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

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
_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

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.