الامل الطائر
المساهمات : 57 تاريخ التسجيل : 12/03/2013
| موضوع: طلب مساعدة في اسعمال 3 ليست بوكس والتحكم عن طريق المجلد الأربعاء مارس 20, 2013 10:35 am | |
| بسم الله الرحمن الرحيم السلام عليكم
مثلا اريد اسطوانة للدروس
في الليست بوكس الاولى : اسم الشيخ اليست بوكس الثانية : مثلا لديه عدة مجالات تحدث فيها مثلا في الصلاة 30 درس الحج 20 درس اذن في اليست بوكس الثانية اريد ان يظهر اسم الصلاة والحج وعندما اضغط على الصلاة في الليست بوكس الثانية تفتح الدروس في الليست بوكس الثالثة وتشتغل في الميديا بلاير
لكن المستحدم سيتحكم في الاسطوانة عن طريق المجلد
الملف المفتوح يوضح الفكرة اكثر
http://www.mediafire.com/?ckelkga7nwwpatn
واسال الله ان يجزيكم خير الجزاء واعلموا انكم ستنفعون اناس كثيرين بهذا العمل الذي اسال الله ان يفتح لكم به الجنان وان يسكنكك الفرودس الاعلى امين
السلام عليكم
وعليكم السلام
تفضل اخي ملفك بعد ادراج الاكواد فيه
http://www.mediafire.com/?b07fe58y0bbbkff
عم اخي ابو حذيفة يمكنك عمل زر اضافة وهذه هي الاكواد:
زر لاضافة ملف او عدة ملفات - الكود:
-
كود: browse = Dialog.FileBrowse(true, "Locate File", _DesktopFolder, "All Files|*.avi;*.mpg;*.wmv|", "", "dat", true, false); for n, fileType in pairs(browse)do if browse[1] ~= "CANCEL" then split = String.SplitPath(browse[1]); ListBox.AddItem("ListBox1", split.Filename, browse[1]); end end زر لاضافة مجلد - الكود:
-
كود: brow = Dialog.FolderBrowse("Please select a folder:", _DesktopFolder); if brow ~= "CANCEL" then format = {"*.avi", "*.mpg", "*.wmv"} for i,type in pairs(format)do tbSearsh = File.Find(brow, type, false, false, nil, nil); if tbSearsh then for l,load in pairs(tbSearsh)do split = String.SplitPath(load); ListBox.AddItem("ListBox1", split.Filename, load); end end end end السؤال من طرف أبو حذيفة والجواب للاخ سفيان والسلام عليكم | |
|