• Domingo 22 de Diciembre de 2024, 04:02

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

   

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Re: Boton Parpadeante Con Toolbar E Imagelist
« en: Jueves 8 de Julio de 2004, 23:27 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 202
    • Ver Perfil
Re: Boton Parpadeante Con Toolbar E Imagelist
« Respuesta #1 en: Jueves 8 de Julio de 2004, 23:59 »
0
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
  1. Private Sub Timer1_Timer()
  2.     If Toolbar1.Buttons(11).Image = 7 Then
  3.         Toolbar1.Buttons(11).Image = 4
  4.     Else
  5.         Toolbar1.Buttons(11).Image = 7
  6.     End If
  7. End Sub
  8.  

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.
La luz que sólo se ilumina a sí misma, es oscuridad.

   

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
Re: Boton Parpadeante Con Toolbar E Imagelist
« Respuesta #2 en: Viernes 9 de Julio de 2004, 19:35 »
0
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

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Boton Parpadeante Con Toolbar E Imagelist
« Respuesta #3 en: Domingo 25 de Noviembre de 2007, 14:58 »
0
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
  1. Private Sub Timer1_Timer()
  2.     If Toolbar1.Buttons(11).Image = 7 Then
  3.         Toolbar1.Buttons(11).Image = 4
  4.     Else
  5.         Toolbar1.Buttons(11).Image = 7
  6.     End If
  7. End Sub
  8.  

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

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Boton Parpadeante Con Toolbar E Imagelist
« Respuesta #4 en: Domingo 25 de Noviembre de 2007, 15:57 »
0
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.-