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
