Hola Ana.
No entendí muy bien lo que necesitas, haber si te sirve esto.
Los contenedores de imagenes en VB son Picture e Image, ambos puedes usarlos como contenedores de imagenes.
Para sonido podrias probar un ocx o enlazar con media player (utlizalo como oculto) para videos o animaciones lo mismo, ahora si son animaciones en flash ya deberias usar el componente shockwave flash.
ejemplitos:
Para las imagenes deberias usar un par de componentes:
- Microsoft Common Dialog Control 6.0
- Microsoft Microsoft Multimedia Control 6.0
- Shockwave Flash
Para agregar los componentes solo debes hacer clic sobre la barra de controles y seleccionar el primer item (componentes).
Como unir todos estos elementos para que funcionen, programar es como cocinar, tienes los ingredientes y a mezclar, lo mas importante imaginar mucho y probar diferentes usos.
tienes un formulario en blanco, y pones los siguientes controles:
Drivelistbox
Dirlistbox
Filelistbox
MMcontrol
Image
Debes definir que tipo de imagenes soportará tu aplicación y que tipo de formato de video soportará tu aplicación, recordar que los controles de VB son debiles en lo que es multimedia, por eso tus imagenes podrán ser siempre del tipo estandar, JPG, GIF, BMP, PNG, por tanto tu filtro en Filelistbox debe ser orientado a ese tipo de archivos, lo mismo para los archivos de audio o video que quieras representar, mp3, mp2, wav, wma, avi, mpg.
Comenzamos:
Private Sub Form_Load()
File1.Pattern = "*.jpg;*.avi;*.mpg;*.mp3"
mmcontrol1.visible=false
image1.stretch= true
End Sub
ahi se definen el tipo de archivos que se podrán ver en tu aplicación, puedes pones mas tipos según lo que quieras obtener como resultados.
El control para multimedia lo dejamos invisible por estetica ;)
El control image lo dejamos con esa propiedad para que la imagen se adapte al tamaño del control.
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
con estas dos funciones, actualizas los directorios de carpetas y de archivos cada vez que estos cambien su valor.
Private Sub File1_Click()
ext = Right(File1.FileName, 3)
miarch = Dir1.Path & "\" & File1.FileName
If ext = "mp3" Or ext = "avi" Or ext = "mpg" Then
' cargamos el resultado del clic en mediaplayer
MMControl1.FileName = miarch
MMControl1.Command = "Open"
MMControl1.Command = "Play"
End If
If ext = "jpg" Then
' cargamos el resultado del clic en el contenedor de imagenes
Image1.Picture = LoadPicture(miarch)
End If
End Sub
Esta es la parte linda, al hacer clic en la lista de archivo verifica que tipo es, video o imagen, y activa el control que le corresponda, ahora para agregar mas cosas solo usa la imaginación y prueba.
Espero que te sirva.
Saludos.
