منتدى تعليمي متعلق بالاتوبلاي ميديا ستوديو
 
الرئيسيةالتسجيلدخول

شاطر | 
 

  طلب مساعدة في اسعمال 3 ليست بوكس والتحكم عن طريق المجلد

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
باسمة



المساهمات : 352
تاريخ التسجيل : 14/03/2013

مُساهمةموضوع: طلب مساعدة في اسعمال 3 ليست بوكس والتحكم عن طريق المجلد   الجمعة مارس 29, 2013 2:40 pm

أبو حذيفة يتساءل
بسم الله الرحمن الرحيم
السلام عليكم

مثلا اريد اسطوانة للدروس


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

لكن المستحدم سيتحكم في الاسطوانة عن طريق المجلد

الملف المفتوح يوضح الفكرة اكثر

http://www.mediafire.com/?ckelkga7nwwpatn

واسال الله ان يجزيكم خير الجزاء
واعلموا انكم ستنفعون اناس كثيرين بهذا العمل الذي اسال الله ان يفتح لكم به الجنان وان يسكنكك الفرودس الاعلى
امين

السلام عليكم
الجواب لسفيان
وعليكم السلام
تفضل اخي ملفك بعد ادراج الاكواد فيه
http://www.4shared.com/file/Na9yPvSM/apz.html
اسال الله العظيم رب العرش العظيم ان يجزيك خير الجزاء واساله تعالى ان يسكنك الفردوس
وان يجعلك بجوار النبين والصدقين والشهداء والصالحين وان يجعل الانامل التي خط هذا العمل طاهرة
الى يوم القيامة وان يحرم جسدك عن النار وينعهمه في الجنان

امين امين امين
لكن لدي اضافة اخرى هل يمكن اضافة زر اضافة شريط او اشرطة
اللهم امين ولكل المسلمين
نعم اخي ابو حذيفة يمكنك عمل زر اضافة وهذه هي الاكواد:
زر لاضافة ملف او عدة ملفات

الكود:
كود:
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
بارك الله فيك
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
طلب مساعدة في اسعمال 3 ليست بوكس والتحكم عن طريق المجلد
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
ams 4 arab :: منتدى الطلبات والاستفسارات-
انتقل الى: