Sección de códigos , trucos y ejemplos para visual basic


271 - Reproducir Sonidos desde archivo de recursos

<Volver> - Anterior - Siguiente



 

Ejemplo que muestra una forma de reproducir sonidos previamente cargados desde archivos de recursos de tipo personalizados, y también utilizando el Api sndPlaysound.

 

El mismo consiste en crear unos controles Label como si fuesen botones, y al pasar el mouse por encima del botón-Label, reproducir un sonido x, y al quitar el puntero del mouse fuera del área del botón, reproducir otro sonido diferente

 

Pasos para crear el ejemplo:

 

 

vista de la ventana de complementos de visual basic para cargar el editor de recursos

 

Ahora en la barra de herramientas de Visual basic, se añadió el complemento y lo podés acceder desde el siguiente ícono:

 

Vista del ícono del editor de recursos de vb

 

Al ejecutar el asistente para crear el archivo de recursos ( que contendrá los dos archivos de sonido ), se abrirá la ventana del editor.

Esta tiene una serie de opciones, la que debemos usar en este caso es el botón " Recurso personalizado", haciendo click en el botón que indica la flecha como se ve en el siguiente gráfico :

 

vista de la barra de herramientas del editor de recursos

 

Al presionarlo, se abre la ventana para seleccionar los archivos, y elegimos los dos archivos de sonido. Luego la ventana se verá de la siguiente forma:

 

vista de los archivos de sonido ioncluidos en el proyecto

 

Ahora ya se puede guardar con el botón " Guardar " ubicado en el toolbar del Editor. De esta forma se creará el archivo .Res ( Guardarlo en la carpeta del proyecto)

 

Controles y código fuente del formulario

 

Ahora añadir al formulario, dos controles Label. Los mismos que formen un array de labels, es decir Label1(0) y Label1(1).

Los archivos de recursos, se cargan con el método LoadResData en el FormLoad, pasándole como parámetro el ID del archivo de sonido. Es decir en este caso se llama dos veces ya que cargamos dos archivos. El valor devuelto, se debe almacenar en un array de bytes, por ejemplo:

Dim Sonido1() As Byte
Dim Sonido2() As Byte


Sonido1 = LoadResData(101, "CUSTOM")
Sonido2 = LoadResData(102, "CUSTOM")

 

...y cada ves que queremos reproducir uno u otro sonido, se ejecuta el Api SndPlaysound, pasándole en el primero parámetro del Api dicho Array.

Por ejemplo lo siguiente reproduce el Sonido cargado en el array llamado "Sonido1"

Call sndPlaySound(Sonido1(0), SND_SYNC Or SND_MEMORY)

 

Nota: si se quiere agregar mas sonidos, por ejemplo un tercer sonido para el evento Click del botón, se debe hacer el mismo paso anterior, es decir agregar un nuevo recurso personalizado al archivo de recursos, definir un array de tipo byte, luego cargar en el array el archivo de recursos con el método LoadresData, y pasárselo al api sndPlaySound en el evento clik del botón ..en este caso

 

Código fuente en el form:

 


Recursos visual basic 6.0 - Relacionados



Buscar en Recursos vb