audio in application

Question

i am currently developing a program that needs sound in it. and at the moment i do not know how to put audio files into a visual basic.net form. I was wondering if any one knew how to do that and if so can you tell me by either posting a reply or emailing me. Thanks anyway

sjstover · Answer

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!