بارك الله فيك استاذى الكريم اسلام وجزاك الله خيرا
بارك الله فيك دكتور محمود وجزاك الله خيرا
هذه محاولة منى بعد اذن دكتور محمود
نبدأ بفتح
مديول جديد ووضع هذا الكود به
Option Explicit
Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Enum ELanguage
EN '' E
AR '' A
End Enum
Public Sub Langauge(lang As ELanguage)
Select Case lang
Case ELanguage.AR
LoadKeyboardLayout "00000401", 1
Case ELanguage.EN
LoadKeyboardLayout "00000409", 1
End Select
End Sub
ثم وضع هذا الكود فى حدث الشيت الموجود به التكست بوك وليكن
TextBox1
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Private Declare Function SetKeyboardState Lib "user32" (lppbKeyState As Byte) As Long
Private keyCodes(0 To 255) As Byte, caps%
Private Sub TextBox1_Change()
If GetKeyState(20) = 1 Then
Langauge ELanguage.EN
Else
Langauge ELanguage.AR
End If
End Sub