[ماهر 2]

سلام عليكم شباب

انا كنت استخدم نفس الطريقة تقريبا ولكن ب My.Computer.Audio
عدلت على نفس كود الاخ ولكن بالطريقة التي استخدمها
ارسل لها فقط رقم الصوت مثل
PLAY_AUDIO_SOUND(1)
PLAY_AUDIO_SOUND(2)
PLAY_AUDIO_SOUND(3)

كود :

   Public Sub PLAY_AUDIO_SOUND(ByVal s As Integer)
       Dim h = Application.StartupPath & "\FolderSound\"
       Select Case s
           Case 1
               My.Computer.Audio.Play(h & "Sound1.Wav")
           Case 2
               My.Computer.Audio.Play(h & "Sound2.Wav")
           Case 3
               My.Computer.Audio.Play(h & "Sound3.Wav")
       End Select
   End Sub

لكن المشكلة التي واجهتني شباب هي انها تعمل على ملفات wav فقط ولا تعمل على ملفات mp3 او mid سواء System.Media.SoundPlayer او My.Computer.Audio؟

ارجو المساعدة
وشكرا مقدما