السلام عليكم.اخواني من فضلكم عندي ملف صوتي تبع المشروع موجود بالقرص c و يشتغل تمام
حبيت اغيرو من القرص c الى الريسورس تبع المشروع.حاولت بكذا وسيلة لكن ما ضبطت
كيف لو سمحتم اغير بالكود يلي موضوع بالفورم load
كود :
Dim sp As New System.Media.SoundPlayer
'sp.SoundLocation = "c:\Nachide.wav"
sp.SoundLocation = "my.Resource:\Nachide.wav"
sp.PlayLooping()
وعليكم السلام
بدل ما تستخدم SoundLocation استخدم Stream مثل
sp.Stream = My.Resources.Nachide
تسلم يا غالي .. ما ضبطت لا location تبعي ولا stream تبعك.هل ممكن التعديل على الكود تبعي الله يرضى عليكم
اصلا انا اعطيتك الكود الخاص بك بعد التعديل
وانا مجرب الكود اللي اعطيك واشتغل
هل انت وضعت الملف الصوتي في الريسورس اكيد
ما فيه علامة تنصيص " " اذا كان الملف في الريسورس ولا تضيف نوع الملف wav.
Dim sp As New System.Media.SoundPlayer
sp.Stream = My.Resources.Nachide
sp.PlayLooping
اخي الطيب .و الله حطيت الملف الصوتي بصيغة mp3 و wav لازيل الشكوك بالريسورس
و حطيت الكود تبعك بالفورم لود لكن شوف المشكل و الله ماني فاهم حاجة ايش الغلط
احذفهم من الريسورس لان اسمائهم متشابهة
وارجع للريسورس وضع فقط ملف صيغة wav
لان SoundPlayer يشغل فقط ملفات صيغة wav
اخي و الله صار عندي شك لاني جربت العملية بمشروع جديد خالص لازالة الشكوك مع الاكواد الاخرى وما ضبطت للاسف
انت تقصد الريسورس يلي مجلدها مكتوب عليه resources بالصورة
لا يا أخي
أقصد الريسورس اللي داخل المشروع
لو فتحت المشروع تلاقي قائمة باسماء ملفات المشروع على اليمين ومن ضمنها My Project اضغط عليها مرتين
وراح يفتح خصائص المشروع وعندها حتشوف على اليسار تاب اسمه Resources هذا اللي اقصده
تسحب الملف من من مستكشف الويندوز وتسقطه داخل هذا الريسورس
اخي الملف كان يشتغل عادي جدا جدا بالقرص c ما في طريقة اغير المسار فقط لو سمحت
كود :
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim sp As New System.Media.SoundPlayer
'sp.SoundLocation = "c:\Hymne.wav"
sp.SoundLocation = "My.Resources:\Hymne"
sp.PlayLooping()
End Sub
أخي اذا تريد تشغيل الملف من الريسورس فليس له مسار لأنه سيدخل ضمن ذاكرة البرنامج يعني سيكون مدمج مع ملف التشغيل الخاص بالبرنامج
وطريقتها ذكرتها لك
عموما انا مبتدئ، وانتظر أحد المحترفين ليفيدك
تحياتي