[VB 6.0] Crear ImageButton que cambie al hacer clic

Archivado
Buenas.
Pues veréis, estoy aquí con un amigo rompiéndonos la cabeza con esta tontería xD

Queremos hacer un ImageButton del que cambie la imagen al hacer clic, lo hemos intentado con OnClick, Click, MouseUp y MouseDown, aunque es posible que nos estemos equivocando en el código.

Ahora mismo tenemos esto:
Private Sub ImageButton_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImageButton = "C:\botoon.jpg"
End Sub

Private Sub ImageButton_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImageButton = "C:\boton.jpg"
End Sub

Pero al compilar y hacerlo no sale:
    "Error '13' en tiempo de ejecución:
    No coinciden los tipos"
Agradeceríamos que nos echaseis una mano [sonrisa]

Saludos.
No es al objeto ImgButton al que tienes que asignarle la ruta, si no a una propiedad de este. O sea, ImageButton.Imagen (El nombre de la propiedad no lo recuerdo, pero si estas usando Visual Basic, el asistente para estas cosas es bastante completo). Tu código quedaria
ImageButton.Imagen = "C:\botoon.jpg"

(No recuerdo si poniendole la ruta de esta forma funciona, pero bueno, todo es probar)
Bueno, ante todo muchas gracias por responder [oki]

Al final lo hemos hecho con LoadPicture(), y hemos conseguido el resultado que queríamos:
Private Sub ImageButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImageButton = LoadPicture("boton2.jpg")
End Sub

Ahora queremos que cuando el puntero deje de estar encima del botón (es decir, no esté en ImageButton_MouseMove) se restaure la imagen inicial (boton1.jpg). Hemos probado añadiendo lo siguente:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ImageButton = LoadPicture("boton1.jpg")
End Sub

Pero entonces muestra todo el rato el botón 1 aunque pases el puntero por encima.
¿Cómo podemos hacerlo?

Muchas gracias de nuevo.
2 respuestas
Archivado
Volver a General