[2005] Playing Sounds

[christianity_9]

I really don't know what to do. I've taken a stab at it, I want to play the sound from Resources

Dim media As New System.Media.SoundPlayer
        media = My.Resources.Beethoven_s_Symphony_No__9__Scherzo_
        media.Play()

I just need a simple bit of code. Thanks

[christianity_9]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
 
        My.Computer.Audio.Play(My.Resources.Beethoven_s_Symphony_No__9__Scherzo_, AudioPlayMode.Background)
 
    End Sub

That didn't work either. InvalidOperationException error..

[jmcilhinney]

The SoundPlayer class and the My.Computer.Audio.Play method are for sounds in WAV format only, as the documentation states. I'm guessing that your sound resource is a midi, mp3, wma or something else. If that's the case you can use a media player component, e.g. Windows Media Player (with or without a UI), or you can get closer to the machine itself and use MCI, either directly or using a prebaked class, e.g. the Multimedia class available from the Mentalis.org link in my signature.

[Half]

You can also use (the) DirectX (SDK) to play things other than WAVs. I used it for a primitive Gho'uld style flanging voice effect (you know, the Stargate snakes)

Dim MySound1 As New Microsoft.DirectX.AudioVideoPlayback.Audio("c:\test5.mp3")
    Dim MySound2 As New Microsoft.DirectX.AudioVideoPlayback.Audio("c:\test5.mp3")
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        MySound1.Play()
 
        If CInt(TextBox1.Text) = 0 Then
            Exit Sub
        End If
 
        System.Threading.Thread.Sleep(TextBox1.Text)
        MySound2.Play()
 
    End Sub
 
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        MySound1.Stop()
        MySound2.Stop()
 
    End Sub