A voir également:
- Comment basucler d'une langue à une autre sou VB
- Telecharger langue arabe - Télécharger - Bureautique
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Changer langue windows 10 - Guide
- Changer langue facebook - Guide
2 réponses
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)
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)
