Due eventi

[sanny82]

ciao a tutti...
Ho un problema.Vorrei sapere, come posso fare in modo che quando finisce un evento ne inizi un altro (nello stesso form)?

Mi spiego:
ho un file video, lo lancio e voglio che quando è finito mi parta un flash nella stessa posizione...
come posso fare??
Grazie mille

[xegallo]

Originariamente inviato da sanny82
ciao a tutti...
Ho un problema.Vorrei sapere, come posso fare in modo che quando finisce un evento ne inizi un altro (nello stesso form)?

Mi spiego:
ho un file video, lo lancio e voglio che quando è finito mi parta un flash nella stessa posizione...
come posso fare??
Grazie mille

sempre chiarissimo

[sanny82]

non c'è tanto da dire...
Ho un file video e un flash.

Faccio partire il file video, nel momento in cui finisce , vorrei far partire un flash....

Vorrei sapere cosa mettere tra il lancio del file video e quello in flash per ritardare la partenza del flash in modo che non si sovrappongono...

[sanny82]

Spero di essesre stato abbastanza chiaro...

In poche parole mi servirebbe qualcosa che faccia partire il flash al termine del filmato...

filmato --> termine del filmato-->=partenza del flash

nessuno sa cosa posso metterci?
ho prvato con

Sleep (62000)

ma ritarda tutta la partenza non solo del flash...

Aiuto!

Grazie mille

[xegallo]

come lanci il file video?

[sanny82]

il file video lo chiamo con:
All'interno di un modulo ho inserito il lancio del file video.

Call DSControl.Run

Ma non è quello il problema...
Il problema viene dopo, vorrei dire al VB che quando il file video è finito lanci automaticamente il flash

Se vuoi ti posto il codice...

Grazie tanto

[sanny82]

:quote:

[xegallo]

ti ho chiesto come lo lanci è inutile che uppi se non me lo dici
quel DSControl.Run cosa fa una shell una AVIFileOpen o non lo sai

[sanny82]

Utilizzo un file video .MPG

Nel modulo ho inserito questo codice che utilizza l'ActiveX ActiveMovie control type library. Utillizzo directX 9.0.

Global DSAudio As IBasicAudio
Global DSVideo As IBasicVideo
Global DSWindow As IVideoWindow
Global DSControl As IMediaControl
Global DSPos As IMediaPosition

Global Const WS_VISIBLE = &H10000000



Sub DS_OpenFile(Filename As String, _
                       rectTop As Integer, _
                       rectLeft As Integer, _
                       rectWidth As Integer, _
                       rectHeight As Integer, _
                       FhWnd As Long, Optional fullScreen As Boolean = False)
    Filename = "C:\Documents and Settings\Beppe\beppe\VBProve\INTRO.MPG"

    Form1.ShockwaveFlash1.Visible = False
        
    On Error Resume Next
    
    'Puliamo prima di caricare un nuovo file
    Call DS_termina
    
    Set DSControl = New FilgraphManager 'crea il controllo
    Call DSControl.RenderFile(Filename) 'carica il file
    'crea il controllo del volume
    Set DSAudio = DSControl
    DSAudio.Volume = 0 'regola il volume come normale
    DSAudio.Balance = 0 'centra l'audio
    
    Set DSWindow = DSControl 'crea l'oggetto che contiene il video(se presente
    DSWindow.WindowStyle = &H10000000 'finestra visibile
    DSWindow.Top = rectTop 'dimensioni del controllo
    DSWindow.Left = rectLeft
    DSWindow.Width = rectWidth
    DSWindow.Height = rectHeight
    DSWindow.Owner = FhWnd
    DSWindow.FullScreenMode = fullScreen
    
    Set DSPos = DSControl 'crea il controllo della posizione
    DSPos.Rate = 1
    
    DSPos.CurrentPosition = 0
    Call DS_GetLen
    
    Call DSControl.Run
    
End Sub

il codice è questo...

Nel form invece al load del form:

DS_OpenFile cd.Filename, 0, 0, Picture1.Width, Picture1.Height, Picture1.hWnd, False

[xegallo]

dx9? perchè non usi l'oggetto video di directx
e testi la proprietà state

do while video.state = running
   do events
loop

'poi va avanti