Manejo de Unidades de disco, carpetas y archivos.

Asignatura: Tecnología e Informática.
Formación en Valor: Esperanza.
Núcleo Integrador: Manejo de Unidades de disco, carpetas y archivos.
Objetivo: Programar la exploración de unidades y carpetas.


Manejo de Unidades de disco, carpetas y archivos.

Visual Basic 6.0 le permite con una serie de objetos explorar las unidades de disco y mostrar los archivos que contengan las unidades de disco o carpetas.


Objetos a Utilizar:

 DriveListBox: Muestra una lista de las unidades de disco del computador como son: Discos duros, USB, CD, etc.


 DirListBox: Permite explorar las carpetas, mostrando las subcarpetas que estas contengan.


 FileListBox: Muestra los archivos contenidos en una unidad de disco o carpeta.


 Image: Muestra imágenes contenidas en el disco.


Taller:

Realice el siguiente diseño de formulario con los objetos anteriores:
Nota: al objeto Image debe cambiarle la propiedad Stretch a TRUE, para que se ajuste al tamaño del objeto cuando se muestra la imagen.

NOTA: LAS IMÁGENES NO APARECE AL DISEÑAR, SOLO CUANDO SE EJECUTE EL PROGRAMA Y SELECCIONE UN ARCHIVO DE IMAGEN.

Debe copiar el siguiente código:

'La comilla sencilla al frente del código indica que es un comentario.

'Muestra los archivos al cambiar la carpeta.

Private Sub Dir1_Change()

  File1.Path = Dir1.Path

End Sub

'Al cambiar la unidad de disco muestra que carpetas contiene.

Private Sub Drive1_Change()

  Dir1.Path = Drive1.Drive

End Sub

'Muestra la imagen al dar un clic sobre el archivo de imagen.

Private Sub File1_Click()

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

End Sub

'Al momento de mostrar el formulario le indica al objeto FileListBox 

' que muestre solo los tipos de archivos jpg, bmp y gif 

Private Sub Form_Load()

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

End Sub

Ejecute el programa presionando la tecla F5 y explore el disco en busca de imágenes.

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