كود هل الويندوز عربي ام انجليزي

أنا رأيي إن هذي الطريقة غير عملية

يعني إذا كان عندك أكثر من فورم ، إنت مضطر تعمل في برنامجك ضعف الفورمات إللي عماتها

يعني برنامجك إللي حجمه واحد ميجابايت مثلا ، راح يتحول إل برنامجين حجمه اثنين ميجا بايت .

والله أعلم

لو كان كذا ممكن

في فكرة لكنها غير عملية ، وهي إنك تشوف عن طريق الريجستري إذا كان زر إبدأ مكتوب بالعربي أو بالإنجليزي

إذا كان بالعربي يعني الواجهة عربية

وإذا كان بالإنجليزي يعني الواجهة إنجليزي

لكن مشكلة هذا الكود إن بعض الناس تحط واجهة إنجليزية ، وتغير من زر إبدأ

هنا البرنامج ينخدع

مجرد فكرة

الدالة هي :

Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long

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

00000401

فأن هذا يعني ان اللغة المستعلة حاليا هي العربية (Arabic) وأذا حصلنا على الرقم التالي :

00000409 فأن هذا يعني أن اللغة الحالية هي الأنجليزية (English) .

وأن هذه الدالة لا تحمل أية بارامترات (Par) وتستطيع الحصول على اللغة المستعملة حاليا في النافذة الخاصة بك فقط بوضع هذه الدالة في حدث معين .

لو أننا وضعناها في تايمر , وأنك جربت أن تغير اللغة سوف تعطيك اللغة المستعملة بواسطة أرقام ثوابت .

مثال :

Dim StrName As String

GetKeyBoardLayOutName StrName

If StrName = Val("00000401") Then

Me.Caption = "اللغة الحالية هي عربية "

Else

msgbox StrName

End If