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

Listas e Imágenes

Debes adicionar los siguientes Objetos:
Image

Label

ListBox - Cuadro de Lista

Cree el siguiente diseño:

Adicione un objeto Image, Objeto Label y Una Lista.
y copie el siguiente código:
Private Sub ListBox1_Click()
With ActiveWorkbook
  Select Case ListBox1.ListIndex
    Case 0
      Image1.Picture = LoadPicture(.Path + "\Gato.jpg")
      Label1 = "Explico sobre el Gato"
    Case 1
      Image1.Picture = LoadPicture(.Path + "\tigres.jpg")
      Label1 = "Explico sobre el Tigres"
    Case 2
      Image1.Picture = LoadPicture(.Path + "\Leon.jpg")
      Label1 = "Explico sobre el Leon"
    Case 3
      Image1.Picture = LoadPicture(.Path + "\vaca.jpg")
      Label1 = "Explico sobre la Vaca"
    Case 4
      Image1.Picture = LoadPicture(.Path + "\Burro.jpg")
      Label1 = "Explico sobre el Burro"
  End Select
End With
End Sub

Private Sub UserForm_Initialize()
  ListBox1.AddItem "Gato"
  ListBox1.AddItem "Tigres"
  ListBox1.AddItem "Leon"
  ListBox1.AddItem "Vaca"
  ListBox1.AddItem "Burro"
End Sub

NOTA:

Deben estar los archivos de imágenes guardados en la misma carpeta del archivo de Excel.