Ir para o conteúdo
_Rest_

[VB6] Duvida

Mensagens Recomendadas

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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
_Rest_    2
_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

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
Tiago Salgado    2
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.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
_Rest_    2
_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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade