Eventos MouseMove y Change con el objeto Image.

Asignatura: Tecnología e Informática.
Formación en Valor: Sentido de Pertenencia.
Núcleo Integrador: Eventos MouseMove y Change con el objeto Image.
Objetivo: Programar el movimiento del mouse.

Evento MouseMove: Ocurre cuando se mueve el Mouse y se programa los resultados que se desean obtener. 

Evento Change: Ocurre cuando el objeto cambia.

Objeto a utilizar:

Objeto Image, debe cambiarle la propiedad Stretch al valor TRUE.

Objeto Label.

TALLER:

Diseñe el siguiente formulario

Utilice tres Label: Label1, Label2 y Label3.

La imagen no se muestra en el objeto Image, solo aparece cuando se escribe el siguiente código y se ejecuta el programa.

Debe descargar las tres imágenes en la carpeta documentos de su usuario y darle el siguiente nombre:

Carro.jpg

Avion.jpg

Barco.jpg

Copie el siguiente código:

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture()

End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture(App.Path + "\Barco.jpg")

End Sub

Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture(App.Path + "\Avion.jpg")

End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

  Image1.Picture = LoadPicture(App.Path + "\Carro.jpg")

End Sub

Guarde el proyecto y el formulario en la misma carpeta que guardo las imagenes.

Ejecute el programa F5.

Taller

Teniendo en cuenta el ejemplo anterior desarrolle un programa que explique un tema utilizando imágenes.