تغيير اتجاه الليست بوكس

[محمود ربيع]

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

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

لدي استفسارين عن الليست بوكس

الاول : هل يمكن ترتيب ظهور الاعمدة في الليست بوكس بنفس ترتيبها في صفحة الاكسل ( من اليمين لليسار )

الثاني : كيف يمكن طباعة محتويات الليست بوكس بالكامل او تحديد جزء معين للطباعة ( حيث عند طباعة محتويات الليست بوكس يظهر فقط في ورقة الطباعة الجزء الظاهر بالليست بوكس )

وكما هو موضح بالمرفق ......... لكم مني ارق التحيات وجزيل الشكر

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

استفسارين عن الليست بوكس.zip

[عبدالله باقشير]

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

 

الاول : هل يمكن ترتيب ظهور الاعمدة في الليست بوكس بنفس ترتيبها في صفحة الاكسل ( من اليمين لليسار )

 

اثناء التصميم

من خصائص الفورم

الخاصية RightToLeft

اجعلها True

 

الثاني : كيف يمكن طباعة محتويات الليست بوكس بالكامل او تحديد جزء معين للطباعة ( حيث عند طباعة محتويات الليست بوكس يظهر فقط في ورقة الطباعة الجزء الظاهر بالليست بوكس )

 

 

 الافضل تنقل نتائج اللست بوكس الى ورقة معدة للطباعة مسبقا

 

تحياتي

[محمود ربيع]

مشكور استاذي القدير علي الرد

ولكن حينما اقوم بجعل الخاصية RightToLeft

علي الوضعية True لا يتغير شئ وتظل الليست بوكس كما هي من اليسار لليمين ويتغير فقط اتجاه الـ Caption الخاص بالفورم ذاته

بالاضافة الي ان الخيار True ينقلب تلقائيا الي False

فهل يمكن ان تتكرم بارفاق ملف وان تتفضل بتبيان سبب انقلاب الخيار True الي False تلقائيا

تقبل خالص تحياتي وشكري

تم تعديل يناير 21, 2014 بواسطه modi basha

[عبدالله باقشير]

مشكور استاذي القدير علي الرد

ولكن حينما اقوم بجعل الخاصية RightToLeft

علي الوضعية True لا يتغير شئ وتظل الليست بوكس كما هي من اليسار لليمين ويتغير فقط اتجاه الـ Caption الخاص بالفورم ذاته

بالاضافة الي ان الخيار True ينقلب تلقائيا الي False

فهل يمكن ان تتكرم بارفاق ملف وان تتفضل بتبيان سبب انقلاب الخيار True الي False تلقائيا

تقبل خالص تحياتي وشكري

 

 اولا جرب استخدام هذا الكود

Private Sub UserForm_Initialize()
Me.RightToLeft = True
End Sub

واشعرني بالنتيجة

[محمود ربيع]

للاسف لم تتغير النتيجة اخي الكريم

[محمود ربيع]

للرفع

[عبدالله باقشير]

لايوجد عندي حل

 

قد تحتاج الى تغيير نسخة الاوفيس الى عربي

والله اغلم

[محمود ربيع]

مشكور اخي الكريم والعلامة المتميز دائما استاذنا / عبد الله باقشير

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

يكفيني فقط شرف اهتمامك

[خالد الرشيدى]

 

 

اخى الكريم

الاعمده لا تظهر  من اليمين الى اليسار

لان البيانات فى الليست بوكس مكتوبه فى وقت التصميم

ولكن عند البحث إما من خلال تكست بوكس او زر بحث

قم بإضافه الكود التالى فى (حدث الزر ) او (حدث التكست بوكس)

 

Me.RightToleft=True

 

انظر المرفق

 

 

 

 

[حمادة باشا]

الأخ الكريم/ modi basha

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

بعد إستئذان أستاذنا الكبير/ عبدالله باقشير

الإجابة في نقاط :

1- الأستاذ/ عبدالله أورد الحل بإستخدام RightToLeft ولن تحتاج غيره إذا كان إصدار الويندوز عربي أو معرب

    أرفقت لكم حل بدون إستخدام الخاصية أعلاه - عله يفي بالغرض .

2- حذف سطر من ListBox له طريقتين :

    الأولي - عن طريق حذف السطر الأصلي من النطاق المعين داخل RowSource ستجد الحذف تلقائي في ListBox

    الطريقة الثانية - بأمر الحذف RemoveItem شريطة أن تكون الأسطر مضافة بأمر AddItem وليس RowSource

3- طباعة الفورم بإستخدام PrintForm يطبع الشكل كما هو دون تخصيص - إن أردت ذلك فقم بإخفاء الأزرار وتقليل أسطر ال ListBox

    حتي تختفي السكرول بار - ثم إطبع - بعدها أعد ما قمت بإخفائه قبل الطباعة .

تقبل تحياتي

Book2-ListBox Right to Left.rar

[حمادة باشا]

الأخ الكريم/ خالد الرشيدى

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

عمل رائع - جزاكم الله كل خير

تقبل تحياتي

[إبراهيم ابوليله]

اخى حماده

فكره جميله جدا

ومجهود عظيم بارك الله فيك

[حمادة باشا]

الأستاذ الفاضل/ إبراهيم ابوليله

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

جزاكم الله كل خير - وتقبل تحياتي

[محمود ربيع]

جزاكم الله خيرا جميعا ولمك مني جزيل الشكر والامتنان واسف علي تأخيري في الرد

[هشام مرسي]

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

السلام عليكم

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

وقد كتبت برنامج يعمل جيدا على جهاز من اليمين إلى اليسار

وعلى جهاز أخر دائما يكون من اليسار إلى اليمين مما حاولت معه

ولم أبحث عن سبب هذه المشكلة

ولكن ذكرتها هنا لعل تكون فيها إفادة