[عبد الهادي بهاب]

السلام عليكم
ممكن نستعمل vb في انشاء تجميعات تربوية او تعليمية او شروحات معينة

في المثال الثالي سنصمم تجميعة حول موضوع سورة الاخلاص
نجمع فيه :
تلاوات المشايخ 
فيدوهات لتفسير السورة 
فلاشات تعليمية
تفاسير مختلفة 
ترجمة للسورة  منعدة لغات 

الان سنستعمل 5 من الكومبوكس
بحيث كل كومبوكس سيحتوي  اسماء ملفات كل مجلد اعني الفلاشات و و و 

لذلك نستعمل الكود هذا لمل كل كومبوكس

PHP كود :

 ' القراء
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\mp3")
            Dim type As New IO.FileInfo(Mfile)
            lst_mp3aya.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox1.Items.Add(nn)
        Next

        ' صور القراء
        For Each Mimg In IO.Directory.GetFiles(Application.StartupPath & "\photos")
            Dim type As New IO.FileInfo(Mimg)
            Dim nnr = Mid(type.Name, type.Name.Length - 2, type.Name.Length)
            If nnr = "jpg" Then
                lst_ImageChyoukh.Add(Mimg)
            End If
        Next

        'فيدوهات
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Videos")
            Dim type As New IO.FileInfo(Mfile)
            lst_video.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox2.Items.Add(nn)
        Next

        ' فلاشات
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Flash")
            Dim type As New IO.FileInfo(Mfile)
            lst_Flach.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox3.Items.Add(nn)
        Next


        ' تفاسير
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\Tafsir")
            Dim type As New IO.FileInfo(Mfile)
            lst_Tafasir.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox4.Items.Add(nn)
        Next


        ' ترجمات
        For Each Mfile In IO.Directory.GetFiles(Application.StartupPath & "\trjama")
            Dim type As New IO.FileInfo(Mfile)
            lst_Tarajom.Add(Mfile)
            Dim nn = Mid(type.Name, 1, type.Name.Length - 4)
            ComboBox5.Items.Add(nn)
        Next 


يعني شرط الملفات تكون في مجلد bin

 في كل مرة نسجل روابط الملفات في مصفوفات و نستدعيها لقرائتها

الان في صفحة العمل نضع صورة لعرض القراء تظهر فقط مع الكومبوكس الاول

ميدا بلاير يكون صغيرا في العرض لاستماع التلاوة


ثم يزيد في كوموكس الفيدوهات

في الفلاش نستعمل قارئ الفلاش 

في التفاسير و التراجم اعتمدنا عنصر الويب

بسبب الخط  الصيني ...الخ

الشكل النهائي للعمل





الان مع لملف المفتوح للعمل


  sorat_Ikhlias.rar (الحجم : 542.65 ك ب / التحميلات : 70)


وهو فارغ من الملفات ( من اجل الحجم )

حمل الملفات التالية 
http://www.mediafire.com/file/l9zlk98qedozjjg/Ikhlas.rar/file

و ضعها في مجلد \bin\Debug


 بالتوفيق

---

سؤال في الموضوع

كيف اسكت الفلاش عند اختيار مثلا تفسير او تلاوة

رغم انني استعملت

flash.stop()