VB Helper كتب:السلام عليكم ورحمه الله وبركاته
اخي الاحظ ان الفئه Audio لا تملك اجراء غير متزامن لتشغيل الصوت لذا جرب الكود التالي المذكور في المرفق لموضوع ال Asynchonous Programming
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim thread As New Thread(New ThreadStart(AddressOf Play))
thread.Start()
End Sub
Sub Play()
My.Computer.Audio.Play("1.wav", AudioPlayMode.WaitToComplete)
My.Computer.Audio.Play("2.wav", AudioPlayMode.WaitToComplete)
End Sub
جزاك الله كل خير
هذا هو المطلوب
ولكن لاحظت مشكلة وهي: أنني عندما أغلق البرنامج تظل الأصوات تعمل وتعمل حتي تنتهي الأصوات من العمل
هل يوجد حل لهذه المشكلة؟ (علماً بأني استخدم أكثر من فورم أي: أريد حل غير وضع الكلمة End في حدث إغلاق الفورم)