Buenas a todos, antes de todo, gracias de antemano  ,

Bueno, iré directo al grano:


Tengo una imágen (Image1), quiero saber qué código poner para que cuando el ratón pase por encima de esa imágen la Image1 pase a ser otra (Image2), pero que cuando el ratón deje de estar encima de la Image2 pues se cambie de nuevo a la Image 1.

Un ejemplo es, los botones cerrar, minimizar y maximizar de una ventana del navegador por ejemplo, cuando pones el ratoón por encima cambia de imágen.


He leído muchísimo sobre relaciones de base de datos (SQL) con Visual Basic. Pero aún así no llegué a nada  . 

Pues lo que querría hacer es lo siguiente: Tengo un Form (Form1), en ese form hay dos textbox, un commandbutton, un label y un Image. Pus quiero hacer que al pulsar en ese Commandbutton (command1) se revise en una base de datos SQL (por ejemplo una que tengo que se llama blabla_db1) el usuario y contraseña introducidos, y ponga en el Label (label1) si el usuario/ contraseña fue aceptada o fueron erróneas y, finalmente, si fueron aceptadas el usuario/ contraseña, que la Image1 pase de Enabled = False a Enabled = True.

Ya sé, ya sé. Es difícil, busqué en el foro y en todos lados, encontré cosillas sobre relaciones de bases de datos SQL con VB pero la verdad, me sirvieron de poco  .

Bueno, eso es todo, muchas gracias de antemano  .

Disculpa mi ignorancia, pero no encuentro la propiedad MouseMove... Uso el VB 6.

Y, ¿Este código dónde iría, en un timer? :

Image1.Picture=LoadImage(path1 or path2)
 

Y respecto a las Bd´s, es cuestión de práctica, es verdad  , pero es que llevo 1 mes intentándolo y aún no lo conseguí, por eso a ver si me podríais hechar una mano  .

Gracias  .

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = LoadImage(App.Path & "\cerrar.gif" Or App.Path & "\cerrariluminado.gif")
End Sub
 

Ese es el código que he puesto (ya creé la carpeta con images y todo eso... ahí no está el error.

Al iniciar el programa y pasar el cursor por encima de la Imagen 2 me da un error: "Sub or fuction not defined" o algo así... Y el error me lo marca en: LoadImage.

¿Qué hay que declarar alguna función o algo?.

Haha, ya no me aparece el error ese, pero me aparece otro  .

Run-Time Error '13':
Type mismatch

Y el código es éste:

Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image2.Picture = LoadPicture(App.Path & "\images\cerrar.gif" Or App.Path & "\images\cerrariluminado.gif")
End Sub
 

Y como ya dije, todo el project está guardado en una carpeta y dentro de esa carpeta hay otra que se llama "images" que dentro de esa es donde se encuentran las imágenes .GIF.

Unicamente puse ese código de ejemplo, como demostración de lo que se podía hacer, solo fue un pseudo-vb ^^.

Un saludo