منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس (/showthread.php?tid=9469)

اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس - المبرمج الاسطورى - 30-06-13

اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس
يعنى عندى اداة ويندوز ميديل بلير
عاوز اول ما ادوس على زر يشغلى ملف صوتى موجود فى ملف البرنامج

اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس - المبرمج الاسطورى - 30-06-13

للرفععععععععععععععععععععععع

اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس - sooriaty03 - 30-06-13

المبرمج الاسطورى كتب :للرفععععععععععععععععععععععع

[COLOR="#0000FF"]السلام عليكم ورحمة الله وبركاته
[/COLOR]
أخي الكريم

لايوجد في أداة الميديا بلير تشغيل ملف من الريسورس
ولكن تستطيع استخراج الملف من الريسورس إلى مجلد Temp وبعد ذلك تقوم بفتحه


بالتوفيق

اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس - المبرمج الاسطورى - 30-06-13

اوك اخى شكرا
يغلق الموضوع
تحياتى

RE: اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس - سوري حر - 23-12-16

اخي ضيف timer
تذهب الي my project تختار resources تحول strings الى Audio وتضيف المقطع يجب ان يكون المقطع بصيغة wav

وضع هذ الكود ب timer

My.Computer.Audio.Play(My.Resources.اسم الملف الي ضفته, AudioPlayMode.Background)

RE: اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس - silverlight - 23-12-16

الملفات المشابهة في الريسورس عبارة عن مصفوفة من  Byte و ليس صعبعا تحويلها الي memorystream ثم يمكن قراءتها باستخدام steamreader

الويندوز ميديا بلير يمكنه تشغيل ملفات من الريسورس عليك فقط أن تعرف كيف تقرأ اللملف
الكود سيكون شكله شئ من هذا القبيل

PHP كود :
Dim fileLocation As String = ".\anyFilename" & ".fileExtension"
Dim resFile as Byte () = My.Resources.FileToPlay
My.Computer.FileSystem.WriteAllBytes(fileLocation,resFile, False)
Player.url = filelocation