(31-03-20, 06:08 PM)alshandodi كتب :لك جزيل الشكر والتقدير مثال اكثر من رائع لو سمحت اريد مساعدتك او من الأخوه الأفاضل المبدعين في هذا المنتدى الرائع
اريد عمل القران الكريم في البرنامج الذي اصممه فاريد نفس هذه الطريقه ولكن لا اريد حفظه في قاعدة البيانات- اريد جلب المسار من مجلد البرنامج ونفس عمل برنامجك ...فاستخدمت هذا الكود- فاريد بعد تغير مسمى كل واحد في الليست بوكس مثال سورة الفاتحه واسمها في الملف 001
كود :
Dim path As String = Application.StartupPath & "\Mp3\"
ListBox1.Items.AddRange(IO.Directory.GetFiles(path, "*.wma*"))
ولك جزيل الشكر وبالغ التقدير
العفو اخي الكريم
اسعدني مرورك ومشاركتك .
لم اعرف النقطة المتبقية هل تقصد ان يكون الليست بوكس تحتوي اسماء السور والمسارات تكون بقائمة نصية؟
الامر بسيط تحتاج دالة تحويل الرقم 001 الى اسم للسورة.
الافكار كثيرة ممكن تستخدم ملف نصي و ممكن من نفس الكود تعمل مصفوفة نصية تاخذ قيمتين الرقم والاسم.
و اعتذر ان لم اكن فهمت المطلوب.
وحياك الله اخي الكريم.
عملت مثال بسيط بـvb6.0 وهو تحويل الرقم الى سورة ونفس الشيء حتى بالدوت نت.
[مشروع] مثال تحويل الرقم الى سورة والعكس
للفائدة كنت مجهز ملف قاعدة بيانات وايضا ملف نصي واي واحدفيهم يكفي.
كلهم ارفقتهم الان
انظر للفكرة التالية بحيث لا تحتاج الى ارفاق ملفات نصية بل تدمج اي نص مهما كان طويلا بالكود.
[مشروع] إعادة فكرة توليد موديول
اللهم إني أعوذ بك من غلبة الدين وغلبة العدو، اللهم إني أعوذ بك من جهد البلاء ومن درك الشقاء ومن سوء القضاء ومن شماتة الأعداء
اللهم اغفر لي خطيئتي وجهلي، وإسرافي في أمري وما أنت أعلم به مني، اللهم اغفر لي ما قدمت وما أخرت، وما أسررت وما أعلنت وما أنت أعلم به مني، أنت المقدم وأنت المؤخر وأنت على كل شيء قدير
