SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por:     en Jueves 8 de Julio de 2004, 23:27

Título: Re: Boton Parpadeante Con Toolbar E Imagelist
Publicado por:     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.
Título: Re: Boton Parpadeante Con Toolbar E Imagelist
Publicado por: Juanolo 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
  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.
Título: Re: Boton Parpadeante Con Toolbar E Imagelist
Publicado por:     en Viernes 9 de Julio de 2004, 19:35
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.
Título: Re: Boton Parpadeante Con Toolbar E Imagelist
Publicado por: EldoMartin en Domingo 25 de Noviembre de 2007, 14:58
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
Título: Re: Boton Parpadeante Con Toolbar E Imagelist
Publicado por: EldoMartin en Domingo 25 de Noviembre de 2007, 15:57
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.-