Jump to content

[VB6] Duvida


_Rest_
 Share

Recommended Posts

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?

Link to comment
Share on other sites

_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

Link to comment
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.

Link to comment
Share on other sites

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

Link to comment
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
 Share

×
×
  • 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.