كود لتغيير لغة مربع النص للعربية عند الإدخال تلقائيا إذ لم تكن كذلك

[ًعبد من عباد الله]

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

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

[Shivan Rekany]

42 دقائق مضت, وائل أبو عبد الرحمن said:

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

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

والسلام عليكم

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

وتغير الخاصية الكيبورد الادخال الى العربية

كما مبية في الصورة الادناه

[ًعبد من عباد الله]

أخى شفان شكرا لاهتمامك بالرد

أعلم هذه الطريقة ولكنى أريد كود لعمل ذلك فهل هذا متاح ام أن به شىء صعب وأكرر شكرى لك

[Shivan Rekany]

10 دقائق مضت, وائل أبو عبد الرحمن said:

أخى شفان شكرا لاهتمامك بالرد

أعلم هذه الطريقة ولكنى أريد كود لعمل ذلك فهل هذا متاح ام أن به شىء صعب وأكرر شكرى لك

الیک ھذا الكود

Private Sub ملاحظات_GotFocus()
	Me.ملاحظات.KeyboardLanguage = 3
End Sub

غير ( ملاحظات ) باسم مربع نصي عندك

[ًعبد من عباد الله]

أستاذ شفان جزاك الله خيرا

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

استفسار أخر إذا سمحت بارك الله فيك ما هو برنامج الشرح الذى استخدمته لعرض الصورة في مشاركتك السابقة 

تم تعديل أغسطس 16, 2017 بواسطه وائل أبو عبد الرحمن