Taller Visor de Imagenes

Este programa nos permite buscar y mostrar imágenes en el Disco Duro, CD o USB.

Siga los siguientes pasos:

1. Entre a Visual Basic 6.0

2. Diseño de Pantalla:

Utilice los siguientes objetos:

Al Objeto Image debe cambiar la propiedad Stretch a True.

3. Debe escribir el siguiente código (Puede copiar y pegar) en la ventana de código:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Private Sub File1_Click()

Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)

End Sub

Private Sub Form_Load()

File1.Pattern = "*.jpg; *.bmp; *.wmf; *.gif"

End Sub

4. Para mostrar resultados presione F5 y comience a utilizar el programa.

Taller para 11° - Programación con Visual Basic

Crear un Programa que permita mostrar una imagen y un texto o explicación, con solo cruzar el puntero de Mouse sobre el un objeto

Tenga en cuenta lo siguiente:

Cree una SubCarpeta llamada Taller1 dentro de la carpeta 11(A-B) y busque, grabe imágenes.

Un Carro, un Avión y un Barco.

Adicione al formulario un objeto de tipo IMAGE

Cambie la propiedad Stretch a True

Esto permite que la imagen se muestre del tamaño del recuadro IMAGE.

Adicione un objeto de tipo LABEL, y cambie la propiedad Caption por Carro.

Adicione otro un objeto de tipo LABEL, y cambie la propiedad Caption por Avión.

Adicione otro un objeto de tipo LABEL, y cambie la propiedad Caption por Barco.

Debe grabar el proyecto y el formulario en el mismo sitio

de las imágenes.

Adicione otro LABEL, para mostrar la explicación cuando se pase el puntero del Mouse por el LABEL.

La apariencia del formulario debe ser similar al formulario que se muestra en la gráfica.

Debe escribir el siguiente código:

Tenga en cuenta que los objetos estan en la lista superior izquierda y los eventos del objeto estan en la lista superior derecha:

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

Image1.Picture = LoadPicture()

Label5 = ""

End Sub

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

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

Label5 = "Explicar medio de Transporte Carro"

End Sub

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

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

Label5 = "Explicar medio de Transporte Avión"

End Sub

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

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

Label5 = "Explicar medio de Transporte Barco"

End Sub

Para ver el resultado presione F5 o clic en el botón Iniciar.

Explicación breve de algunos conceptos:

Image1.Picture: Muestra la imagen.

LoadPicture: Carga la imagen o la muestra en el objeto IMAGE.

App.Path: Devuelve o muestra la ruta o carpeta donde esta grabado el proyecto, por eso es importante grabar el proyecto y el formulario en el mismo sitio de las imágenes.