• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

_Rest_

[VB6] Duvida

6 mensagens neste tópico

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?

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros 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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros 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.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros 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

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora