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>