Proyecto de Ingles - Agregar Audio

Asignatura: Tecnología e Informática.

Formación en Valor: Esperanza.

Núcleo Integrado: Taller - Eventos MouseMove y Click con el objeto Image.

Objetivo: Desarrollo de taller con los eventos MoveMouse y Change.

NOTA1: El Texto que comience con Comillas sencillas ( ' ), es un comentario, en el Blog los he colocado en rojo, en el programa tienen un color verde.

NOTA2: Las imágenes y archivos de sonido, deben estar guardados en la misma carpeta para que se puedan ver o sonar, según sea el caso.

'Este código se escribe al comienzo
Option Explicit
'Función Api mciExecute para reproducir los archivos de música
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

'Este evento ocurre al mover el Mouse por la ventana o Formulario (Form)
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Image1.Picture = LoadPicture(App.Path + "\Animales.jpg")
  Label3 = ""
  Label4 = ""
End Sub

'Al dar un clic sobre la Image2 (Mustra una corneta) reproduce el sonido
Private Sub Image2_Click()
  Image1.Picture = LoadPicture(App.Path + "\caballo.jpg")
  Label3 = "Se Escribe Horse"
  Label4 = "Se Pronuncia Hourse"
  
  mciExecute "play " + "Caballo.mp3"
End Sub

'Al dar un clic sobre la Image3 (Mustra una corneta) reproduce el sonido
Private Sub Image3_Click()
  mciExecute "play " + "Conejo.mp3"
  Image1.Picture = LoadPicture(App.Path + "\Conejo.jpg")
  Label3 = "Se Escribe Rabbit"
  Label4 = "Se Pronuncia Rabets"
End Sub

'Este Evento ocurre al Mover el Mouse por el Label1 (Dice en la propiedad Caption Caballo)
'Cambia a Color Rojo y Muestra la imagen de un Caballo
'Da una explicación en el Label3 y Label4
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label1.ForeColor = &HFF&    'Rojo
  Label2.ForeColor = &HFF0000 'Azul

  Image1.Picture = LoadPicture(App.Path + "\caballo.jpg")
  Label3 = "Se Escribe Horse"
  Label4 = "Se Pronuncia Hourse"
End Sub

'Este Evento ocurre al Mover el Mouse por el Label2 (Dice en la propiedad Caption Conejo)
'Cambia a Color Rojo y Muestra la imagen de un Conejo
'Da una explicación en el Label3 y Label4
Private Sub Label2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  Label2.ForeColor = &HFF&     'Rojo
  Label1.ForeColor = &HFF0000  'Azul

  Image1.Picture = LoadPicture(App.Path + "\Conejo.jpg")
  Label3 = "Se Escribe Rabbit"
  Label4 = "Se Pronuncia Rabets"
End Sub