Proyecto: Tutor de Ingles

Fecha: Mayo 24 de 2012.

Asignatura: Tecnología e Informática.

Formación en Valor: Amor a la Virgen María.

Núcleo Integrado: Taller - Eventos MouseMove y Change 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.

Objetos a Utilizar:

'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 + "\Frutas5.jpg")

  Label3 = ""

  Label4 = ""

End Sub

'Frame o Marcos, contienen a los objetos, al Mover el Mouse por el objeto Frame2, ocurre este Evento

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

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

  Label3 = ""

  Label4 = ""

End Sub

'Frame o Marcos, contienen a los objetos, al Mover el Mouse por el objeto Frame3, ocurre este Evento

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

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

  Label3 = ""

  Label4 = ""

End Sub

'Este Evento ocurre al Mover el Mouse por la Imagen 2 (Image2), representada por una figura de sonido.

'Hace que suene el archivo MP3 (Sonido)

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

  mciExecute "play " + "Manzana.mp3"

End Sub

'Este Evento ocurre al Mover el Mouse por la Imagen 3 (Image3), representada por una figura de sonido. 

'Hace que suene el archivo MP3 (Sonido)

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

mciExecute "play " + "Fresa.mp3"

End Sub

'Este Evento ocurre al Mover el Mouse por el Label1 (Dice en la propiedad Caption Manzana)

'Cambia a Color Rojo y Muestra la imagen de una Manzana

'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 + "\manzanas2.jpg")

  Label3 = "Se Escribe apple"

  Label4 = "Se Pronuncia Apol"

End Sub

'Este Evento ocurre al Mover el Mouse por el Label2 (Dice en la propiedad Caption Fresa)

'Cambia a Color Rojo y Muestra la imagen de una Fresa

'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 + "\Fresas.jpg")

  Label3 = "Se Escribe Strawberry"

  Label4 = "Se Pronuncia Estraubery"

End Sub