¿Cómo interrumpir un sonido?

Question

Hola.
 If ProgressBar1.Value >= 85 Then
            Dim ruta As String
            Dim s As System.Media.SoundPlayer

            ruta = My.Application.Info.DirectoryPath
            s = New System.Media.SoundPlayer(ruta + "\alarmaemergente.wav")

            s.PlaySync()
        End If

Mi duda es, si por ejemplo, este código se ejecuta cuando supera el 85%, se esta ejecutando, como puedo poner un botón y cancelar ese sonido?

Answer 1

La declaración de la variable s, del SoundPlayer, debes hacerla fuera del bloque. Dentro del bloque solamente haces el New.

Y entonces la ejecutas asincrónicamente, s.Play().

Des esta manera, dentro del código que maneja el click de un botón, podrías llamar a s.Stop().

Fijate que el botón esté habilitado solamente cuando s no sea nothing.

La variable s debería ser declarada a nivel de la clase.

Tengo un problema, porque cuando se ejecuta el sonido, todo el software queda como "congelado" y hasta que no termine de reproducirse no puedo hacer nada dentro del Software!!