بسم الله الرحمن الرحيم
لدي مربع نص لا أرغب بتظليله في حالة دخول المشيرة إليه .
من قائمة ادوات ثم خيارات ثم تبويب لوحة المفاتيح
إخترت الخيار الثالث و هو المطلوب
لكن واجهت مشكلة أن جميع مربعات النصوص تتبع الخيار السابق
سؤالي ماهو الكود الذي يجعل المشيرة تذهب إلى آخر النص في مربع النص ولا يعمل تظليل للنص ؟
===
اخي فيصل اهلا بك...
ولكن مالمقصود بان جميع مربعات النص تتبع الخيار السابق..؟؟؟
ممكن استعمال طريقة SendKeys وارسال مفتاح End في حدث عند الدخول..ولكن لكل مربع نص..
SendKeys"{END}"همام
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
بسم الله الرحمن الرحيم
هلابك أخوي همام
اذا إخترت الخيار الثالث من Behavior entering field فجميع مربعات النص ينطبق عليها هذا الخيار
وهو يتماشى مع ما أطلبه
إلا أنني واجهت مشكله في بقية مربعات النص والتي أرغب بتظليل محتواها مباشرة حين دخول المشيرة إليها
===
طيب...
مع المربعات التي تريد فيها ذلك، وبقية المربعات لا تستخدم لها اي شي..اقتباسممكن استعمال طريقة SendKeys وارسال مفتاح End في حدث عند الدخول..ولكن لكل مربع نص..SendKeys"{END}"
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
مرحبا بالاستاذ فيصل
أخي لتغيير قيمة الخيار إلى الخيار الأخير ( عدم تظليل الحقل ) أجعل قيمة الخيار ( 2 ) باستخدم السطر التالي في حدث عند التركيز:
SetOption "Behavior entering field", 2
ولإعادة الخيار إلى تحديد الحقل بالكامل أعد القيمة إلى صفر 0 كما في السطر التالي:
SetOption "Behavior entering field", 0
بسم الله الرحمن الرحيم
بارك الله فيكم
سوف أجرب غدا باذن الله و أوافيكم النتيجة
===
بسم الله الرحمن الرحيم
وجدت هذا الكود في موقع أجنبي :
'This sets cursor at the end of current text Private Sub YourTextBox_Enter() Me.YourTextBox.SelStart = Len(YourTextBox.Value) End Sub 'This sets cursor at the beginning of current text Private Sub YourTextBox_Enter() Me.YourTextBox.SelStart = 0 End Sub 'This selects (hi-lites) all of the current text Private Sub YourTextBox_Enter() Me.YourTextBox.SelStart = 0 Me.YourTextBox.SelLength = Len(YourTextBox.Value) End Sub
أيضا سأجربه غدا باذن الله في العمل .
===
بسم الله الرحمن الرحيم
مصلح الحريصي كتب:مرحبا بالاستاذ فيصلأخي لتغيير قيمة الخيار إلى الخيار الأخير ( عدم تظليل الحقل ) أجعل قيمة الخيار ( 2 ) باستخدم السطر التالي في حدث عند التركيز:
SetOption "Behavior entering field", 2ولإعادة الخيار إلى تحديد الحقل بالكامل أعد القيمة إلى صفر 0 كما في السطر التالي:
SetOption "Behavior entering field", 0
الأخ همام
أشكرك شكرا جزيلا و جزاك الله خيرا على ماتقدمه لي من أفكار
أخي مصلح
بارك الله فيك وجزاك الله عني خير الجزاء
هذا الكود ما كنت أبحث عنه 100 %
===
رابط ذو علاقة وجدته في موقع عربي
اخي مصلح .. بارك الله فيك والله الجملة العجيبة SetOption خطرت ببالي لمني لم اتوصل الى المتغير النصي الذي يشير الى تلك الخيارات يث جربتها سابقا مع اخفاء قائمة اخر ملفات ثم فتحها بالكود،، ولكن هذه المرة لم اوفق في كتابة المتغير بالشكل الصحيح..
فكل الشكر لك على هذه المعلومات..
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
أخي همام العفو
الجمة SetOption تعطيك إمكانيات التعامل مع خصائص وخيارات Option
الأخ فيصل أيضاً هناك طريقة أخرى قد تكون أفضل جربها وهي كالتالي:
من خصائص مربع النص الذي تريد أن لا يتظلل محتواه أختر التبويب حدث ثم حدث عند التركيز وأكتب السطرين التاليين:
With Text1
.SelLength = Len(s)
SendKeys "{End}", False
End With
استبدل Text1 باسم مربع النص الذي تريد
تم تعديل هذه المشاركة بواسطة مصلح الحريصي في 26 أغسطس 2007 في 16:44
مرحبا بالاستاذ فيصل
لبنان / قب الياس
/index.php?showtopic=37977
موقع كتب الحاسب العربيه
http://www.cb4a.com/books/
-------------------
بسم الله الرحمن الرحيم
هلابك أستاذ سمير
منذ مبطي ما شفناك
===
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…