USANDO SETTIMER

IRENKO 27/08/2009 11:33:12
#321114
Option Explicit

Declare Function SetTimer Lib [Ô]user32[Ô] (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib [Ô]user32[Ô] (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Sub Sleep Lib [Ô]kernel32[Ô] (ByVal dwMilliseconds As Long)


Public Sub TimerProcMsg(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, ByVal dwTime As Long)
On Error Resume Next

If FrmAlteraLM.LbInformacao.Visible = False Then
FrmAlteraLM.LbInformacao.Visible = True
Else
FrmAlteraLM.LbInformacao.Visible = False
End If
End Sub

Bom, a pergunta é a seguinte:

O timer via API acima esta funcionado perfeitamente, mas como adapta-lo para quando o Label piscar 05 vezes ele para de piscar?

A chamada no Form eu faço assim:
SetTimer Me.hwnd, 0, 850, AddressOf TimerProcMsg

e na saida assim:
KillTimer Me.hwnd, 0
WEBMASTER 27/08/2009 12:13:41
#321123
uai...
contador = contador + 1
if contado >= 5 then
KillTimer Me.hwnd, 0
end if
IRENKO 27/08/2009 13:56:15
#321130
Bom eu tentei simular o que esta acontencendo neste exemplo.

No Load do form, espere piscar 05 vezes, depois aperte o botão Cancelar, depois aperte o botão Reiniciar, pronto, não funciona mais. Deveria acionar o SetTimer novamente! LVFIOROT, já tinha feito com o Timer, porem acontece a mesma coisa, não sei por que!?
IRENKO 27/08/2009 15:48:27
#321140
Agora deu tudo certo! Vou seguir sua sugestão, vou usar o Timer do Vb mesmo. Grato.
Tópico encerrado , respostas não são mais permitidas
Voltar