تحويل الكتابة على اللغة الى عربي او انجليزي

Public Declare Function GetKeyboardLayoutList Lib "user32" (ByVal nBuff As Long, lpList As Long) As Long

Sub setkblang(lang As kblanguage)

Dim kbcount As Long, activekb As Long, i As Integer

kbcount = GetKeyboardLayoutList(0, 0)

For i = 1 To 5

activekb = ActivateKeyboardLayout(1, klf_reorder)

If Val(Right(Hex(activekb), 1)) = lang Then Exit Sub

Next

End Sub

هذة الدالة تحول اللغة تالى عربي او انجليزي عند

text_gotfocus

نضع

setkblang ararbic

setkblang english