طلب التعديل على كود لاستعراض مجلد بداخل مجلد يوجد ملف جاهز للعمل عليه [الأرشيف]

محمد بن أحمد أبو حذيفة

02-12-2017, 10:09 AM

عبد الهادي بهاب

02-12-2017, 07:26 PM

الملف لا يعمل

لكن خسب مل فهمت

نضع في on show

Folders = Folder.Find("AutoPlay\\Docs", "*", false, ShowSearchProgress);

if (Folders) then
for i,n in pairs(Folders) do
gh = String.SplitPath(n).Filename;
ComboBox.AddItem("ComboBox1", gh, "")
end
end

ComboBox.SetSelected("ComboBox1", 1)

ثم في الكومبوكس

ala = ComboBox.GetSelected("ComboBox1");
igli = ComboBox.GetItemText("ComboBox1", ala);
dis = "AutoPlay\\Docs\\"..igli.."" ;
Folders = Folder.Find(dis, "*", false, ShowSearchProgress);
ListBox.DeleteItem("ListBox1", LB_ALLITEMS);
if (Folders) then
for i,n in pairs(Folders) do
gh = String.SplitPath(n).Filename;
ListBox.AddItem("ListBox1", gh, n)
end
end

في الليت بوكس 1

al = ListBox.GetSelected("ListBox1");
igl = ListBox.GetItemText("ListBox1", al[1]);
file = ListBox.GetItemData("ListBox1", al[1]);
Fos = File.Find(file, "*.*", true, false, ShowSearchProgress, nil);

ListBox.DeleteItem("ListBox2", LB_ALLITEMS);
if (Fos) then
for i,n in pairs(Fos) do
gh = String.SplitPath(n).Filename;
ListBox.AddItem("ListBox2", gh, n)
end
end

في اليسبوكس 2

a = ListBox.GetSelected("ListBox2");
ig = ListBox.GetItemData("ListBox2", a[1]);
File.Open(ig, "", SW_SHOWNORMAL)

بالتوفيق

عبد الهادي بهاب

02-12-2017, 07:27 PM

مثال مفتوح

https://up.top4top.net/downloadf-701tya0x1-rar.html

محمد بن أحمد أبو حذيفة

02-12-2017, 08:27 PM

مثال مفتوح

https://up.top4top.net/downloadf-701tya0x1-rar.html

بارك الله فيك

غريب كاني اتعامل اول مرة مع البرنامج اختلطت الامرو علي
فهل ممكن ان تدرج الاكواد في الملف المفتوح الذي وضعته

لانه توجد اكواد اخرى مرتبطة به

عبد الهادي بهاب

02-12-2017, 09:54 PM

بارك الله فيك

غريب كاني اتعامل اول مرة مع البرنامج اختلطت الامرو علي
فهل ممكن ان تدرج الاكواد في الملف المفتوح الذي وضعته

لانه توجد اكواد اخرى مرتبطة به

لا يوجد ملف في الملف المضفوط
اعد ارساله من جديد

محمد بن أحمد أبو حذيفة

02-12-2017, 10:01 PM

لا يوجد ملف في الملف المضفوط
اعد ارساله من جديد

بارك الله فيك

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

هل ممكن هذا اخي بارك الله فيك

عبد الهادي بهاب

02-12-2017, 10:44 PM

لم افهم ما المطلوب

محمد بن أحمد أبو حذيفة

02-12-2017, 10:57 PM

لم افهم ما المطلوب

بارك الله فيك اريد زر لاضافة مجلد رئيسي به عدة مجلدات الى التجميعة

ايضا زر يمكن من خلاله اضافة مجلد الى المجلد الرئيسي
وايضا زر لاضافة ملف صوتي

للتفصيل اكثر
عند الضغط على زر اافة مجلد رئيسي يضافة مباشرة الى مجلد الاوديو

اما عن اضافة مجلد ثاني يبج ان نحدد اسم المجلد الرئيسي الذي نريد ان نضيف له المجلد الثانوي وفي حالة ادع الاختيار يكون هناك رسالة تنبيه

ونفس الامر بالنسبة لاضافة مللف صوتي يجب ان نححد المجلد الثانوي الذي نريد الاضافة اليه

ان شاء الله اكون وفقت في شرح المطلوب

عبد الهادي بهاب

02-12-2017, 10:58 PM

اظن الملف المفتوح بفي بالغرض
استبدل الكود في اليسبوكس بتشغيل الملف في المديا بلاير

محمد بن أحمد أبو حذيفة

02-12-2017, 11:08 PM

اظن الملف المفتوح بفي بالغرض
استبدل الكود في اليسبوكس بتشغيل الملف في المديا بلاير

لم افهم مقصدك

محمد بن أحمد أبو حذيفة

10-12-2017, 09:35 PM

بالنسبة للكود اضافة مجلد هذا يعمل بشكل جيد

اما بالنسبة للكود اضافة ملف الى المجلد فلم اضل الى نتيجة

ياسرهتهت

13-12-2017, 10:45 AM

بسم الله الرحمن الرحيم
الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

يوجد عندي مجموعة من المجلدات باخلها مجلدات بداخل هذه الاخيرة ملفات صوتية
الملف يعمل بشكل جيد جدا

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

لكن اريد تغير طفيف

الملف يعرض اسم المجلد الرئيسي في ComboBox1
ومنا يبدا المطلوب

بعد ان يعرض الاسم الرئيسي للمجلد في ComboBox1

اريد ان يعرض اسماء المجلدات الثانوية التي بداخل المجلد الرئيسي في ListBox2

ثم محتوى المجلدات الثانوية في 1ListBox

ليتم قراءنها في ميدابلاير

https://up.top4top.net/downloadf-701bv5h31-rar.html

--------------------------------
بسم الله الرحمن الرحيم

اخي محمد ملفك المرفوع مضروب لا يعمل

والملف المرسل من الاستاذ عبد الهادي يحقق المطلوب في السؤال 100%
---
اما باقي الاستفسارات بخصوص المجلد واضافة مجلدات للمجلد
كانت محل تسائل من قبل
شاهد هذا الملف
https://up.top4top.net/downloadf-712tmsrd1-rar.html
موفق بإذن الله ... لك مني أجمل تحية .

عبود عبود

13-12-2017, 05:17 PM

أهلا وسهلا بك أستاذ محمد
هل وصلت للمطلوب ؟

محمد بن أحمد أبو حذيفة

13-12-2017, 05:25 PM

--------------------------------
بسم الله الرحمن الرحيم

اخي محمد ملفك المرفوع مضروب لا يعمل

والملف المرسل من الاستاذ عبد الهادي يحقق المطلوب في السؤال 100%
---
اما باقي الاستفسارات بخصوص المجلد واضافة مجلدات للمجلد
كانت محل تسائل من قبل
شاهد هذا الملف
https://up.top4top.net/downloadf-712tmsrd1-rar.html
موفق بإذن الله ... لك مني أجمل تحية .

بارك الله فيك اخي ياسر
نعم الملف الذي ارسله الاستاذ عبد الهادي نفعني وانا استعمله
والملف الذي وصعته انت عندي وانا استعمله

ولقد دمجت بين الملفين وخرجت بملف واحد انظر الملف المرفق

https://up.top4top.net/downloadf-712o5g5q1-rar.html

ببساطة انظر المخطط

https://f.top4top.net/p_712rljkr1.png

المشكلة في الازراار الاتية مع الشرح

زر حذف مجلد رئيسي يعني حذف المجلد من ComboBox1
زر حذف مجلد ثانوي يعني حذف المجلد من ComboBox2

زر اضافة ملف

به مشكلة بسيطة وهي انه يجب ان نحدد ملف ثانوي من ComboBox2 والا يخبرك بعدم التحديد

اسال الله العلي القدير ان لا اكون اثقلت عليكم

محمد بن أحمد أبو حذيفة

13-12-2017, 05:27 PM

أهلا وسهلا بك أستاذ محمد
هل وصلت للمطلوب ؟

ليس بعد اخي عبود

انظر هنا

http://www.abc4web.net/vb/showpost.php?p=315766&postcount=14

عبود عبود

13-12-2017, 10:21 PM

جارى التعديل

محمد بن أحمد أبو حذيفة

13-12-2017, 10:26 PM

جارى التعديل

في انتظارك بارك الله

عبود عبود

13-12-2017, 10:47 PM

بالنسبة لإضافة مجلد أين تريد إضافة المجلد هل سيكون مجلد رئيسى أم مجلد فرعى ؟

محمد بن أحمد أبو حذيفة

13-12-2017, 10:51 PM

بالنسبة لإضافة مجلد أين تريد إضافة المجلد هل سيكون مجلد رئيسى أم مجلد فرعى ؟

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

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

عبود عبود

13-12-2017, 10:59 PM

حسنا إن شاء الله
سيكون الاثنين معا

بعد ما أعمل كوباية شاى علشان التركيز

محمد بن أحمد أبو حذيفة

13-12-2017, 11:00 PM

حسنا إن شاء الله
سيكون الاثنين معا

رحمك الله واحسن اليك

عبود عبود

13-12-2017, 11:51 PM

تم عمل التعديلات الازمة على الأكواد فى جميع الأزرار وفى الحدث "On Show" للصفحة

لم يتم إجراء أى تعديل على الزر "حمل الشرح الحالى" نظرا لأنى مش فاهم إيه هو فائدته :abc_005:

http://www.mediafire.com/file/s2t2cybu6bf463o/ComboBox_abood2.rar

:abc_152:

محمد بن أحمد أبو حذيفة

14-12-2017, 12:22 AM

تم عمل التعديلات الازمة على الأكواد فى جميع الأزرار وفى الحدث "on show" للصفحة

لم يتم إجراء أى تعديل على الزر "حمل الشرح الحالى" نظرا لأنى مش فاهم إيه هو فائدته :abc_005:

المحتوى المخفي لايقتبس

:abc_152:
بارك الله فيك
هل ممكن اضافة بعض الامور
بالنسبة لازرارا الاضافة هل يمكن ان نتعرف على وجود الملف او المجلد وتنبيه المستخدم بوجد هذا الملف او المجلد من قبل

ايضا بالنسبة لزر اضافة مجلد فرعي من المفروض ان لا يطلبنا بتحديد المجلد الفرعي ما دام المجلد الرئيسي موجود محدد

كذلك زر حذف مجلد فرعي لا يوجد به حوار للتنبيه عند عدم التحديد

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

بارك الله فيك ورحمك

عبود عبود

14-12-2017, 12:29 AM

غدا إن شاء الله ....... إذا كان لدى وقت سوف أنظر فى المطلوب

:abc_152:

محمد بن أحمد أبو حذيفة

14-12-2017, 12:31 AM

غدا إن شاء الله ....... إذا كان لدى وقت سوف أنظر فى المطلوب

:abc_152:

رحمك الله
ان شاء الله
السلام عليكم

عبود عبود

14-12-2017, 02:56 PM

تفضل أستاذ محمـــــد

http://www.mediafire.com/file/b6x7iw6sdtc2ps4/ComboBox_abood3.rar

يمكنك الإستفادة من تنسيق الأكواد فسوف تجد تسلسل خطوات التنفيــــــذ

:abc_152:

محمد بن أحمد أبو حذيفة

14-12-2017, 04:37 PM

تفضل أستاذ محمـــــد

المحتوى المخفي لايقتبس

يمكنك الإستفادة من تنسيق الأكواد فسوف تجد تسلسل خطوات التنفيــــــذ

:abc_152:

بارك الله فيك ورحمك وغفر لك ولوالديك آمين
أسال الله إن لا أكون أثقلت عليك بطلبي وأعانك الله على ماهو آت
واعلم ان كل من يستعمل هذه التجمعية سينالك منه الدعاء والخير الكثير

عندما يكون عندنا اسم المجلد الرئيسي فقط (بحيث يكون فارغ) ونريد أن نضيف مجدل بنفس الاسم لا نستطيع ولا يحدث شيئ

عند إضافة مجلد فرعي وبعد إنهاء العملية يعود ليحدد العنصر الأول من ComboBox1 ولا يرجع إلى نفس المكان إلا بعد إعادة التحديد
يوجد في بعض الاحيان مشكلة في اضافة مجلد فرعي يظهر تنبه كالتالي لم يتم اختيار المجلد الفرعي المطلوب النسخ اليه
إضافة ملفات للمجلد الفرعي لكن ينبه المستخدم بوجود الملف من قبل إن كان موجود

حذف مجلد رئيسي يعمل بشكل جيد

عند حذف مجلد فرعي وبعد إنهاء العملية من المفترض ان يبقى التحديد في نفس المجدل الرئيسي ويحدث التحديد في المجلد الفرعي

عبود عبود

14-12-2017, 05:13 PM

محمد بن أحمد أبو حذيفة

15-12-2017, 07:46 AM

مش فاهم وضح بفيديو للمشاكل

أما عن التحديد الذى تتكلم عنه فهو يحدث لأنى جعلت بعد كل عملية سواء إضافة ملفات أو حذف ملفات أو مجلدات يتم عمل ريفريش للصفحة كأنك أول مرة تفتح المشروع :abc_065:

تفضل أخي عبود وان كان غير واضح اعيد الفيديو

http://www.mediafire.com/file/b44kynyubth5n78/%D9%85%D8%B4%D9%83%D9%84%D8%A9_%D8%A7%D8%B3%D8%B7% D9%88%D8%A7%D9%86%D8%A9_%D8%A7%D9%84%D9%81%D9%88%D 8%A7%D8%A6%D8%AF.mp4

عبود عبود

15-12-2017, 02:33 PM

حسنا أخى العزيز
راجع الملف التالى بعدما أدخلت عليه بعض التعديلات
http://www.mediafire.com/file/axf85al756apq1f/ComboBox_abood4.rar

ولا بأس من إخبارى بالنتيجة والمشاكل الأخرى إن وجدت "لا تنسى إن وجدت مشاكل أخبرنى بها بالفيديو أيضا"

:abc_152:

محمد بن أحمد أبو حذيفة

15-12-2017, 03:55 PM

حسنا أخى العزيز
راجع الملف التالى بعدما أدخلت عليه بعض التعديلات
المحتوى المخفي لايقتبس

ولا بأس من إخبارى بالنتيجة والمشاكل الأخرى إن وجدت "لا تنسى إن وجدت مشاكل أخبرنى بها بالفيديو أيضا"

:abc_152:

بارك الله فيك أخي
نتعلم من البرنامج ونستفيد
ونتعلم منك أيضا الصبر على المتعلم وحسن الخلق والأدب
لأنك أحسست أنني في المرة القادمة سأتضايق أن طلبت منك المزيد فسبقتني فرحمك الله وأعانك على الخير

بقيت مشكلة التحديث فقط إن رأيت أنها غير مهمة ولا تؤثر على المستخدم فلك ذلك

أعجبتني طريقتك في كتابة الأكواد تجعل المبتدأ مثلي يفهم معناها

الفيديو
http://www.mediafire.com/file/zyu54n2n3sxb1hn/20171215_150727.mp4

عبود عبود

15-12-2017, 04:32 PM

الفيديو مش موضح ما هى المشكلة
لا تقلق لو لم أكن أريد تقديم المساعدة لما فعلت " طالما فى الإمكان وهناك وقت لا بأس "

محمد بن أحمد أبو حذيفة

15-12-2017, 04:40 PM

الفيديو مش موضح ما هى المشكلة
لا تقلق لو لم أكن أريد تقديم المساعدة لما فعلت " طالما فى الإمكان وهناك وقت لا بأس "

بارك الله فيك
في الثانية 25 من الفيديو
أضفت مجلد فرعي إلي المجلد الرئيسي الذي يحمل اسم الشيخ الرحيلي
تم إضافة المجلد لكن انتقل التحديد في الكمبوكس 1 إلي مجلد رئيسي آخر بدلا من أن يبقى في نفس المجلد الرئيسي

في الثانية 47 من الفيديو
اضفت ملف الى مجلد فرعي وبعد انهاء العملية انتقل التحديد في الكمبوكس 1 بدلا من ان يبقى في نفس المجلد

أسال الله ان اكون وفقت في توضيح المشكلة

عبود عبود

15-12-2017, 06:23 PM

إذا كنت تقصد تذكر البرنامج للخيارات فراجع هذا الملف بعد التعديل

http://www.mediafire.com/file/rdqv1ax4xngmb7a/ComboBox_abood5.rar

محمد بن أحمد أبو حذيفة

15-12-2017, 06:58 PM

إذا كنت تقصد تذكر البرنامج للخيارات فراجع هذا الملف بعد التعديل

المحتوى المخفي لايقتبس

بارك الله فيك
تمام أخي عبود

اعجز عن شكرك

أسال الله لنا ولكم الجنة وان يجمعنا في جنة الفردوس وان يغفر لوالديك ورحمك الله من ولدتك وأباك وجعلهما في جنة الفردوس آمين
تم المطلوب الى اذا ظهر جديد فاتصل بك
فقط
لواردت ان انزع هذا
Flash.SetVisible("Flash1", true);

فبما استبدله لاني اراه غير عملي في هذا المشروع
السلام عليكم

عبود عبود

15-12-2017, 07:15 PM

بدلا منه
StatusDlg.Show(MB_ICONNONE, false);

وبدلا من الآخر للإخفاء

StatusDlg.Hide();

محمد بن أحمد أبو حذيفة

15-12-2017, 07:37 PM

بدلا منه
statusdlg.show(mb_iconnone, false);وبدلا من الآخر للإخفاء

statusdlg.hide();

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

عبود عبود

15-12-2017, 07:54 PM

أفتقد التركيز حاليا

محمد بن أحمد أبو حذيفة

15-12-2017, 07:56 PM

أفتقد التركيز حاليا

أعانك الله وسدد خطاك
ندعم الأمر لحين تكون مرتاح ويتيسر لك الوقت

عبود عبود

24-12-2017, 10:51 AM

إن شاء الله سوف أحاول اليوم النظر فيما تطلبه "ساعات قليلة ربما ليلا"

محمد بن أحمد أبو حذيفة

24-12-2017, 12:29 PM

إن شاء الله سوف أحاول اليوم النظر فيما تطلبه "ساعات قليلة ربما ليلا"

إن شاء الله أعانك الله

عبود عبود

24-12-2017, 10:49 PM

إن شاء الله أعانك الله

تفضــــــــــل :abc_022:

http://www.mediafire.com/file/0j1d2mambabjj4v/ComboBox_abood6.rar

محمد بن أحمد أبو حذيفة

25-12-2017, 04:28 PM

تفضــــــــــل :abc_022:

المحتوى المخفي لايقتبس

بارك الله فيك ورحمك حقيقة أبهرتني الطريقة واعلم انك تعبت فيها لأنك غيرت الطريقة كليا

توجد بعض الملاحظات

بالنسبة لحذف مجلد رئيسي يحذف المجلدات التي بداخله لكن يبقى المجلد فارغا لا يحذف

بالنسبة للشيط التقدم في إضافة مجلد فرعي لا يظهر التقدم بينما يظهر ممتلئ كاملا لا ادري هل راجع لصغر حجم الملف أم به خلل

بالنسبة للتحميل الشرح الحالي هو تقريبا نفس المجلد كاملا لكن ربما يطلب من المستخدم مجدل معين من المجلد الرئيسي فلا يضطر للنسخ ثم الحذف بل يحمل الشرح المطلوب فقط

كذلك هل يمكن ان نستغني عن الملفات -

FldrActn-Downloads-3all -cope

ام انها ضرورية

محمد بن أحمد أبو حذيفة

25-12-2017, 05:41 PM

عند الضغط على زر تحميل مجلد الشيخ كاملا وحفظه على سطح المكتب مثلا

ثم احذفه من سطح المكتب وأعيد التجربة يظهر حوار ان الملف موجود مسبقا

عبود عبود

25-12-2017, 05:50 PM

بالنسبة لحذف مجلد رئيسي يحذف المجلدات التي بداخله لكن يبقى المجلد فارغا لا يحذف

يتم الحذف فقط إنتظر حتى تظهر لك الرسالة المؤقتة تم الحذف بنجاح تظهر بعد مرور 10 ثوانى من إنتهاء عملية الحذف "ضرورى لحذف الآثر وهو المجلد الفارغ"

بالنسبة للشيط التقدم في إضافة مجلد فرعي لا يظهر التقدم بينما يظهر ممتلئ كاملا لا ادري هل راجع لصغر حجم الملف أم به خلل

بالنسبة للتحميل الشرح الحالي هو تقريبا نفس المجلد كاملا لكن ربما يطلب من المستخدم مجدل معين من المجلد الرئيسي فلا يضطر للنسخ ثم الحذف بل يحمل الشرح المطلوب فقط

كذلك هل يمكن ان نستغني عن الملفات -

fldractn-downloads-3all -cope

ام انها ضرورية

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

إحذف الملفات التى ذكرتها فلم أستخدمها

عبود عبود

25-12-2017, 05:53 PM

عند الضغط على زر تحميل مجلد الشيخ كاملا وحفظه على سطح المكتب مثلا

ثم احذفه من سطح المكتب وأعيد التجربة يظهر حوار ان الملف موجود مسبقا

طبعا لأنى إعتمدت تسجيل هذة العملية فى ملف ini

وكذلك تسجيل عملية إستعادة الملف الذى كان يعمل داخل الميديا بلير

محمد بن أحمد أبو حذيفة

25-12-2017, 08:16 PM

طبعا لأنى إعتمدت تسجيل هذة العملية فى ملف ini

وكذلك تسجيل عملية إستعادة الملف الذى كان يعمل داخل الميديا بلير

بارك الله فيك هل ممكن نتخلص من هذه المشكلة اقصد
ملف ini
كذلك في حذف مجلد فرعي يصد صوت الحذف عند حذف كل ملف هل انت من وضع الكود يعمل هكذا

يوجد امر اريد ان استفسر عنه
هل توجد في البرنامج خاصية يمكن ان اعرف ان كان المجلد يحوى مجلدات بداخله ام لا

اذا كان نعم فيمكن أن نستثني في إضافة مجلد رئيسي المجلدات التي لا تحوي على مجلدات ثانوي

حاوله فهم الأكواد التي تتحكم في تحريك النص لكن وجدها صعبة جدا

POS = Label.GetPos("Label4");

-- Sets way of movement
if POS.X == 0 then
HMov = "Dcha";
end

if POS.X+LblSize.Width == ListBox.GetPos("ListBox1").X-4 then
HMov = "Izq";
end

if POS.Y == 0 then
VMov = "Abajo";
end

if POS.Y+LblSize.Height == Pag.Height then
VMov = "Arriba";
end
if HMov == "Dcha" then
POS.X = POS.X + 1;
Label.SetPos("Label4", POS.X, POS.Y);
end

if HMov == "Izq" then
POS.X = POS.X - 1;
Label.SetPos("Label4", POS.X, POS.Y);
end
----------------
POS = Label.GetPos("Label1");

-- Sets way of movement
if POS.X == 0 then
HMov = "Dcha";
end

if POS.X+LblSize.Width == ListBox.GetPos("ListBox1").X-4 then
HMov = "Izq";
end

if POS.Y == 0 then
VMov = "Abajo";
end

if POS.Y+LblSize.Height == Pag.Height then
VMov = "Arriba";
end
if HMov == "Dcha" then
POS.X = POS.X + 1;
Label.SetPos("Label1", POS.X, POS.Y);
end

if HMov == "Izq" then
POS.X = POS.X - 1;
Label.SetPos("Label1", POS.X, POS.Y);
end