Sección de códigos , trucos y ejemplos para visual basic
<Volver> - Anterior - Siguiente
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
Ahora en la barra de herramientas de Visual basic, se añadió el complemento y lo podés acceder desde el siguiente ícono:
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 :
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:
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)
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:
Buscar en Recursos vb
Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2009 - www.recursosvisualbasic.com.ar