هــل من الممكن ان يحلPlugin ScrollBar محل ListBox V- scrollbar

[ياسرهتهت]

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

هل بعد الغاء خاصية Vertical scrollbar لعدد من ListBox استطيع وضع Plugin ScrollBar
يقوم بوظيفة ListBox V- scrollbar لعدد من ListBox معا وكانها واحد؟

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

http://cdn.top4top.co/i_61cd8ade271.jpg

رابط الملف

http://up.top4top.net/downloadf-top4top_05250b641b1-rar.html



هل يوجد كود يقوم يذالك ........؟

--------------------------------------------------------

http://cdn.top4top.co/i_45e3c707bf1.png او اي فكرة او طريقة تجعلني احرك ListBox V- scrollbar معاً


موفقين بإذن الله ... لكم مني أجمل تحية .

:abc_152::abc_152::abc_152:

[ثامر أبو بلقيس]

في العنصر ScrollBar ---- ---on poschange

for i =1,5 do
ListBox.SelectItem("ListBox"..i, e_Pos);
end

[المـهاجر]

http://www4.0zz0.com/2015/11/27/18/548009173.jpg

أيضا ضرورى فى كود الصفحة on show
lc = ListBox.GetCount("ListBox1");
ScrollBar.SetRange("Plugin1", 1, lc, 0);

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

[ياسرهتهت]

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

شكرا لك استاذنا ابو بلقيس
تمت التجربة بنجاح
لكن هنالك عدم توافق بين Plugin ScrollBar وعدد العناصر قي ListBox

:abc_138::abc_138:

[ياسرهتهت]

http://www4.0zz0.com/2015/11/27/18/548009173.jpg

أيضا ضرورى فى كود الصفحة on show
lc = ListBox.GetCount("ListBox1");
ScrollBar.SetRange("Plugin1", 1, lc, 0);

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

--------------------------------------------------------------------
بارك الله فيك اخي المهاجر

هذا ما اقصدة بعدم التوافق
هكذا اكتمل العمل 100 %

الف شكر لك والاستاذنا ابوبلقيس


جزاكم الله الخير
:abc_152:

[المـهاجر]

مثالك يفترض ان اللليست بوكس يحمل أسماء مسلسلة مثل
list1 , list2, list3 ,list4
ماذا لو كانت الأسماء
ahmad , mahmod, ali,nor ؟؟؟؟

حسنا
هذا الكود يهمل تسلسل الأسماء و يتعامل مع اى مسميات لليست بوكس

obj = Page.EnumerateObjects();
for a,z in pairs (obj) do
typ = Page.GetObjectType(z);
if typ == 9 then
ListBox.SelectItem(z, e_Pos);
end
end

الآن أنت لست مضطر الى ان تسمى الليست بوكس بشكل مسلسل او لقبول التسميات الافتراضية

[ثامر أبو بلقيس]

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

شكرا لك استاذنا ابو بلقيس
تمت التجربة بنجاح
لكن هنالك عدم توافق بين Plugin ScrollBar وعدد العناصر قي ListBox

:abc_138::abc_138:


موفق أخي حاولت الإجابة على قدر السؤال و معطياته موفق :abc_138:

[عبد الهادي بهاب]

متابع معكم للاستفادة
شكرا اساتذتي الكرام
و تحياتي للاخ ياسر :abc_152::abc_152:

[ياسرهتهت]

مثالك يفترض ان اللليست بوكس يحمل أسماء مسلسلة مثل
list1 , list2, list3 ,list4
ماذا لو كانت الأسماء
ahmad , mahmod, ali,nor ؟؟؟؟

حسنا
هذا الكود يهمل تسلسل الأسماء و يتعامل مع اى مسميات لليست بوكس

obj = Page.EnumerateObjects();
for a,z in pairs (obj) do
typ = Page.GetObjectType(z);
if typ == 9 then
ListBox.SelectItem(z, e_Pos);
end
end

الآن أنت لست مضطر الى ان تسمى الليست بوكس بشكل مسلسل او لقبول التسميات الافتراضية
================================================== =


بارك الله فيك اخي المهاجر

ارجوا المتابعة معي انت والاخوة الكرام في هذة الجزئية

قي نفس الملف السابق

عند وضع هذا الكود
في الحدث On Select للــــ ListBox1

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1",selkk[1], false);
بهدف ان يتم تمرير الامر للــــ Plugin ScrollBar ليفذ الكود الموجود on poschange
اذا كانت false
selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1",selkk[1], false);

يعمل نصف العمل


واذا كانتtrue

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], true);



يعمل بشكل جيد لكن للاسف مع رسالة خطأ


http://cdn.top4top.co/i_eacd8250081.jpg


اين الخطا .......؟


انا اتمنا ان اجد كود عند تحديدSelected في اي لـــــListBox يتم تحديد الكل ؟؟

ارجوا التفكير معي ؟؟؟؟؟؟؟

موفقين بإذن الله ... لكم مني أجمل تحية .

[ياسرهتهت]

موفق أخي حاولت الإجابة على قدر السؤال و معطياته موفق :abc_138:

-----------------------------------------------------------------------------------


بارك الله فيك
استاذي الكريم
والله يعطيك الصحة والعافية انت وكل اهلك
:abc_138::abc_138::abc_138:

ارجوا المتابعة معي انت والاخوة الكرام في هذة الجزئية

قي نفس الملف السابق

عند وضع هذا الكود
في الحدث On Select للــــ ListBox1

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1",selkk[1], false);
بهدف ان يتم تمرير الامر للــــ Plugin ScrollBar ليفذ الكود الموجود on poschange
اذا كانت false
selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1",selkk[1], false);

يعمل نصف العمل


واذا كانتtrue

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], true);



يعمل بشكل جيد لكن للاسف مع رسالة خطأ


http://cdn.top4top.co/i_eacd8250081.jpg


اين الخطا .......؟


انا اتمنا ان اجد كود عند تحديدSelected في اي لـــــListBox يتم تحديد الكل ؟؟

ارجوا التفكير معي ؟؟؟؟؟؟؟

موفقين بإذن الله ... لكم مني أجمل تحية .

[ثامر أبو بلقيس]

موفق :abc_138:

[المـهاجر]

الرسالة تبين ان الأكواد تستدعى بعضها البعض و تشكل حلقة لا نهائية
لذلك تجدنى اعطيت مثل هذه الملحوظة
http://www.abc4web.net/vb/showpost.php?p=293295&postcount=19

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

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

[ياسرهتهت]

الرسالة تبين ان الأكواد تستدعى بعضها البعض و تشكل حلقة لا نهائية
لذلك تجدنى اعطيت مثل هذه الملحوظة
http://www.abc4web.net/vb/showpost.php?p=293295&postcount=19

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

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

=================================

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

اخي الكريم انا :abc_085:اكبر مشكلة عندي هو الكائن جريد
لا اجيد التعامل معه لانني لم اجد له شرح او ملفات مفتوحة
تشبع معلومات علاوة على ذالك هو متعب بالكتابة بالعربي
والقائمة يسار ويمين ........الخ


:abc_102:اخي العزيز لو تكرمت اعطيني الكود او الحل الذي قلت
اذا نجح معي اكون قد استغنيت تماما عن الجريد


ولك مني الف شكر وتحية

:abc_138::abc_138:

[المـهاجر]

اذا نجح معي

كن واثقا بإذن الله

حسنا أخى
أشعر من عدد المتابعين ان هناك أساتذة يحاولون الآن و قد يخرجون بحلول افضل من حلى
و لا احب ان احرم باقى الزملاء من متعة المتابعة و الحل
و لا أريد إفساد هذا اللغز البرمجى الشهى بطرح الحل مباشرة
الملف المفتوح فى المرفقات مضغوط بكلمة سر
سيكشف عنها بعد فترة قصيرة :abc_088:
إلى اللقاء
:abc_023:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته

أحب المشاركة بإقتراح غير االحدث في ListBox الى on double click

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], true);

[ثامر أبو بلقيس]

قلت on double click لا

جيد أكتب في on show
x=true

ويصبح الكود في ListBox في On Select

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], x);


في ScrollBar يصبح
x=false
for i = 1,5 do
ListBox.SelectItem("ListBox"..i, e_Pos);
end
x=true


موفق :abc_138:

[ثامر أبو بلقيس]

-----------------------------------------------------------------------------------


بارك الله فيك
والله يعطيك الصحة والعافية انت وكل اهلك

.


بارك الله فيك :abc_138:

[ياسرهتهت]

قلت on double click لا

جيد أكتب في on show
x=true

ويصبح الكود في ListBox في On Select

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], x);


في ScrollBar يصبح
x=false
for i = 1,5 do
ListBox.SelectItem("ListBox"..i, e_Pos);
end
x=true


موفق :abc_138:
-----------------------------------------------------------
بسم الله الرحمن الرحيم
استاذي الفاضل ابو بلقيس

تمت التجربة بنجاح 100 في المليون
:abc_050::abc_138::abc_050:

وهو المطلوب استاذي جازك الله الف خير
وكم اتمنا ان ارد لك ولوجزء من خدماتك الرائعة

http://cdn.top4top.co/i_a0d856feb21.gif


موفق بإذن الله ... لك مني أجمل تحية .
:abc_138::abc_138::abc_152::abc_138::abc_138:

[ياسرهتهت]

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

عند تطبيق الكود على كل اليست بكس
يكون اكثر روعة

https://www.youtube.com/watch?v=1wOjYMMi-MM&feature=youtu.be

شكرا لك استاذي الكريم / ابو بلقيس

:abc_138::abc_138:

[ثامر أبو بلقيس]

سعدت بردك و سعدت بأنك تمتلك الحل لإنشغالك حتى تكمل عملك في أوانه

موفق :abc_138:

[المـهاجر]

حل ممتاز
فقط ملحوظة واحدة ليستجيب كافة الليست


ويصبح الكود في ListBox في On Select

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], x);

:abc_138:

يجب ان تكون

selkk = ListBox.GetSelected(this);
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], x);

:abc_152:

[ياسرهتهت]

حل ممتاز
فقط ملحوظة واحدة ليستجيب كافة الليست



يجب ان تكون

selkk = ListBox.GetSelected(this);
ScrollBar.SetScrollBarPos("Plugin1", selkk[1], x);

:abc_152:
-------------------------------------------------------------------------------------

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

أخي المهاجر شكرا لك على المتابعة وملاحظاتك الجيدة والمفيدة

فقط احتاج توضيح للعلم والاستفادة انا كما تلاحظ في الفيديو طبقت كود استاذنا ابو بلقيس على كل ListBox

بان اعلنت في on show عن متغير خاص بكل ListBox

ليصبح الكود في on show


lc = ListBox.GetCount("ListBox1");
ScrollBar.SetRange("Plugin1", 1, lc, 0);
x=true
y=true
c=true
d=true
e=true

وفيListBox في On Select

selkk = ListBox.GetSelected("ListBox1");
ScrollBar.SetScrollBarPos("Plugin1",selkk[1], x);


تم تغير الي c، y، d ، e ، لكل واحد حرف


في ScrollBar يصبح


x=false
y=false
c=false
d=false
e=false

for i = 1,5 do
ListBox.SelectItem("ListBox"..i, e_Pos);
end
y=true
x=true
c=true
d=true
e=tru

:abc_050::abc_050:وهو يعمل بشكل ممتاز ممتاز :abc_050::abc_050:

السؤال ... ما الفرق بين ان يكتب الكود بهذة الطريقة ؟ وماتفضلت به حضرتك ؟؟؟

هل له تاثير بأي شكل من الاشكال على عمل واداء الكود ؟ ام فقط اختصار للاكواد؟


موفق بإذن الله ... لك مني أجمل تحية .

[المـهاجر]

الفيديو لم اشاهده

و انا لم اكتب الكود
انا اقتبست و وضعت ملاحظة بسيطة على الإقتباس

ماذا لو كان عدد الليست 100 ؟؟ هل ستغير الكود فى كل أحداث كل ليست لتكتب إسم الليست ؟؟

التعليمة this هى تعليمة سابقة التعريف و هى = اسم الكائن الحالى (أيا كان)
لذلك يتغير لونها فور كتابتها بداخل الكود للون الأزرق (مثل for و else و in و repeat ....إلخ)
لذلك يمكنك تكرار نفس الكود على جميع العناصر دون الحاجة اتضييع الوقت بتغيير الإسم و تقلل من حدوث خطأ بشرى

أما c، y، d ، e ، x فليست الا تضييع وقت و مجهود فى مخاطبة نفس المتغير بأكثر من إسم

[ياسرهتهت]

الفيديو لم اشاهده

و انا لم اكتب الكود
انا اقتبست و وضعت ملاحظة بسيطة على الإقتباس

ماذا لو كان عدد الليست 100 ؟؟ هل ستغير الكود فى كل أحداث كل ليست لتكتب إسم الليست ؟؟

التعليمة this هى تعليمة سابقة التعريف و هى = اسم الكائن الحالى (أيا كان)
لذلك يتغير لونها فور كتابتها بداخل الكود للون الأزرق (مثل for و else و in و repeat ....إلخ)
لذلك يمكنك تكرار نفس الكود على جميع العناصر دون الحاجة اتضييع الوقت بتغيير الإسم و تقلل من حدوث خطأ بشرى

أما c، y، d ، e ، x فليست الا تضييع وقت و مجهود فى مخاطبة نفس المتغير بأكثر من إسم
----------------------------------------------


شــــــــــكرا لــــــــــــــــــــك على التوضيح وبارك الله فيك

http://cdn.top4top.co/i_386314ad881.gif


موفق بإذن الله ... لك مني أجمل تحية .
:abc_152::abc_152:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
واضح جدا أن التعامل يتم بسلاسة
نزولا وصعودا
http://store3.up-00.com/2015-11/1448824143321.bmp

أكيد الكود المطروح وبتعديل الانبوت 1 إلى الانبوت 3
لأنه الأكبر عددا للعناصر
والموضوع في مثال الأخ المهاجر في on show

lc = ListBox.GetCount("ListBox3");
ScrollBar.SetRange("Plugin1", 1, lc, 0);
كتبت ListBox3 بدل ListBox1 في الكود أعلاه
لأني أعرف الأكبر عناصرا
سيتحقق ذلك دعنا نقول تم هذا الاجراء يدويا و بمعرفة المعطيات مسبقا
في هذه الجلسة البرمجية ما الكود و ما الاجراءات المناسبة
لحل تمرين مفاده أنا لا أعرف من عناصر الليستبوكس
من هو أكبر عددا للعناصر
كيف نكتب كودا بقارن بين الليست بوكس من حيث العناصر
و الاهم يمرر الكود السابق
لعنصر ScrollBar

lc = ListBox.GetCount("ListBoxحددني برمجيا ");
ScrollBar.SetRange("Plugin1", 1, lc, 0);


ملحوظة :
عدد الليستبوكس 5 بتسميات مرتبة

[المـهاجر]

أعتقد
max = 0
for i = 1,5 do
lc = ListBox.GetCount("ListBox"..i);
max = math.max( max, lc )
end

ScrollBar.SetRange("Plugin1", 1, max, 0);
x = true
ستفى بالغرض

[المـهاجر]

السؤال الحقيقى
كيف يمكن إختيار العناصر بشكل متساوى من ال 5 ليستبوكسات بدون وجود العنصر سلايدر من الأساس؟؟
كيف يمكن عند النقر عند العنصر السابع مثلا فى أحد الليستبوكس أن يتم إختيار كل العناصر رقم 7 فى كل الليستبوكسات ؟؟

http://store1.up-00.com/2015-11/1448832830651.jpg

[ثامر أبو بلقيس]

selkk = ListBox.GetSelected(this);
for u =1,5 do
if "ListBox"..u ~= this then
ListBox.SelectItem("ListBox"..u,selkk[1]);
end
end

على ان يزرع الكود في واحدة و الباقي خال من الاكواد
:abc_138:

[المـهاجر]

عند الزرع فى الكل
http://store2.up-00.com/2015-11/1448834806841.jpg

و عند الزرع بواحدة فقط
فلن يحدث اى شيئ عند الضغط على البقية
كيف يمكن عند النقر عند العنصر السابع مثلا فى أحد الليستبوكس أن يتم إختيار كل العناصر رقم 7 فى كل الليستبوكسات ؟؟
:abc_152:

[ثامر أبو بلقيس]

أعتقد
max = 0
for i = 1,5 do
lc = ListBox.GetCount("ListBox"..i);
max = math.max( max, lc )
end

ScrollBar.SetRange("Plugin1", 1, max, 0);
x = true
ستفى بالغرض

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

شكرا

my_table = {};
for i = 1,15 do
lc = ListBox.GetCount("ListBox"..i);
Table.Insert(my_table,i,lc.."."..i );
end
for j,k in pairs(my_table) do
tamer = Math.Max(tamer, k);
end
VALUE1,VALUE2, VALUE3 = string.match (tostring (""..tamer), "^([%+%-]?)(%d*)%.?(.*)$")
ScrollBar.SetRange("Plugin1", 1, ListBox.GetCount("ListBox"..VALUE3), 0);
x=true

[ثامر أبو بلقيس]

عند الزرع فى الكل
http://store2.up-00.com/2015-11/1448834806841.jpg

و عند الزرع بواحدة فقط
فلن يحدث اى شيئ عند الضغط على البقية

:abc_152:

عند الزرع في واحدة مع مسح الأكواد في باقي الليستات بالتأكيد يحدث شيء
أليس كذلك ؟

[المـهاجر]

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

شكرا

my_table = {};
for i = 1,15 do
lc = listbox.getcount("listbox"..i);
table.insert(my_table,i,lc.."."..i );
end
for j,k in pairs(my_table) do
tamer = math.max(tamer, k);
end
value1,value2, value3 = string.match (tostring (""..tamer), "^([%+%-]?)(%d*)%.?(.*)$")
scrollbar.setrange("plugin1", 1, listbox.getcount("listbox"..value3), 0);
x=true

شكرا لمشاركة الكود
لكنه قد لا يكون يعمل بشكل صحيح
ضع فى الليستبوكس1 عدد 22 قيمة و لن يصل التحديد بواسطة السكرول للنهاية

[المـهاجر]

عند الزرع في واحدة مع مسح الأكواد في باقي الليستات بالتأكيد يحدث شيء
أليس كذلك ؟

يحدث تحديد لكافة الليست بنفس العنصر المختار
المطلوب ان يتسبب النقر على اى عنصر باى ليستبوكس فى تحديد نفس العنصر فى كل الليستبوكس
:abc_152:

[ثامر أبو بلقيس]

السلام عليكم ورحمة الله وبركاته
بالنسبة للتمرين الأخير المشاركة 27
أحداث الأكواد موضحة في تعليقاتها
--- ListBox on select
selkk = ListBox.GetSelected(this);
select=selkk[1]
Page.StartTimer(10);
--- on show
select=1
value=0
-- on timer
for i =1,5 do
ListBox.SelectItem("ListBox"..i, select);
p = ListBox.GetSelectedCount("ListBox"..i);
value=value+p
end
if value==5 then
value=0
Page.StopTimer(10);
end


ملاحظة : الميزة multiple selection لا تكون مؤشرة في كل الليستات

[ثامر أبو بلقيس]

شكرا لمشاركة الكود
لكنه قد لا يكون يعمل بشكل صحيح
ضع فى الليستبوكس1 عدد 22 قيمة و لن يصل التحديد بواسطة السكرول للنهاية

لم يتبين لي هذا الخلل الملاحظ :abc_138:

[ياسرهتهت]

السلام عليكم ورحمة الله وبركاته
بالنسبة للتمرين الأخير المشاركة 27
أحداث الأكواد موضحة في تعليقاتها
--- ListBox on select
selkk = ListBox.GetSelected(this);
select=selkk[1]
Page.StartTimer(10);
--- on show
select=1
value=0
-- on timer
for i =1,5 do
ListBox.SelectItem("ListBox"..i, select);
p = ListBox.GetSelectedCount("ListBox"..i);
value=value+p
end
if value==5 then
value=0
Page.StopTimer(10);
end


ملاحظة : الميزة multiple selection لا تكون مؤشرة في كل الليستات


-------------------------------------------------------------------------------------------------


http://cdn.top4top.co/i_ec7bfb70841.gif


http://www.abc4web.net/vb/images/icons/icon14.pngموفق بإذن الله ... لك مني أجمل تحية .
:abc_052::abc_052::abc_052:

[المـهاجر]

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

[ياسرهتهت]

محاولة جميلة
لكنها لا زالت لا تحقق الشرط فى المشاركة 33

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

استاذي / المهاجر


تحقق الشرط شاهد الملف في المرفقات

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[احمدعمار]

موضوع جميل وستحق المتابعة

[عبدوعزيز]

مشكوووووووووووووور