فورم اكتب فيه عربى و انجليزى

[خالد الشاعر]

السادة الخبراء

عندى فورم به تكست TextBox3 اكتب بالغة الانجليزية به

ثم انتقل الى TextBox4 اريد عند الانتقال فى هذا التكست يكتب لغة عربية دون استخدام alt+shift

استخدمت هذا الامر فى الفورم لم يعمل معى ReadingOrder = xlRTL

برجاء المساعدة

[أ / محمد صالح]

جرب هذا الكود أخي الكريم

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Private Sub TextBox1_Enter()

LoadKeyboardLayout "00000409", 1

End Sub

Private Sub TextBox2_Enter()

LoadKeyboardLayout "00000401", 1

End Sub

[خالد الشاعر]

استاذ محمد صالح

الف شكر على سرعة هذا الحل الجميل

تسلم ايدك جزاك الله كل خير

و ياريت شرح مبسط لهذا الكود