Duvida Timer 2

[ramon]

Porque o timer só executado depois de terminar o laco?

Existe alguma maneira de dar pausa no laco para executar o timer?

Private Sub Form_Load()
y = 1
Timer1.Interval = 4000

For a = 0 To 5

If y = 1 Then
    Timer1.Enabled = True
End If

y = 2
Next
End Sub

Private Sub Timer1_Timer()
MsgBox "agora vei para timer"
End Sub

[Graymalkin]

Porque o timer só executado depois de terminar o laco?

Existe alguma maneira de dar pausa no laco para executar o timer?

O timer *não* é executado *depois* do laço. Apenas, a execução do laço é muuuuuiiiittttooooo mais rápida do que os 4 segundos de intervalo. Por isso você tem a impressão de que é depois. Você só vai notar isso colocando um valor muito maior para o For e colocando um DoEvents ali dentro (se não o processamento fica preso).

Abraços,

Graymalkin

[ramon]

Não mesmo!

Veja este codigo tem que executar o timer em 1 segundo né

Mas só vai executar o timer depois de terminar o laco que leva em media ai 5 segundos

Private Sub Form_Load()
y = 1
Timer1.Interval = 1

For a = 0 To 90000000

If y = 1 Then
   Timer1.Enabled = True
End If

y = 2
Next
End Sub

Private Sub Timer1_Timer()
MsgBox "Aparece mensagen"
Timer1.Enabled = False
End Sub

[Graymalkin]

Não mesmo!

Veja este codigo tem que executar o timer em 1 segundo né

Mas só vai executar o timer depois de terminar o laco que leva em media ai 5 segundos

Então, leia novamente a última frase do parágrafo do meu post anterior (em especial a parte do "DoEvents").

Abraços,

Graymalkin

[ramon]

beleza vou olhar