Imagen en un CommandButton

[5v5]

buen dia.... Tengo un problema....de novato...

Como puedo color una imagen a a mis botones...ya lo intente, en propiedades del button, picture...pero no me pone la imagen...como le puedo hacer, es mediante codigo?????.....

gracias por su atencion, y espero me puedan ayudar

[Slasher-K]

Directamente no se le puede agregar una imagen, lo que se puede hacer es crear un CommandButton personalizado. Dando vueltas por la web encontré un control y su código para que veas un buen ejemplo y puedas modificarlo.

http://www.freevbcode.com/ShowCode.Asp?ID=1871

Saludos.

[goodbye]

Lo que te faltaba es cambiar en tiempo de diseño otra propiedad del commandbutton llamada Style a la su valor 1 - graphical; entonces ahora si puedes cargarle por la propiedad picture al button cualquier imagen, la que mas te guste.

[Slasher-K]

El problema con la propiedad Picture es que no se puede ajustar. Muchas veces es necesario cargar las imágenes en tiempo de ejecución y es necesario ajustarlas al tamaño actual del control.

En el caso que no quieras crear un control de usuario (aunque si creas tus propios botones podés hacer que se comporten como quieras) hay otro método mediante código para cambiar la imagen del botón y ajustarla. Existe el mensaje BM_SETIMAGE que se le puede enviar a los botones de comandos mediante la función SendMessage.

Lo bueno de este método es que antes de usar SendMessage hay que cargar la imagen con la función LoadImage y esta función te permite hacerle distintas modificaciones a la imagen, ya sea ponerla en escala de grises, cambiarle el tamaño, etc.

Saludos.

[goodbye]

5v5: espero que este ejemplo te inspire..
Deposita un commandbutton y un control ImageList en tu ventana. Recuerda haberle establecido previamente al button su propiedad Style a 1 - graphical en tiempo de diseño. Luego cargale unas imagenes al control ImageList (para este ejemplo he usado 3), entonces pegale este

Código [Seleccionar] Expandir

Private Sub Command1_Click()

    Static Imagen As Integer
   
    Imagen = Imagen + 1
   
    If Imagen > 3 Then Imagen = 1
    Caption = "Imagen " & Imagen
   
    Command1.Picture = ImageList1.ListImages(Imagen).Picture
   
End Sub

[5v5]

Buen dia....

Mil gracias por ayudarme....enverdad les agradezco....ya pude hacer que mi button tenga una imagen.......bueno hasta pronto y nuevamente ....................


G R A C I A S .........................