#VISUAL BASIC AUDIO CODE#

If mciSendStringW('play ' & Snds.Item(SoundName), Nothing, 0, IntPtr.Zero) 0 Then Return False MciSendStringW('seek ' & Snds.Item(SoundName) & ' to start', Nothing, 0, IntPtr.Zero) If Not Snds.ContainsKey(SoundName) Then Return False Public Function Play(ByVal SoundName As String) As Boolean Snds.Add(SoundName, 'Snd_' & sndcnt.ToString) If mciSendStringW('open ' & Chr(34) & SndFilePath & Chr(34) & ' alias ' & 'Snd_' & sndcnt.ToString, Nothing, 0, IntPtr.Zero) 0 Then Return False If SoundName.Trim = '' Or Not IO.File.Exists(SndFilePath) Then Return False Public Function AddSound(ByVal SoundName As String, ByVal SndFilePath As String) As Boolean Private Shared Function mciSendStringW( ByVal lpszCommand As String, ByVal lpszReturnString As, ByVal cchReturn As UInteger, ByVal hwndCallback As IntPtr) As Integer Private Snds As New Dictionary(Of String, String)

#VISUAL BASIC AUDIO CODE#

Name it (MultiSounds.vb) and then copy this class code to the new class.

You can add the class to you project by clicking (Project) on the VB menu and selecting (Add Class). This code will play (.wav) or (.mp3) audio files. Then you will have to do more work to write them back to the hard drive first.

You can just keep them in a folder on the hard drive instead of adding them to the Resources. However, as with most every method you will find to play sound files, the files will have to be on the hard drive. If you need more functionality like Pausing, Stopping, and Volume control of each sound then it needs to be reworked to include that too. Multiple game sounds that i stripped out all functionality except for Adding and Playing multiple sounds. If all you want to be able to do is to Play multiple sounds at the same time and you want each one to play to the end even when starting another sound then here is a small class you can add to your program to do this.

Visual basic audio