كيف يمكن تثبيت الكتابة في الحقول بالحروف الكبيرة فقط

اخي الفاضل العمدة

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

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

للحروف الكبيرة

Private Sub UPtxtName_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub

للحروف الصغيرة

Private Sub LOtxtName_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
End Sub

وهذا مثال

za_Uppercase_Lowercase.rar

شكراً أستاذتنا زهرة

معلومة جميلة أضفتها إلى مكتبتي

أبو ليان

مع وافر التحية والتقدير لاختي واستاذتي الغالية زهره

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

وهي وضع علامة > او < في تنسيق الحقل في نفس الجدول فيعطيني نفس النتيجة

Big.rar

بارك الله فيك اخي ابو عبدالله

نعم هذه احد الطرق الجميله

ولكن مع ملاحظة انه بعد الخروج من الحقل يتم ضبط تنسيق الحرف الى كبير او الى صغير

اما طريقة الكود فهي تغنيك فبمجرد ادخال الحرف يتم تحويله مباشرة الى كبير او صغير بصرف النظر هل مفتاح Caps Lock مضغوطا ام لا فهو يتجاهله ويقوم بعمله .

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

بارك الله فيكم اخواني

المواضيع تصبح متكاملة بهذا التعاون البناء

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

انتي نار على علم

عيني عليك باردة

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

ويعلم الله علم اليقين اننا لا نبخل على احد بأي معلومة وحتى لو كانت في نظرنا صغيره او غير ذات اهميه فبكل تأكيد انها تعني لغيرنا الشيء الكثير .

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

ختاما نتمنى لنا ولكم جميعا التوفيق والسداد .

شجرة طيبة تُؤتي أكُلُها كلَّ حين.............

بارك الله في أستاذتي الفاضلة

وأود أن أسئل هنا هل من الممكن أظهار أي رقم يتم أدخاله في حقل نص ما ( باللاتيني ) فقط ,

حيث وكما تعلمين أن الرقم يظهر بالفونت العربي (أي الأرقام الهندية) مهما كان نوع شريط اللغة

سواء كان Ar أو En طالما كان الرقم في الأعدادت الأقليمية هو العربي 0

أبو منتظر

الحمد لله علي استمرار هذا التعاون لكي نرتقي معا

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

اخوتي

واخص الاخت زهرة التي تعلم مادي حب الجميع لها وندعو لها دئما بالخير والسعادة والتفوق واني اتمني ان يرزقني الله بنت مثلها في علمها واخلاقها ...............