سلام به همگی .
یه چندتایی کد دیگه نوشتم که میدونم واقعا کاربردیه . امیدوارم که حداکثر استفاده رو از این کدها ببرید .

قبل از اینکه بریم سراغ کدها این NameSpace رو باید در برنامتون Import کنید .
بنابر این در قسمت General کد زیر رو بنویسید : 


Imports System.Media

خب ، حالا بریم سراغ کدها :

کد شماره 1 : با این کد میتونید خیلی راحت یه فایل موزیک از نوع .WAV رو در برنامتون اجرا کنید . 


Public Function Sound_Player()

        ' Play Your Sound File (Extension .WAV)

        Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")

        SUND_PLY.Play()

    End Function

کد شماره 2 : حالا اگه یه موقعی خواستید موزیکی رو که با کد بالا اجرا کردید و در حال اجرا هم هست متوقف کنید از کد زیر استفاده کنید : 


Public Function Sound_Stop()

        ' Stop Played Sound. 

        Dim SUND_PLY As SoundPlayer = New SoundPlayer

        SUND_PLY.Stop()

    End Function

کد شماره 3 : بعضی مواقع پیش میاد که بخایم یه موزیک رو تکرار کنیم . یه چیزی مثل خاصیت Repeat در برنامه Media Player . کد زیر این کار رو واستون انجام میده : 


Public Function Sound_Play_Looping()

        ' Play Your Sound File , Looping Status.

        Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")

        SUND_PLY.PlayLooping()

    End Function

کد شماره 4 : اگه خواستید یه موزیک رو به عنوان موزیک خوش آمدگویی یا چیزی شبیه به این در برنامتون قرار بدید ، از این کد استفاده کنید . چون قبل از اینکه فرم بارگذاری بشه ، موزیک پخش میشه و بعد از اون فرم ظاهر میشه . اینم کد : 


Public Function Sound_Play_Sync()

        ' Play Your Sound File Before Form Load.

        Dim SUND_PLY As SoundPlayer = New SoundPlayer("C:\Your_File.wav")

        SUND_PLY.PlaySync()

    End Function

دوستان عزیز فقط به یک نکته توجه کنید ، به جای این آدرس C:\Your_File.wav ، آدرس فایل خودتون رو جایگزین کنید .