پخش بدون درد سر صدا در vb.net

[mokh_pascal_sangesary]

میگم من سه ماهیه اینجا عضوم ولی هیچ بهره ای از این سایت نبردم
میگم اگه کسی دنبال پخش بدون درد سره هر گونه صدا در vb هست اول یه این جوری کلاس تعریف کنه


Public Class Sound
Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As String, ByVal hmod As Integer, ByVal flags As Integer) As Integer

Declare Auto Function PlaySound Lib "winmm.dll" (ByVal name _
As Byte(), ByVal hmod As Integer, ByVal flags As Integer) As Integer

Public Const SND_SYNC = &H0 ' play synchronously
Public Const SND_ASYNC = &H1 ' play asynchronously
Public Const SND_MEMORY = &H4 'Play wav in memory
Public Const SND_ALIAS = &H10000 'Play system alias wav
Public Const SND_NODEFAULT = &H2
Public Const SND_FILENAME = &H20000 ' name is file name
Public Const SND_RESOURCE = &H40004 ' name is resource name or atom

End Class
بعدش هر وقت تابع playsound این کلاس را با مسیر و پسوند فایل فراخونی کنید با اون دو پارامتر دیگه صدا براتون پخش میشه
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OpenFileDialog1.ShowDialog()
Sound.PlaySound(OpenFileDialog1.FileName, 5, 3)
End Sub
by ta hi