الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كيفية تطبيق خاصية معينة على الفورم و جميع الادوات

مغلق
بدأه COMFORT في 1 أبريل 2006 · 9 رد · 923 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

مثل خاصية الــ RightToLeft و جميع الأدوات الموجودة عليه

بعنى أنو أعمل دالة تقوم بتحول خاصية الــ RightToLeft و بالتالي يتم تطبيقها على

جميع الادوات (( بدون أن أحدد كل أداة باسمها و تحويل الخاصية إلى True ))

و ذلك لسببين :

1. أريد أن أستخدم هذه الدالة من داخل كذا Form مثلاً فلا أكررها بل أضعها في Module و يتم

استدعائها عند الحاجة .

2. مشروعي فيه Form يحتوي على أكثر من 35 أداة مختلفة من (( CommandButton , ListBox , ComboBox ..... etc ))

فهل من المعقول أن أطبق تغير هذه الخاصية على أكثر من 35 أداة مختلفة بذكر أسمائهم هكذا 

List1.RightToLeft = True
Command1.RightToLeft = True
Combo1.RightToLeft = True

* أريد هذه الدالة أو الاجراء لأني أريد أن أعمل برنامج ثنائي اللغة < English , Arabic >

هذا كل ما أطلب و جزاكم الله خيراً

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#2

بالنسبة للـ Right to Left

إذا جعلت قيمة الخاصية للفورم True فإن باقي الأدوات ستأخذها تلقائيا...

lxcs.png

syria-flag_small.jpg

#3
SalehRam DTPort كتب:
بالنسبة للـ Right to Left

إذا جعلت قيمة الخاصية للفورم True فإن باقي الأدوات ستأخذها تلقائيا...

كلا أخي الكريم هذا لا يحدث :blink: 8-)

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#4

أخي الفاضل أعتقد أن الاخ SalehRam DTPort كان كلامه معقولاً ، أنظر الى العبارة المقتبسة من موقع مايكروسوفت

Place a TextBox control on the form, either programmatically or using a development environment such as Visual Studio. It will inherit the right-to-left setting of the form, since the default value for the RightToLeft property is Inherit. (If you wish to override the setting for another control on the form, set that control's RightToLeft property to No.)

ولكم التحية

#5
NiceyFriend كتب:
أخي الفاضل أعتقد أن الاخ SalehRam DTPort  كان كلامه معقولاً ، أنظر الى العبارة المقتبسة من موقع مايكروسوفت

Place a TextBox control on the form, either programmatically or using a development environment such as Visual Studio. It will inherit the right-to-left setting of the form, since the default value for the RightToLeft property is Inherit. (If you wish to override the setting for another control on the form, set that control's RightToLeft property to No.)

ولكم التحية

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

أولاً يمكنك أن تجرب إن كان كلام الأخ الفاضل SalehRam DTPort صحيح أم لا بطريقة عملية و ليس بطريقة منطقية

ثانياً : الكلام المقتبس من موقع Microsoft يتكلم على الــ VB.Net

و ليس على الــ Vb 6 لأنه بالفعل في الــ Vb Express 2005 يتم تطبيق هذه الخاصية على الأدوات

وفقاً للــ Form و لا ينطبق هذا الكلام على الــ Vb 6.0

و جزاك الله خيراً :rolleyes:

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#6

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

أخى الحبيب COMFORT

يمكنك بالفعل حل هذه المشكلة وذلك بالطريقة الآتية :

Dim Ctl As Control
For Each Ctl In Me.Controls
    If TypeOf Ctl Is TextBox Then Ctl.RightToLeft = True
    If TypeOf Ctl Is Label Then Ctl.RightToLeft = True
Next

الشــــــرح :

1 : قمت بتعريف متغير من نوع Control

2 : قمت بعمل For ...Loop على جميع الــ Controls الموجودة على الفورم

3 : قمت باستعمال الدالة TypeOf لمعرفة نوع الــControl

4 : فإذا تم التحقق من ان هذه الــ Control هى التى أريد عمل لها RightToLeft أنفذ ذلك وإلا فلا .

ومستعد للإفاده أكثر إن شاء الله ان لم يتضح الأمر

تم تعديل هذه المشاركة بواسطة eng2002 في 2 أبريل 2006 في 17:50

استغفر الله العظيم من كل ذنب وأتوب إليه

#7
eng2002 كتب:

ومستعد للإفاده أكثر إن شاء الله ان لم يتضح الأمر

بارك الله و جزاك الله عنا كل خيراً :rolleyes:

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif
#8

بسم الله

بالفعل تماما على ما قال الاخ انج 2002

وقياسا على ذلك .. ليس فقط خاصية رايت تو ليفت ...

ايضا خاصية التفعيل ..enabled

خاصية الاخفاء ...visual

وباقي الخصائص ...

لكن خذ في الحسبان ...

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

مثلا

معك 3 بوتون .. حلو

تريد ان تلغي تفعيل 2 بوتون فقط ....

في الكود الذي كتبه الاخ انج2002 تعمل جملة if أو else تقوم بتفعيل البوتون الثالثة ...

ايضا هذا الكود من اهم الاكواد في عمل نظام معين ...

فعند الدخول الى شاشة معينة في البداية ...تكون كل التكستات مثلا غير مفعلة ( لا يستطيع التعديل أو الاضافة ) فبالتالي تضع الكود السابق عند الدخول الى الفورم ...

وعند الضعط على ا ضافة أو تعديل .... يقوم بتفيعل تلك التكستات .... ايضا بوضع عكس ذلك الكود في تلك الازرار ....

فقط حبيت اذكر بعض الملاحظات ... من خلال تجربة ..

تحياتي للاخ انج 2002

ولك اخي كومفورت ..

اخوكم خالد

إذا كان ترك الدين يعني تقدما ***** فيا نفس موتي قبل أن تتقدمي

اعط الفقير سمكة يشبع يوما * * * * علمه الصيد يشبع مدى الحياة

قتل امرئٍ في غابةٍ ***** جريمة لا تغتفـر

وقتل شعبٍ بأكمله ****** مسألةٌ فها نظر

حتى الكلاب إذا رأت يوماً فقيراً ماشياً *** نبحت عليه وكشرت أنيابها

الاعجاز العلمي في القرآن والسنة

#9

بالفعل أخى

يمكن الاستفادة من هذا الكود فى كل ماذكرت

وأيضا ....

هذا الكود يمكن أيضا استخدامه ليس فقط فى الــ Controls

ولكن أيضا فى أشياء أخرى

مثــال :

:blink: يمكن التحكم فى كل الــRecordsets المفتوحة من Connection معين

:blink: يمكن التحكم فى حميع الخصائص المشتركة بين الــControls

:blink: وأشياء أخرى كثيرة ... :lol:

والرجـــاء الدعـــــاء لى بالهـــــداية

استغفر الله العظيم من كل ذنب وأتوب إليه

#10
eng2002 كتب:

بالفعل أخى

يمكن الاستفادة من هذا الكود فى كل ماذكرت

وأيضا ....

هذا الكود يمكن أيضا استخدامه ليس فقط فى الــ Controls

ولكن أيضا فى أشياء أخرى

مثــال :

:blink:  يمكن التحكم فى كل الــRecordsets المفتوحة من Connection معين

:blink: يمكن التحكم فى حميع الخصائص المشتركة بين الــControls

:blink: وأشياء أخرى كثيرة ... :lol:

والرجـــاء الدعـــــاء لى بالهـــــداية

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

مواضيع و دروس
الكتابة بعدة ألوان داخل الــ TetxBoxمكتبة الأكوادتحميل الــ Visual Basic Express 2005
تحميل فيجوال بسيك 6أكواد × أكواددروس في الخوارزميات
لتحميل عدة إصدارات من كريستال ريبورتتحميل برنامج Activ Skin 4.3جمل الــ Sql من الألف إلى الياء
معظم المواقع المختصة بالفيجوال بيسيكموقع كويس للأيقوناتمرجع شامل لأدوات ActivX
كيفية نطق الحرف المكتوب شرح عن كيفية إقامة علاقة مع Data Reprot باستخدام الــ DataEnvironment علاقة مع الـ Datareport بدون استخدام DataEnvironment (( شرح ))
كتاب Migrating From DAO to ADOإضافة لـ VB6 بريمج IndenterVB, إضافة لبيئة تطوير فيجوال بيسك 6حوار بينى و بين عضو حول ال winsock , اتمنى ان يعجبكم
Smart Indenter 3.5 لتنسيق الأكواد, هديه لكل الأعضاء السلسلة الدهبية في المواضيع العلمية ، إستغلال الـ Balloons في الـ Windows XP مصفوفات الأدوات Control Arrays افكار وتلميحات ! , لمن افتقدها من أيام الـ VB6.0
جعل خلفية الـ Mid Form تظهر بالكامل خواص الاداة Winsock لربط الاجهزة عن طريق الانترنتكيف يتم عمل تقارير بإستخدام HTML

7.gif

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…