الشاعر قام بنشر يناير 5, 2015 مشاركة قام بنشر يناير 5, 2015 السلام عليكم أيها الأحبة عند الانتقال إلى الحقل التالي بواسطة Tab في أي نموذج فإن الإعدادات الافتراضية هي تظليل كامل الحقل المطلوب : عندي خانة بحث أستخدمها كثيرا ، وأحتاج كود يظلل كامل الحقل عند الضغط عليه ، ليتسنى لي قراءة الرقم ( الباركود ) بواسطة الماسح الضوئي بدون الحاجة إلى الضغط مرتين شاكر ومقدر هذه الجهود الطيبة في خدمة المبرمجين اصغار أمثالنا تقبلوا تحياتي الشاعر رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 5, 2015 مشاركة قام بنشر يناير 5, 2015 fldName.SetFocus 1 رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر يناير 6, 2015 الكاتب مشاركة قام بنشر يناير 6, 2015 السلام عليكم أستاذنا بو خليل الله يعطيك ألف ألف عافية جربت الكود ، وما ضبطت معي Private Sub text1_Click() fldName.SetFocus End Sub يُظهر لي رسالة خطأ رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 6, 2015 مشاركة قام بنشر يناير 6, 2015 اقصد بــ fldName اسم الحقل الموجود لديك وعلى هذا يكون الكود هكذا text1.SetFocus ولكن عند تنفيذ الكود بطريقتك فلن يظلل كامل الحقل انظر المثال المرفق db2.rar رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر يناير 6, 2015 الكاتب مشاركة قام بنشر يناير 6, 2015 (معدل) السلام عليكم أخي الغالي بو خليل الله يعطيك العافية لسا ما ضبطت معي لم يعمل الكود Private Sub text1_Click() text1.SetFocus End Sub شكرا لتجاوبكم تم تعديل يناير 6, 2015 بواسطه الشاعر رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 6, 2015 مشاركة قام بنشر يناير 6, 2015 جرب طريقة مرور الماوس فوق الحقل Private Sub text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) text1.SetFocus End Sub رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 6, 2015 مشاركة قام بنشر يناير 6, 2015 هل تقصد اخي الكريم: انه لديك مربع نص للبحث وبعد الكتابة بداخله من خلال الباركود تريد ان يظلل النص كامل وذلك لاستقبال رقم جديد من الباركود ؟؟ رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 6, 2015 مشاركة قام بنشر يناير 6, 2015 اما ان اردت الادخال المستمر عبر القارىء بدون تدخل منك فيجب ان تستخدم حدث بعد التحديث اجعل السطرين التاليين في آخر الحدث Private Sub text1_AfterUpdate() ' ' ' ' ' text1 = "" text1.SetFocus End Sub رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر يناير 7, 2015 الكاتب مشاركة قام بنشر يناير 7, 2015 السلام عليكم أخي العزيز أبو خليل الكود الأخير يفي بالغرض ولكن لو يبقى التركيز في نفس حقل البحث كما تفضل الأخ العزيز ramhan مشكورا فربما كان شرحه أدق من شرحي شكرا لكما بحجم السماء تحياتي ( الشاعر ) رابط هذا التعليق شارك More sharing options...
ابوخليل قام بنشر يناير 7, 2015 مشاركة قام بنشر يناير 7, 2015 احد الحلول لابقاء المؤشر داخل حقل معين : قم بإيقاف علامة الجدولة من جميع الحقول ما عدا حقل البحث خصائص الحقل /لسان التبويب : غير ذلك غير القيم في جميع حقول النموذج النشطة كالتالي : ايقاف علامة الجدولة =لا اما حقل البحث فاجعله : ايقاف علامة الجدولة =نعم فهرس علامة الجدولة = صفر رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر يناير 7, 2015 الكاتب مشاركة قام بنشر يناير 7, 2015 السلام عليكم أخي العزيز أبو خليل 100 % بيض الله وجهك خدمك المال والبنون ولا حرمنا الله من خدماتكم الراقية تقبل تحياتي ممزوجة برائحة الورد ( الشاعر ) رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 7, 2015 مشاركة قام بنشر يناير 7, 2015 عزيزي الشاعر سؤالك واضح من البداية ولكن حبيت اتاكد باستفساري وهذه عادتي دائما احب ان لا تتعدى مشاركتي مع السائل اكثر من استفسار واحد ثم الجواب وذلك حفظا لوقت الجميع ! لنفترض ان مربع النص اسمه t1 عند الحدث عند النقر اكتب التالي : " هذا حسب طلبك حيث ذكرت تضليل النص عند النقر بدلا من النقر مرتين" : Private Sub t1_Click() If Len(t1) <> 0 Then t1.SelStart = 0: t1.SelLength = Len(t1) End Sub بالتوفيق رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر يناير 8, 2015 الكاتب مشاركة قام بنشر يناير 8, 2015 السلام عليكم أخي العزيز ramhan الله يعطيك ألف ألف عافية بالاستفادة من اللفتة الرائعة للأخ أبو خليل بشأن إيقاف علامة الجدولة وبالكود الرائع صار الجواب على المقاس 200 % بارك الله فيكما فبمساعداتكما ومساعدة أمثالكما نتطور شكرا لكم جميعا تقبلوا تحياتي ممزوجة برائحة المسك ( الشاعر ) رابط هذا التعليق شارك More sharing options...
الشاعر قام بنشر يناير 8, 2015 الكاتب مشاركة قام بنشر يناير 8, 2015 اسمحوا لي أكتب هذه الأبيات لأحد الشعراء عرفانا منا لكريم مساهماتكم ومساعداتكم لأمثالنا : ولستٌ أدعو سوى الرحمنَ يحفظُكم يا خيرَ منْ سكنوا في القلبِ إخوانا طبتم فطابتْ بكلِّ الودِّ صحبتُكم حتى جُزيتم منَ الرحمنِ رضوانا أدعوا اللهَ لكمْ دوما ليكرمكم في السرِّ عفوا وفي الإعلانِ غفرانا تحياتي ( الشاعر ) رابط هذا التعليق شارك More sharing options...
رمهان قام بنشر يناير 8, 2015 مشاركة قام بنشر يناير 8, 2015 مشكور اخي الشاعر ! ما شاء الله اسم على مسمى ! ضربت أروع الأمثلة في اخلاق طالب العلم ! تحياتي :fff: رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.