[VB] Usare Oggetto "Timer" per un filmato.......

[race2]

Con VB.NET:

Da un "Form1" apro un altro, chiamato "Form2" per fare vedere un immagine gif animata, al termine della gif animata vorrei chiudere il "Form2" e rimanere nel "Form1" ,

ho pensato di utilizare un Oggetto "Timer()" oppure ditemi voi......

se potete passarmi un codice.....

[race2]

nessuno mi sa dire come si usa il Timer???

[xegallo]

Originariamente inviato da race2
[b]nessuno mi sa dire come si usa il Timer???

non ne sono sicuro perche io parlo per vb6
se sai precisamente quanto dura la gif puoi fare cosi
form_ load
timer1.interval = millisec di durata della gif
end sub

timer1_timer
me.unload
form1.show
end sub

[race2]

Originariamente inviato da xegallo
[b]
timer1_timer
me.unload
form1.show

mi commenti queste righe, non le ho capite.........

timer1_timer cosa sta a significere???

me.unload cosa signofica, chiusura del form??? in vb.net = Me.Close

perche' riapri Form1 ??? form1.show

[race2]

Scusami, mica sai aiutarmi in questo, ho un lavoro fermo...

http://forum.hwupgrade.it/showthread...hreadid=275579

[race2]

Ho fatto questo nel Foro1, il principale e non in quello che apro per l'introduzione e poi chiudo,

ma non funziona, mi si chiude immediatamente:

'apertura Form Introduzione
Dim Form As New Introduzione()
Form.Show()
Timer1.Interval = 50000
Form.Close()

[xegallo]

Private Sub Form_Load()
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
MsgBox "ciao"
End Sub



al load del form imposti la proprieta interval dell'ogg timer1
dopo 5 sec (in questo caso si attiva l'evento timer dell'ogg timer1

[DanieleC88]

Originariamente inviato da race2
[b]Ho fatto questo nel Foro1, il principale e non in quello che apro per l'introduzione e poi chiudo,

ma non funziona, mi si chiude immediatamente:

'apertura Form Introduzione
Dim Form As New Introduzione()
Form.Show()
Timer1.Interval = 50000
Form.Close()

Facendo così hai solo caricato la finestra, hai inserito l'intervallo di tempo fra le chiamate Timer (ogni quanti millisecondi sarà eseguito il codice scritto nella Sub privata Timer1_Timer()) e chiuso la finestra. Inutile.

Ma con cosa riproduci i files GIF? Se é un controllo Ocx potrebbe essere tutto molto più facile...

[DanieleC88]

Originariamente inviato da race2
[b]Ho fatto questo nel Foro1, il principale e non in quello che apro per l'introduzione e poi chiudo,

ma non funziona, mi si chiude immediatamente:

'apertura Form Introduzione
Dim Form As New Introduzione()
Form.Show()
Timer1.Interval = 50000
Form.Close()

Scritto così, il codice Timer verrà eseguito ogni 50 secondi, e non 5. Devi scrivere "5000". E poi basta fare così:

Private Sub Form_Load()
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub

Prova e fammi sapere.

[race2]

Originariamente inviato da DanieleC88
[b]

Facendo così hai solo caricato la finestra, hai inserito l'intervallo di tempo fra le chiamate Timer (ogni quanti millisecondi sarà eseguito il codice scritto nella Sub privata Timer1_Timer()) e chiuso la finestra. Inutile.

Ma con cosa riproduci i files GIF? Se é un controllo Ocx potrebbe essere tutto molto più facile...

riproduco un file.swf di flash con lo strumento browser

[race2]

Originariamente inviato da DanieleC88
[b]

Scritto così, il codice Timer verrà eseguito ogni 50 secondi, e non 5. Devi scrivere "5000". E poi basta fare così:

Private Sub Form_Load()
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub

Prova e fammi sapere.

scusami ma io ho VB.NET e quindi non sono sicuro di tradurre correttamente, dato che non mi funziona:

Private Sub Form_Load()
    Timer1.Interval = 5000
End Sub

intendi dire che devo inserire "Timer1.Interval = 5000" nell'evento Load del Form che deve stare aperto per 5 secondi e non nel form principale dell'applicazione???

Private Sub Timer1_Timer()
    Unload Me
End Sub

intendi dire che devo fare doppio click nel timer per creare la sua Sub e poi inserire al suo interno la chiusura del form da chiudere ??? se e' cosi su .NET viene questo........

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Me.Close()
    End Sub

[race2]

Aiuto!!!