تغيير اللغة الى عربية

السلام عليكم

هي الطريقة

--------------------------------------------------

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

Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

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

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

Private KBDLIST As Long

Private arabickbd As Long

Private englishkbd As Long

Private Otherkbd As Long

Public kbdlayout As Long

Private Sub GetLanguageConstants()

Dim kbdlayout As Long

Dim Activekbd As Long

Dim Hkl_next As Long

Dim KBDLIST As Long

Dim i As Long

On Error Resume Next

KBDLIST = GetKeyboardLayoutList(4, 0)

For i = 1 To KBDLIST

Activekbd = ActivateKeyboardLayout(Hkl_next, 0)

If Right(Hex(Activekbd), 1) = 1 Then

arabickbd = Activekbd

ElseIf Right(Hex(Activekbd), 1) = 9 Then

englishkbd = Activekbd

ElseIf Right$(Hex(Activekbd), 1) = "D" Then

Otherkbd = Activekbd

End If

Next

If Otherkbd = 0 Then

Otherkbd = arabickbd

End If

End Sub

Public Sub SetLang(ByVal lang As Integer)

Dim mkey As Long

Select Case lang

Case 1

mkey = ActivateKeyboardLayout(arabickbd, 0)

Case 2

mkey = ActivateKeyboardLayout(englishkbd, 0)

End Select

End Sub

------------------------------------------------------------------------------

وبعدين للتحويل اطلب

SetLang 1 للتحويل للعربي

setlang 2 للتحويل للانجليزي

اخي الكود في وين احطه ؟؟

موديول ؟؟

ولا ايه ؟

setlang 1

وين احطها ؟؟

الكود ضعه في مودل

و

setlang

عندما تريد التغيير الى العربي او في Form_load او sub main

مشكور اخي

عندي سؤال هل يمكن ان

ان اغير اللغة بواسطة sendkeys ??