Objeto Image y Evento MoveMouse.

Asignatura: Tecnología e Informática.

Formación en valor: Prudencia.

Núcleo Integrador:   Objeto Image y Evento MoveMouse.

Indicador de desempeño: Programa el movimiento del Mouse.

E.C.P

¿Qué utilidad tiene programar el Mouse?

Taller

Diseña el siguiente formulario

Tenga en cuenta:

Las imagenes deben estar en la misma carpeta donde esta el archivo de Excel.

Copie el siguiente código siguiente:

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

Respuesta = ""

Image2.Picture = LoadPicture()

End Sub

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

  With ActiveWorkbook

      Image2.Picture = LoadPicture(.Path + "\Ojo.jpg")

      Respuesta = "Explica el Ojo"

  End With

End Sub

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

  With ActiveWorkbook

      Image2.Picture = LoadPicture(.Path + "\oreja.jpg")

      Respuesta = "Explica la Oreja"

  End With

End Sub