Parar un archivo de audio en ejecución
hola muy buenas ya esto otra vez por aquí..xdd tengo esta instrucción:
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Sub PlaySound_iniciar()
Call sndPlaySound32("c:\sonidos\iniciar.wav", 1)
End Sub
esto me lo hace perfecto, pero claro dura el tiempo completo de la canción entonces yo lo que quiero hacer es que si en el momento que yo quiera interrumpir esa canción saber si se puede parar y de que forma hacerlo al pulsar un commandbutton..gracias
1 Respuesta
Prueba con lo siguiente, para iniciar la canción:
Private Declare Function mciExecute Lib "winmm.dll" (ByVal Comando As String) As Long
Sub sonar()
mciExecute "play C:\mygirl.mp3"
End Sub
Pon lo siguiente en un botón para detener la canción
Sub para()
mciExecute "Stop C:\mygirl.mp3"
End Sub
Saludos. Dante Amor
