Autor Tema: Re: Boton Parpadeante Con Toolbar E Imagelist (Leído 1683 veces)

« **en:** Jueves 8 de Julio de 2004, 23:27 »

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 · « **Respuesta #1 en:** Jueves 8 de Julio de 2004, 23:59 »

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 If
End 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 If
End 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.

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.-