تغيير لعة جهاز كمبيوتر

[ابو فتحى]

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

[ابوخليل]

Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, flag As Boolean) As Long
    Private Const ar = 1025
    Private Const Eng = 1033
  
Private Sub changeToAr(Cancel As Integer) 
    Call ActivateKeyboardLayout(ar, True)
End Sub

Private Sub changeToEn(Cancel As Integer)
      Call ActivateKeyboardLayout(Eng, True)
End Sub

 

[ابو فتحى]

20 ساعات مضت, ابوخليل said:

Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32.dll" (ByVal mylanguage As Long, flag As Boolean) As Long
    Private Const ar = 1025
    Private Const Eng = 1033
  
Private Sub changeToAr(Cancel As Integer) 
    Call ActivateKeyboardLayout(ar, True)
End Sub

Private Sub changeToEn(Cancel As Integer)
      Call ActivateKeyboardLayout(Eng, True)
End Sub

اخى ابو خليل 

اولا : الف شكرا على الرد والاهتمام 

ثانيا : ممكن شرح وضع الكود فين 

ثالثا : المطلوب عند نقر على زر اذا كانت اللغة انجليزى يتم التحويل الى العربى 

[ابوخليل]

الكود هكذا افضل

#If Win64 Then
    Private Declare PtrSafe Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As LongPtr, ByVal Flag As Long) As LongPtr
#Else
    Private Declare Function ActivateKeyboardLayout Lib "user32.dll" (ByVal HKL As Long, Flag As Long) As Long
#End If
 
Public Const AR = 1025
Public Const EN = 1033
Public Function changeToAr()
    Call ActivateKeyboardLayout(AR, True)
End Function

Public Function changeToEn()
     Call ActivateKeyboardLayout(EN, True)
End Function

 

تغييير اللغة.mdb

[ابو فتحى]

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

[ابو فتحى]

up

[ابوخليل]

لم ارفع المرفق الا بعد تجربة

المثال يعمل عندي في كلا الحالتين 100%

نتمنى ممن يمر من هنا التجربة وافادتنا

[Moosak]

5 ساعات مضت, ابوخليل said:

نتمنى ممن يمر من هنا التجربة وافادتنا

يعمل بكفاءة 👍🏼🙂

[TQTHAMI]

تحية عطره للجميع 

مشاركة 

 

تغير اللغه.mdb