Eventos MouseMove y Change con el objeto Image.

V.J.E

Asignatura: Tecnología e Informática.

Formación en Valor: Servicio.

Núcleo Integrador: Eventos MouseMove y Change con el objeto Image.

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

Exploración Cognitiva:

¿Que utilidad tiene programar el Mouse?

Taller:
Diseña el siguiente formulario:

Debes adicionar los siguientes Objetos:
Image

Label

Descarga la imagen e incorpórala  al formulario.

Cambiar las propiedades del objeto Image:

PictureSizeMode = 1 – fmPictureSizeModeStretch

Esta propiedad ajusta la imagen al tamaño asignado.

Cambiar las propiedades del objeto Label:

BackStyle = 0 – fmBackStyleTransparent

Esta propiedad coloca transparente el Label

Escucha la explicación para poder utilizar los objetos y luego copia este código:

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

  Label2 = ""

  Label1 = ""

End Sub

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

  Label2 = "Bus"

  Label1 = "Terrestre"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Moto"

  Label1 = "Terrestre"

End Sub

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

  Label2 = "Elicortero"

  Label1 = "Aereo"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Carro"

  Label1 = "Terrestre"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Avion"

  Label1 = "Aereo"

  Label9 = "Explicar el tema"

End Sub

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

  Label2 = "Barco"

  Label1 = "Acuatico"

  Label9 = "Explicar el tema"

End Sub

Private Sub UserForm_Activate()

    With ActiveWorkbook   

      Image1.Picture = LoadPicture(.Path + "\medios-transporte.jpg")   

    End With

End Sub