Comment basucler d'une langue à une autre sou VB

Salam ika
voilà un code qui te permettera de basculer d'une langue à une autre (arabe - francaise).
le code comporte deux partie:
1- une partie concernat la declaration et l'plimentation des deux fonctions ActiverAr et ActiverFr que tu pourra les coller directement sur la forme :
'_____ Declaration des fonctions

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

'___Premiere fonction active la langue arabe

Public Sub ActiverAr()
Dim XLoadLangue As Long
Dim XActivLangue As Long
Dim KLF_REORDER As Long
Dim KLF_ACTIVATE As Long

XLoadLangue = LoadKeyboardLayout("00000401", KLF_REORDER)
XActivLangue = ActivateKeyboardLayout(XLoadLangue, KLF_ACTIVATE)
End Sub

'___Deuxieme fonction active la langue francaise

Public Sub ActiverFr()
Dim XLoadLangue As Long
Dim XActivLangue As Long
Dim KLF_REORDER As Long
Dim KLF_ACTIVATE As Long

XLoadLangue = LoadKeyboardLayout("0000040c", KLF_REORDER)
XActivLangue = ActivateKeyboardLayout(XLoadLangue, KLF_ACTIVATE)
End Sub

2- une deuxieme partie concerne l'appel de l'une des deux fonction par son nom:
le code d'appel doit être implimenter dans l'évennement GotFocus du contrôle textbox.
Et il faut que tu ajuste l'allignement du contrôle en changeant la propriete alignement du tex tbox suivant la langue choisie

exemple:
Private Sub text1_GotFocus()
text1.Alignment = RightToLeft
ActiverAr
End Sub

Jespère que ca ira pour toi si non tu peut me contacter par mail
Zbahri@mailcity.com

Bonne chance ami(e)

J'ai peut etre mal compris la question, mais j'utilise un dictionnaire VB (hashmap) pour internationnaliser une application.