audio in application

Place a copy of the .WAV file you want to use in the project's directory. In Visual Studio do the following: Click File->Add Existing Item. Change the Files of type at the bottom to All Files (*.*). Select your .WAV file, click the Open button. In the Solution Explorer rightclick the newly added .WAV file, click Properties. In the Properties dialog under Build Action select Embedded Resource. Repeat the above for any additional .WAVs you need in your project. Now copy and paste the following Class into your form's code: ------------------------------- Public Class SimpleSound Private Declare Auto Function PlaySound Lib "winmm.dll" ( _ ByVal pszSound As IntPtr, _ ByVal hModule As IntPtr, _ ByVal dwFlags As Int32 _ ) As Boolean Private Const SND_ASYNC As Int32 = &H1 Private Const SND_MEMORY As Int32 = &H4 Private Const SND_LOOP As Int32 = &H8 Private Const SND_PURGE As Int32 = &H40 Private Shared m_hgData As IntPtr Public Shared Sub Play(ByVal Name As String, ByVal [Loop] As Boolean) If Not m_hgData.Equals(IntPtr.Zero) Then StopPlaying() End If Dim st As Stream = _ [Assembly].GetExecutingAssembly().GetManifestResourceStream( _ Name _ ) Dim intLength As Integer = CInt(st.Length) Dim abyt(intLength - 1) As Byte st.Read(abyt, 0, intLength) st.Close() m_hgData = Marshal.AllocHGlobal(intLength) Marshal.Copy(abyt, 0, m_hgData, intLength) Dim Flags As Int32 = SND_MEMORY Or SND_ASYNC If [Loop] Then Flags = Flags Or SND_LOOP End If PlaySound( _ m_hgData, _ IntPtr.Zero, _ Flags _ ) End Sub Public Shared Sub [Stop]() If Not m_hgData.Equals(IntPtr.Zero) Then StopPlaying() End If End Sub Private Shared Sub StopPlaying() PlaySound(IntPtr.Zero, IntPtr.Zero, SND_PURGE) Marshal.FreeHGlobal(m_hgData) m_hgData = IntPtr.Zero End Sub End Class ------------------------------- To use the SimpleSound class to play a wav add a line in your form's code like the following: SimpleSound.Play("MyNamespace.MyWav.wav", False) In the line above replace MyNamespace with the Namespace of your form, also replace MyWav with the name of the wav you embedded earlier. Enjoy!

1 Reply

Know the answer? Post it — somebody with the same question will find it here.

sjstover22y ago
Place a copy of the .WAV file you want to use in the project's directory. In Visual Studio do the following: Click File->Add Existing Item. Change the Files of type at the bottom to All Files (*.*). Select your .WAV file, click the Open button. In the Solution Explorer rightclick the newly added .WAV file, click Properties. In the Properties dialog under Build Action select Embedded Resource. Repeat the above for any additional .WAVs you need in your project. Now copy and paste the following Class into your form's code: ------------------------------- Public Class SimpleSound Private Declare Auto Function PlaySound Lib "winmm.dll" ( _ ByVal pszSound As IntPtr, _ ByVal hModule As IntPtr, _ ByVal dwFlags As Int32 _ ) As Boolean Private Const SND_ASYNC As Int32 = &H1 Private Const SND_MEMORY As Int32 = &H4 Private Const SND_LOOP As Int32 = &H8 Private Const SND_PURGE As Int32 = &H40 Private Shared m_hgData As IntPtr Public Shared Sub Play(ByVal Name As String, ByVal [Loop] As Boolean) If Not m_hgData.Equals(IntPtr.Zero) Then StopPlaying() End If Dim st As Stream = _ [Assembly].GetExecutingAssembly().GetManifestResourceStream( _ Name _ ) Dim intLength As Integer = CInt(st.Length) Dim abyt(intLength - 1) As Byte st.Read(abyt, 0, intLength) st.Close() m_hgData = Marshal.AllocHGlobal(intLength) Marshal.Copy(abyt, 0, m_hgData, intLength) Dim Flags As Int32 = SND_MEMORY Or SND_ASYNC If [Loop] Then Flags = Flags Or SND_LOOP End If PlaySound( _ m_hgData, _ IntPtr.Zero, _ Flags _ ) End Sub Public Shared Sub [Stop]() If Not m_hgData.Equals(IntPtr.Zero) Then StopPlaying() End If End Sub Private Shared Sub StopPlaying() PlaySound(IntPtr.Zero, IntPtr.Zero, SND_PURGE) Marshal.FreeHGlobal(m_hgData) m_hgData = IntPtr.Zero End Sub End Class ------------------------------- To use the SimpleSound class to play a wav add a line in your form's code like the following: SimpleSound.Play("MyNamespace.MyWav.wav", False) In the line above replace MyNamespace with the Namespace of your form, also replace MyWav with the name of the wav you embedded earlier. Enjoy!