السلام عليكم ورحمة الله وبركاته
عند إقلاع البرنامج أقوم بتشغيل صوت من خلال هذا الكود:
كود :
My.Computer.Audio.Play("sounds\EndTime.wav", AudioPlayMode.Background)
الآن أريد عند تشغيل أي صوت أن يبقى الصوت السابق قيد التشغيل، فهل من طريقة؟
لأنني بمجرد أن أشغل أي صوت سيتوقف الصوت السابق
لم تنجح معي الا باستخدام Dim wmp As AxWMPLib.AxWindowsMediaPlayer
عند كل زر تكتب
PHP كود :
wmp = New AxWMPLib.AxWindowsMediaPlayer
wmp.CreateControl()
wmp.URL = CurDir() & "\s.wav"
wmp.Ctlcontrols.play()
ألف شكر لك أخي العزيز سعود
للأسف لم ينجح معي المثال
السّلام عليكم و رحمة الله و بركاته
بعد إذن أخي و أستاذي الفاضل " سعود " بارك الله فيه و له و جزاه خير الجزاء
بحثت سابقًا كثيرًا عن كيفية تشغيل صوتين مختلفين متزامنين بنفس الوقت دون توقّف أحدهما لحاجتي الملحّة لهذه المسألة .. وانتهيت بعد البحث إلى هذا الحل النهائي لهذه المسألة
باعتبار أنّ الفورم 1 هي مثلاً ال MDIParent1 لديك ..
للأمانة العلمية : البحث كان بمنتديات نقطة التّطوير
تحياتي
أخي العزيز عبد العزيز بيَّض الله وجهك، فهذا ما أريده تماماً، فجزاك الله عني كل خير
بقيت مشكلة واحدة، وهي:
كف يتم إيقاف الصوت؟
فالصوت لا يتم إيقافه إلا عند إغلاق الفورم أو البرنامج
فما الحل لإيقاف الصوت؟
لإيقاف الصوت قمت بتطوير الكلاس وإضافة هذه الدالة:
كود :
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")
السّلام عليكم و رحمة الله و بركاته
الفضل كذلك يعود إليك أخي و أستاذي الكريم " السندباد " أنّك بهذه الإضافة المميزة أصبح الملف متكامل و الكمال لله و حده
الشّكر موصول لأخي و أستاذي الغالي " سعود " على المساهمة الطيّبة
بارك الله فيكما و لكما و جزاكما خير الجزاء إن شاء الله
تحياتي و احتراماتي
