Icono animado en la barra de tareas

ICONO ANIMADO EN LA BARRA DE TAREAS

Para poner un icono animado en la barra de tareas, he utilizado el control active x "SYSTRAY" que sirve para poner un icono fijo. Lo primero que he hecho es insertar en el formulario dos controles "Image" y a la propiedad picture les he puesto los dibujos que quería mostrar en el icono , en este caso una bombilla que se enciende y se apaga, dando al image1.picture la bombilla que se apaga y al image2.picture la bombilla que se enciende. las propiedades que hay que modificar en estos dos controles son: stretch =true y visible= false. (Yo he usado dos controles image pero puedes usar los que quieras). Por supuesto que nos hace falta el control "Systray" que en "la web del programador" lo puedes encontrar. Dándole a la propiedad Intray de este control el valor true se coloca un icono en la barra de tareas. Sabiendo esto insertamos dos controles Timer (yo he intentado hacerlo con uno solo pero no me ha salido si a alguien le sale ya sabéis) uno para controlar el control image1 y el otro para controlar el control image2. A los controles Timer le dais el tiempo que queráis.

"código para los controles timer:

Private Sub Timer1_Timer()
Set icono.TrayIcon = Image1.Picture
icono.InTray = True
Timer1.Enabled = False: Timer2.Enabled = True
End Sub

Private Sub Timer2_Timer()
Set icono.TrayIcon = Image2.Picture
icono.InTray = True
Timer2.Enabled = False: Timer1.Enabled = True
End Sub

Veis que fácil es. Espero que os guste si tenéis modificaciones interesantes o dudas:

Pulsa aquí para descargar los archivos.

[email protected]