Programación General > Visual Basic 6.0 e inferiores

 Re: Boton Parpadeante Con Toolbar E Imagelist

(1/1)

   :
Saludos,

En caso de usar un control Toolbar enlazado a dos controles ImageList para mostrar un Icono y luego otro al acercar el Mouse al Toolbar...

¿Es posible hacer que el Toolbar cambie de Icono del ImageList1 al Icono del ImageList2 con ayuda de un control Timer? (sin la espera de que el mouse se acerque al Toolbar)

El proposito de esto, es mostrar un Botón que tenga como función visual el Parpadear cambiando de Icono,  ambos Iconos a cambiar son iguales, pero se difieren del Color (son de distinto color).

Asunto:
Botón "Promoción" que además de ejecutar cierta tarea, visualmente el icono cambia de azul a amarillo al haber una Promoción.  De no haberla, no lo hace.

Gracias por sus atenciones con respecto al tema.

Juanolo:
Observación:
Yo pondría los íconos en el mismo imagelist. No hacerlo así, lleva a cambiar la propiedad imagelist del toolbar... una jalea!
Hecha la observación, el código sería:


--- Código: Text ---Private Sub Timer1_Timer()    If Toolbar1.Buttons(11).Image = 7 Then        Toolbar1.Buttons(11).Image = 4    Else        Toolbar1.Buttons(11).Image = 7    End IfEnd Sub 
donde 11 es el indice del boton el el toolbar. 7 y 4 son los índices en el imagelist en que están los íconos a intercambiar.

   :
Gracias Juanolo... funciona muy bien el código.

Ya había encontrado una forma probando, con ensaño y error, pero esta involucraba mas de un Timer y la secuenca de tiempo no seguía un patrón de tiempo estable.

El código que has indicado en el post funciona mucho mejor.

Muchas gracias Juanolo.

EldoMartin:

--- Cita de: "Juanolo" --- Observación:
Yo pondría los íconos en el mismo imagelist. No hacerlo así, lleva a cambiar la propiedad imagelist del toolbar... una jalea!
Hecha la observación, el código sería:


--- Código: Text ---Private Sub Timer1_Timer()    If Toolbar1.Buttons(11).Image = 7 Then        Toolbar1.Buttons(11).Image = 4    Else        Toolbar1.Buttons(11).Image = 7    End IfEnd Sub 
donde 11 es el indice del boton el el toolbar. 7 y 4 son los índices en el imagelist en que están los íconos a intercambiar.
--- Fin de la cita ---
Hola Juanolo, mi problema es que quiero incluir imagenes en mis buttonsmenus aparte del texto que a la izquierda tenga un icono. sabes si esto se puede hacer

EldoMartin:
Mi pregunta es si se puede colocar iconos, en un ButtonMenus, style 5, que al abrir el combo de buttons, cada text tenga su imágen a la izquierda.-

Navegación

[0] Índice de Mensajes