الله يبارك فيك
إعـــــــلان
تقليص
لا يوجد إعلان حتى الآن.
شباب اريد اعمل مشروع فهرسة
تقليص
هذا الموضوع مغلق.
X
X
-
وعليكم السلام ورحمة الله وبركاتهالمشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركةالسلام عليكم ورحمة الله وبركاته
أخي صادق النية ... ان كنت تقصد بالاوتوبلاي
عندي لك اقتراح و ارجو أن يترجمه أحد الزملاء لملف ويرفعه ..
سنتفق مع المدير أو صاحب العمل بأن يضع ملفاته مهما كان نوعها
وورد - ايكسل -- ...... الخ
في مجلد غير مجلد النظام و ليكن القرص d و في مجلد نسميه 10
-----------------------------------------------------------------------------------
الان نفتح مشروع جديد بالاوتوبلاي
نضع فيه عنصرين
- ليست بوكس ولتكن ListBox1
- اينبوت للبحث
------------------------------------------------------------------------------
نزرع الان الاكواد :
في حدث الصفحة on show نكتب
في العنصر ليست بوكس نضغط عليه و في الحدث on double clickكود PHP:ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
result = File.Find("D:\\10\\", "*.*", false, false, nil, nil);
if result ~= nil then
for j,file_path in pairs (result) do
file = String.SplitPath(file_path)
ListBox.AddItem("ListBox1", file.Filename,file_path);
end
end
نكتب :
- في الانبوت بالضغط عليه و في on keyكود PHP:tbl_selected = ListBox.GetSelected("ListBox1");
result = ListBox.GetItemData("ListBox1", tbl_selected[1]);
File.Open(result, "", SW_SHOWNORMAL);
نكتب :
---------------------------------------------------------كود PHP:sLookFor = Input.GetText(this);
sListBoxItem = ListBox.FindItem("ListBox1", -1, LB_BYTEXT, "*" .. sLookFor .. "*");
ListBox.SelectItem("ListBox1", sListBoxItem);
بعد اكمال المشروع و زرع مجلد 10 في القرص d فيه ملفات
عاين عملك لتجد كل الملفات في الليست مفهرسة بالضغط عليها مرتين
تفتح و اذا كتبت في الاينبوت سيتم البحث في الليست
موفق
يغفر الله لك، ويجعلك من أهل الجنة
أنت والله نوراً في برمجة lua نقتبس من علمك الشريف، ونسترشد بأفكارك الرائعة والفريدة
والله لا يُدخلني إلى هذا الموقع غيرك أنت، لأتابع جديدك، وردودك على الإستفسارات
لن نوفيك حقك أستاذنا المتواضع، ولكن نسأل الله أن يجزيك عنا خير الجزاء
مُحبك ومغليك، وتلميذك
تعليق
مواضيع تهمك
تقليص
Empty RSS Feed.


تعليق