Ejemplos usando el Api de windows para Visual basic

206 - Reproducir sonidos en visual basic con el api

Ejemplo de la función api PlaySound para reproducir un archivo de sonido

Esta función , que antes se llamaba sndPlaySound permite reproducir un sonido de tipo wav de una forma simple

Las constantes de este código de ejemplo son del Api guide

A la función PlaySound se le debe pasar en el primer parámetro el path del archivo wav a reproducir. El último parámetro es una serie de flags para algunas opciones

Controles para el ejemplo

Colocar un textbox
Dos commandbutton
Un CommonDialog como muestra el gráfico

vista del formulario en visual basic para reproducir ficheros de sonido de tipo wav

Código fuente en el formulario

' Constantes para los flags ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' look for application specific association Private Const SND_APPLICATION = &H80 ' name is a WIN.INI [sounds] entry Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry identifier Private Const SND_ALIAS_ID = &H110000 ' play asynchronously Private Const SND_ASYNC = &H1 ' play synchronously (default) Private Const SND_SYNC = &H0 ' name is a file name Private Const SND_FILENAME = &H20000 ' loop the sound until next sndPlaySound Private Const SND_LOOP = &H8 ' lpszSoundName points to a memory file Private Const SND_MEMORY = &H4 ' silence not default, if sound not found Private Const SND_NODEFAULT = &H2 ' don't stop any currently playing sound Private Const SND_NOSTOP = &H10 ' don't wait if the driver is busy Private Const SND_NOWAIT = &H2000 ' purge non-static events for task Private Const SND_PURGE = &H40 ' name is a resource name or atom Private Const SND_RESOURCE = &H40004 ' Declaración del api PlaySound ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" ( _ ByVal lpszName As String, _ ByVal hModule As Long, _ ByVal dwFlags As Long) As Long Private Sub Command1_Click() With CommonDialog1 .DialogTitle = " Seleccionar archivo de audio" ' Filtra los Archivos con extensión wav .Filter = "Archivos wav|*.wav" ' Abre el diálogo .ShowOpen If .FileName = vbNullString Then Exit Sub Else Text1.Text = .FileName End If End With End Sub ' Reproduce el archivo de sonido wav Sub Reproducir_WAV(Archivo As String, Flags As Long) Dim ret As Long ' Le pasa el path y los flags al api ret = PlaySound(Archivo, ByVal 0&, Flags) End Sub ' Botón para reproducir el sonido Private Sub Command2_Click() Call Reproducir_WAV(Text1.Text, SND_FILENAME Or SND_ASYNC Or SND_NODEFAULT) End Sub Private Sub Form_Load() Command1.Caption = "Abrir archivo " Command2.Caption = "Reproducir" Me.Caption = "PlaySound" End Sub

Nota: pasándo los flags ( SND_FILENAME Or SND_ASYNC como está puesto en el ejemplo ) si el archivo se está reproduciendo, y volvemos a ejecutar otro, el actual se corta y se reproduce el indicado. Si queremos que no se corte el que se está reproduciendo, podemos pasar la constante SND_NOSTOP con el operador Or. También otra opción es la de poder hacer un Loop con el flag SND_LOOP

También podés descargar este proyecto de ejemplo realizado por Helmuth Campos, que es un formulario que muestra como reproducir Wavs, hacer un loop, detenerlo, medianete el api SndPlaySound

Form :

formulario para reproducir el wav con sndplaysound

Descargar proyecto

Enlaces relacionados

Buscar en Recursos vb