طبعأ هاذا الكود المنتشر وهو خاطئ
كود التعريف بالمكتبة:
Private Declare Function ActivateKeyboardLayout Lib "user32" Alias "ActivateKeyboardLayout" (ByVal HKL As Long, ByVal flags As Long) As Long
و لتغير اللغة مثلاً :
الإنجليزية هى الافتراضية نكتب كود:
ActivateKeyboardLayout 0 , 1
لو العربية هى اللغة الثانية نكتب كود:
ActivateKeyboardLayout 1 , 1
لو الفرنسية هى اللغة الثالثة نكتب كود:
ActivateKeyboardLayout
2 , 1
Private Declare Function ActivateKeyboardLayout Lib "user32" Alias "ActivateKeyboardLayout" (ByVal HKL As Long, ByVal flags As Long) As Long
و لتغير اللغة مثلاً :
الإنجليزية هى الافتراضية نكتب كود:
ActivateKeyboardLayout 0 , 1
لو العربية هى اللغة الثانية نكتب كود:
ActivateKeyboardLayout 1 , 1
لو الفرنسية هى اللغة الثالثة نكتب كود:
ActivateKeyboardLayout
2 , 1
اذا استعملت هذا الكود وكان في نموذجك الكثير من الحقول بعضها يتطلب الكتابة بالفرنسية والآخر بالعربية فلن يعمل بل ستتغير اللغة بشكل عشوائي وستحير المستخدم بحيث سيتسائل هل بحاسوبه فايروس.
الكود الصحيح هو التالي وهو يعمل ولو كان بحاسوبك 100 لغة
بالنسبة للغة العربية أكتب في الحقل عند تنشيطه
()Private Sub Text1_GotFocus
ActivateKeyboardLayout 67175425, 167175425
End Sub
بالنسبة للغة الفرنسية:
()Private Sub Text2_GotFocus
ActivateKeyboardLayout 67896332, 67896332
End Sub
» منهج رياضيات ثالث ثانوي علمي مطور الفصل الدراسي الاول
» عند الرقم اربعه شد الكرسي من تحت اي عضو
» الطيف
» كود عمل الالة الحاسبه في الفيجوال بيسك 6
» كل عام وانتي بخير.. فتاة الجوري الابيض..
» منهج رياضيات ثاني ثانوي علمي مطور
» منهج فيزياء ثاني ثانوي علمي مطور الفصل الاول
» لعبه روووووووووووعه**لاتفوتكم
» قــــــــــمر 14
» لعبة الصراحه
» كون كلمة صابون وزحلق العضو الذي تبي