[VB6] Incremento di una ProgressBar tramite Timer

[jack11]

Salve ragazzi.
Premettendo che non capisco veramente dov'è l'errore, e premettendo che ci sto lavorando da due ore o più, vi posto il codice così, magari, potreste darmi un aiutino

Private Sub Form_Load() 
ProgressBar1.Max = 15 ProgressBar1.Min = 0 
ProgressBar1.Value = 0
End Sub

Private Sub Gioca_Click() 
Timer1.Enabled = True 
End Sub

Private Sub Timer1_Timer() 'Imposto il timer 'Se il valore della progress bar è minore di 15, allore aggiungi 1 
If ProgressBar1.Value < 15 Then 
ProgressBar1.Value = ProgressBar1.Value + 1
Else
'Altrimenti vuol dire che sono passati 15 cicli e quindi è terminato il tempo 
Timer1.Enabled = False MsgBox "Tempo scaduto! :(" End If End Sub

Thank!

Ahahaha, mi sono dimenticato di dirvi qual'è il problema: non succede assolutamente nulla.

[gibra]

Scusa, non sei capace di formattare il codice COME SI DEVE ?
Non è così che si scrive su un forum.

Provvedi, per cortesia.

[morocarlo]

a quanto è l'intervallo del timer ?

[cepu96]

I timer si avviano col metodo Start, non con Enabled

Quindi dovra scrivere

Timer1.Start()

invece di:

Timer1.Enabled = True

Ciao

[jack11]

Il timer è impostato a 15.
Ho provato con:

timer1.startup()

ma il debugger mi restituisce un errore dicendomi che è previsto un =

[Grumpy]

Originariamente inviato da cepu96
I timer si avviano col metodo Start, non con Enabled

Sicuro?

@jack11
morocarlo ti ha fatto una domanda precisa: Qual'è il valore della proprietà Interval del Timer ?

[cepu96]

L'unica allora è che dipenda dall'interval del Timer

Prova a guardare qui -> http://programmazione.html.it/guide/...ntrollo-timer/

[jack11]

Si che son sicuro.
Il timer è impostato con interval 1
Adesso sembra funzionare ma si blocca al primo ciclo. Ovvero quando vado dal menu "avvia" esegue solo la prima parte di caricamento poi si blocca.

[EnSa]

Dove ti si blocca???

a che ti serve un timer con Interval = 1ms??? 1secondo corrisponde a 1000 millisecondi ...

[cepu96]

in effetti 1ms è eccessiva come cosa, ma è strano che non parta neppure.
Forse esaurisce troppo in fretta il timeslice e non riesce neanche a eseguire il metodo?
Prova a mettere l'interval a 100ms