تحويل لغة الادخال

lordring كتب:

السلام عليكم

على فرض ان لغة الادخال في الكي بورد (الويندوز) كانت العربية افتراضيا ..

ماهو الكود الذي يوضع في النموذج بحيث عند فتحه يقوم بتغير لغة الادخال اليا الى اللغة الانكليزية

وشكرا

تفضل اخي الكريم

استخدم هذا الكود لتغيير لغة الإدخال آلبا الى الإنجليزية عند فتح النموذج

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

Private Sub Form_Open(Cancel As Integer)
LoadKeyboardLayout "00000409", 1
End Sub

لا تنسانا من التقييم بارك الله بك

بالتوفيق

رائع ماشاء الله عليك اختي الفاضلة

طريقة اخرى لتغيير لغة الادخال بالاضافة الى طريقة الاخت زهرا. ضع هذا الكود في النموذج تحت جملة Opetion Compare Database

Private Declare Function ActivateKeyboardLayout Lib _
"user32.dll" (ByVal myLanguage As Long, Flag As Boolean) As Long

Private Const Arabic = 1025 'arabic keyboard language layout
Private Const eng = 1033 'english(united states)keyboard language layout

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

Private Sub Form_Load()

Call ActivateKeyboardLayout(eng, 0)

End Sub

لتغيير لغة الادخال من العربي الى الى الانجليزي استعمل الكود مثل ماهو عليه و لتغيير من الانجليزي الى العربي غير الباراميتر فقط الى Arabic

Private Sub Form_Load()

Call ActivateKeyboardLayout(Arabic , 0)

End Sub

ملاحظة لك اخي الكريم: طريقة الاخت زهرا تعتمد على معرفة قيمة اللغة في Registry او بالاحرى HEX value. اما الطريقة الاخرى تعتمد على معرفة قيم اللغة التي تكون مستبه في حزمة الاوفس. هذا مرجع لارقام اللغات قد تحتاجه في المستقبل الرابط

تحياتي

الاخوة الافاضل شكرا على جهودكم .. تحياتي