Access - intermitencia

 
Vista:

intermitencia

Publicado por paco (127 intervenciones) el 04/09/2007 00:08:36
Hola.

Estoy intentando que el fondo de un campo me haga intermitencia, con este código.

Private Sub Form_Timer()


cantfactura.BackColor = vbYellow
cantfactura.ForeColor = vbBlue

If cantfactura.BackColor = vbYellow Then
cantfactura.ForeColor = vbBlue
Else
cantfactura.BackColor = vbYellow

End If

End Sub

El intervalo de cronometro, lo tengo a 200, y no me funciona aunque cambie este valor.

Por favor si alguien me puede decir donde me equivoco, se lo agradeceria...

Un saludo... y gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:intermitencia

Publicado por felix (183 intervenciones) el 04/09/2007 01:35:30
pon a 1000
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:intermitencia

Publicado por Enrique (1299 intervenciones) el 04/09/2007 16:54:52
No lo estás haciendo correctamente. Prueba de esta sencilla forma. Aunque tambien se podría hacer sin usar la variable Static, esta simplifica algo el código. El número del TimerInterval en lo único que influye es en la rapidez del parpadeo :

Private Sub Form_Load()
TimerInterval = 200
End Sub

Private Sub Form_Timer()
Static i As Integer
If i Then
cantfactura.BackColor = vbBlue
Else
cantfactura.BackColor = vbYellow
End If
i = Not i
End Sub

Saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar