كيف اربط الليست بوكس بمشغل صوتيات

[بيانكى]

السلام عليكم
اعمل على انشاء مشغل صوتيات
معذره على الاطالة لدى 3 اسألة
اريد وضع ليست بوكس فى المشروع
-1وجعل الليست بوكس تقبل ملفات صوت من الخارج بمعنى (drag)
2- كيفية جعلها تعمل بالتتالى اى عند انتهاء ملف صوتى يعمل الذى يلية وعند انتهاء القائمة كلها
يتم تكرارها تلقائياً
بختصار مثل قائمة برنامج وينامب نضع فيها ملفات وتعمل بالتتالى
ولا ننسى ربط زر البلاى بالليست بوكس


مضى يومين ولم يجبنى احد انا عارف ان طريق الاحتراف مليان عمالقة فى الاوتو بلاى لذا لا تبخلو على امثالى من المبتدئين
وضعت ليست بوكس فى مشغل صوتيات ولكن كيف تقبل ملفات صوت من خارج المشروع وتعمل بالتتالى وتعيد نفسها ؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟

[بيانكى]

فين الردود هو كل اعضاء الموقع مسافرين ليش ما فى رد

[بيانكى]

مضى يومين ولم يجبنى احد انا عارف ان طريق الاحتراف مليان عمالقة فى الاوتو بلاى لذا لا تبخلو على امثالى من المبتدئين
وضعت ليست بوكس فى مشغل صوتيات ولكن كيف تقبل ملفات صوت من خارج المشروع وتعمل بالتتالى وتعيد نفسها
:abc_085:

[ثامر أبو بلقيس]

وعليكم السلام ورحمة الله وبركاته

ضمن تجميعيتك العناصر التالية :
- ListBox وليكن اسمها ListBox1
- عنصر MediaPlayer
- زر
--------------------------------------------------
نزرع الأكواد على النحو التالي :
أولا
- في حدث الصفحة on show اعلن عن القيمة الابتدائية التالية
value=1

ثانيا :
توجه لعنصر ListBox و فــي الحدث on select أكتب
result = ListBox.GetSelected("ListBox1");
result2 = ListBox.GetItemData("ListBox1", result[1]);
value=result[1]
if result[1] ~="" then
MediaPlayer.Load("Plugin1", result2);
end

ثالثا :

في عنصر MediaPlayer ستقوم بشيئين هما
في هذا العنصر و فــي الحدث on play أكتب
value=value+1

في نفس العنصر لكن في الحدث on finish أكتب :
ListBox.SelectItem("ListBox1", value);
if max+1 == value then
ListBox.SelectItem("ListBox1", 1);
value=1
end

رابعا و أخيرا :
كنا قد أضفنا زرا في التجميعية في هذا الزر و هو المسؤول مسؤول إِيـهْ مسؤول عن
استيراد الملفات الصوتية
أكتب فيه :
ListBox.DeleteItem("ListBox1", -1);
sFolder = {};
sFolder = Dialog.FileBrowse(false, "Locate File", _DesktopFolder, "Audio Files (*.mp3,.wav,.ogg,.wma*))|*.mp3;*.wav;*.ogg;*.wma|", "", "dat", true, false);
if Table.Count(sFolder) > 0 then
min = 1;max = Table.Count(sFolder) ;
for count = min, max do
tbFilePath = String.SplitPath(sFolder[count]);
sFile = tbFilePath.Filename..tbFilePath.Extension;
ListBox.AddItem("ListBox1", sFile, sFolder[count]);
end
ListBox.SelectItem("ListBox1", 1);
value=1
end
جرب الان و موفق :abc_138:
قد يكون ردي سببا لدفعك لشرح كيفية الاستيراد التي تريدها

[بيانكى]

اولا اشكر حضرتك على الاهتمام بسؤالى - واشكرك جدا على مجهودك الرائع وعلى الأكواد
ثانيا
لا يوجد فى مشغل الصوتيات ميديا بلاير
بختصار لقد وضعت ازرار ( تشغيل - توقف مؤقت - وزر استيراد من الخارج - وزر للتحكم فى الصوت )
واريد اضافة ليست بوكس لتقبل ملفات الصوت من الخارج وتعمل بالتتالى وتقبل اضافة وحذف ملفات الصوت
مع احترامى لحضرتك الكود الخاص بزر استيراد الصوت اعطانى رسالة خطأ (مشكور على الاستجابة ومنتظر الرد)

[ثامر أبو بلقيس]

لم أفهم لا الملاحظة المتعلقة بأن ما أرسلته به خطأ
و لا المطلوب جيد لو ترفع ملفا مفتوحا للخطوات الأربع السابقة لأرى أين أخطأت ؟
بالمثال يتضح المقال :abc_138: في انتظارك