Utilizzo timer

domenica 20 maggio 2007 - 19.50

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

bluland Profilo | Guru

1.149 messaggi | Data Invio: dom 20 mag 2007 - 19:50

Salve,

vorrei che all'apertura della mia applicazione il primo form fosse un form con una label tipo
"caricamento in corso...." prima di aprire l'applicazione

quindi avevo pensato ti mettere un timer nell evento page load in questo modo:

Private Sub Start_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 10000

Timer1.Enabled = True

form2.show()

Me.Close()
End Sub

ma il timer non funziona cosa ho sbagliato?

saluti
--------------------
Vincenzo PESANTE

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: dom 20 mag 2007 - 21:52

Il codice che hai scritto inizializza l'intervallo temporale del Timer e abilita il controllo.

Affinchè questo funzioni è necessario eseguire il metodo START del Timer:

Private Sub Start_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 10000
Timer1.Enabled = True

' Avvia il contatore del controllo Timer

Timer1.Start

End Sub

Sarà poi l'evento TICK del controllo Timer a gestire il tempo di visualizzazione del Form:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Time.Tick

' Ad ogni Tick del Timer aggiunge 1 al contatore

IntProgr += 1

' Al raggiungimento del tempo stabilito blocca il timer
' visualizza il form successivo e chiude il form corrente

If IntProgr=100 then
Dim FrmForm2 as new Form2
me.Timer1.stop
me.close
FrmForm2.show
End if

End Sub

Spero di essere stato sufficientemente chiaro, se hai bisogno di aiuto contattami.

Ciao

bluland Profilo | Guru

1.149 messaggi | Data Invio: lun 21 mag 2007 - 17:20

ok ho fatto in questo modo

Private Sub Start_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Timer1.Start()

End Sub

Private Shared Sub OnTimedEvent(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick

Dim cont As Integer
cont += 1

Dim time As New Timer

If cont = 10000 Then

me. <----------------NON MI DA NESSUNA VOCE COME SE L'INTELISENSE NON FUZIONASSE

End If

End Sub

cosa c'è che non va?
--------------------
Vincenzo PESANTE

SSUPERPIPPO Profilo | Guru

1.095 messaggi | Data Invio: lun 21 mag 2007 - 20:52

QUI E' OK!

>Private Sub Start_Load(ByVal sender As System.Object, ByVal e
>As System.EventArgs) Handles MyBase.Load
> Me.Timer1.Start()
>
> End Sub

QUI ON CAPISCO PERCHE' TU CREI UN OGGETTO Time dalla classe Timer??!?

> Dim time As New Timer

DEVI INSERIRE IL CONTROLLO TIMER PRESENTE TRA I TOOL DI WINDOWSFORM
ALLA FORM DI CARICAMENTO.
A QUESTO PUNTO TI APPARIRA' UN TIMER NELLA PARTE BASSA DELLA FINESTRA
FUORI DALLA FORM.
SE CI FAI DOPPIO CLICK SOPRA ENTRI NELLA DEFINIZIONE DEL CODICE PER
L'EVENTO TICK DEL TIMER.
QUI SCRIVI IL CODICE CHE TI HO PASSATO E VEDRAI CHE FUNZIONA!

FAMMI SAPERE, CIAO

ALESSANDRO

bluland Profilo | Guru

1.149 messaggi | Data Invio: mar 22 mag 2007 - 17:58

si ecco funziona grazie

--------------------
Vincenzo PESANTE

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !