ams 4 arab
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

 

 ندااااااء عاااااجل الى الخبراء

اذهب الى الأسفل 
3 مشترك
كاتب الموضوعرسالة
salamdz




المساهمات : 1
تاريخ التسجيل : 17/04/2014

ندااااااء عاااااجل الى الخبراء Empty
مُساهمةموضوع: ندااااااء عاااااجل الى الخبراء   ندااااااء عاااااجل الى الخبراء Emptyالخميس أبريل 17, 2014 2:31 pm

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

أبوبلقيس


المساهمات : 50
تاريخ التسجيل : 20/03/2013
العمر : 54

ندااااااء عاااااجل الى الخبراء Empty
مُساهمةموضوع: رد: ندااااااء عاااااجل الى الخبراء   ندااااااء عاااااجل الى الخبراء Emptyالخميس أبريل 17, 2014 8:18 pm

بسم الله الرحمن الرحيم                                             
افتح مشروعا جديدا ضع ملفات  pdf  في مجلد Docs التايع للبرنامج بعد فتحه
حاول أن تبتعد عن تسمية الملفات بالعربية حتى لا تواجهك صعوبات فيما بعد
بعد ذلك و في صفحة العمل  أدرج عنصر ListBox  وليكن ListBox1
بالضغط على هذا العنصر مرتين  توجه للحدث on select
واكتب الكود التالي :
الكود:

result = ListBox.GetSelected("ListBox1");
tamer = ListBox.GetItemText("ListBox1",result[1] );
File.Open(_SourceFolder.."\\AutoPlay\\Docs\\"..tamer..".pdf", "", SW_SHOWNORMAL);


ضع زر بحث لجميع الملفات لتعرض في الليست
في هذا الزر في الحدث on clic  أكتب:
الكود:

  found = File.Find(_SourceFolder.."\\AutoPlay\\Docs\\", "*.pdf", true, false, nil, nil);
if (found) then
    for i,v in pairs(found) do
   ter = String.SplitPath(v);
    result = ListBox.AddItem("ListBox1", ter.Filename, "");
end
end
الرجوع الى أعلى الصفحة اذهب الى الأسفل
أبوبلقيس

أبوبلقيس


المساهمات : 50
تاريخ التسجيل : 20/03/2013
العمر : 54

ندااااااء عاااااجل الى الخبراء Empty
مُساهمةموضوع: رد: ندااااااء عاااااجل الى الخبراء   ندااااااء عاااااجل الى الخبراء Emptyالخميس أبريل 17, 2014 8:25 pm

بعد اعداد المشروع  ضع الــ 1000 ملف بيدياف التي ذكرت في المجلد
Docs  بعد معاينة المشروع اضغط على الزر ستظهر العناوين في الليست
بالضغط على العنوان مرة واحدة سيفتح ملف البيدياف
موفق
الرجوع الى أعلى الصفحة اذهب الى الأسفل
الامل الطائر




المساهمات : 57
تاريخ التسجيل : 12/03/2013

ندااااااء عاااااجل الى الخبراء Empty
مُساهمةموضوع: رد: ندااااااء عاااااجل الى الخبراء   ندااااااء عاااااجل الى الخبراء Emptyالخميس أبريل 17, 2014 9:31 pm

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

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