[السندبااد]

أخي العزيز عبد العزيز بيَّض الله وجهك، فهذا ما أريده تماماً، فجزاك الله عني كل خير
بقيت مشكلة واحدة، وهي:
كف يتم إيقاف الصوت؟
فالصوت لا يتم إيقافه إلا عند إغلاق الفورم أو البرنامج
فما الحل لإيقاف الصوت؟

---

لإيقاف الصوت قمت بتطوير الكلاس وإضافة هذه الدالة:

كود :

    Public Function StopPlayer(ByVal SoundName As String) As Boolean
        If Not Snds.ContainsKey(SoundName) Then Return False
        mciSendStringW("seek " & Snds.Item(SoundName) & " to start", Nothing, 0, IntPtr.Zero)
        If mciSendStringW("stop " & Snds.Item(SoundName), Nothing, 0, IntPtr.Zero) <> 0 Then Return False
        Return True
    End Function

في الفورم لإيقاف أي صوت نضع هذا الكود:

كود :

Snds.StopPlayer("Note A")