Resumen Archivos de sonido WAV

    Más sencillo, esto es una colaboracion de Jordi Fosch en las páginas de
"el Guille" que hace lo que tu quieres.

Tocar música usando el API de Windows de Jordi Fosch

Este es un ejemplo de cómo hacer que "suene" un archivo WAV o MID.
Es código está modificado, pero la rutina e idea fué enviada por este
artista de los gráficos y seguramente de otras muchas cosas que es Jordi,
el que me está "llenando" mi disco duro con diseños para ponerlos en mis
páginas... gracias Jordi.

'meto todo lo necesario en el módulo (las APIS)
Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" _
    (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

'Si lo que quieres es hacer sonar un archivo .MID
'debes declarar la siguiente función de la API:
Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String)
As Long


Sub MidiWav(A As String)
    Dim vr As Long

    'Asegurarnos que está en minúsculas para que no falle la comparación
    A = LCase$(A)

    If Len(A) Then
    If InStr(A, ".wav") Then
     vr = sndPlaySound(ByVal A, 1)
    ElseIf InStr(A, ".mid") Then
     vr = mciExecute("Play " & A)
    End If
    End If

End Sub

    Me parece una colaboracion muy interesante por lo que la reproduzco aqui,
con el permiso del propietario de la pagina, claro.

    Un saludo.

PD: Ojo estas son las declaraciones para la API 32 bit, no sirven para 16 bit.

At 11:41 PM 13/8/1997 +-900, you wrote:
>Si añades a tu proyecto el control MCI puedes poner esto:
>
> mmcontrol1.Command = "Close"
> mmcontrol1.FileName = "hola.wav"
> mmcontrol1.Command = "Open"
> mmcontrol1.Command = "Play"
>
>Yo lo uso en VB3, creo que tambien funciona en VB4. A ver si es esto lo
que buscabas.
>
>Hasta luego!
>
Jose Ramon

Tipo Bits/Clave Fecha Identificador
pub 1024/BA4F1B15 1997/03/09 Jose Ramon <jlap@zaz.servicom.es>



Resumen Resumen

Visual Basic Página de Visual Basic

Página principal Página principal

www.jrubi.com