میگم من سه ماهیه اینجا عضوم ولی هیچ بهره ای از این سایت نبردم
میگم اگه کسی دنبال پخش بدون درد سره هر گونه صدا در 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
پاسخ با نقل قول
نحوه پیاده سازی کامل پرداخت آنلاین بانک ملی ایران (دامون) ، از ابتدا تا Verification نهایی
نوشته شده توسط فرید نجفلو
