alicom86
Messages postés1Date d'inscriptionmercredi 18 mai 2005StatutMembreDernière intervention13 mai 2006
-
13 mai 2006 à 15:02
almahi23
Messages postés18Date d'inscriptionvendredi 8 juillet 2005StatutMembreDernière intervention15 avril 2010
-
5 avril 2010 à 22:25
Salut,
g un petit blem, ds une interface vb, je veu qu'une foi j'accède à une zone de texte,la langue de siaise bascule automatiquement vers l'arabe, sans avoir besoin de la changé manulement...
almahi23
Messages postés18Date d'inscriptionvendredi 8 juillet 2005StatutMembreDernière intervention15 avril 2010 5 avril 2010 à 22:25
' j'ai trouver sur ce meme site cette procedure est ca marche
' changerlanguage(0) ou changerlanguage(1) pour changer de lanque
' mieux vaux retard que jamais
Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszklid As String) As Long
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszklid As String, ByVal flags As Long) As Long
Public Sub changerlanguage(ByVal lg As Integer)
Dim resultat As Long
Dim resultato As String
resultato = Space(10)
resultat = GetKeyboardLayoutName(resultato)
If lg = 1 Then
If LCase(Left(resultato, 8)) "00000409" Or LCase(Left(resultato, 8)) "00020401" Or LCase(Left(resultato, 8)) = "0000040c" Then
resultat = LoadKeyboardLayout("00020401", 1)
Else
resultat = LoadKeyboardLayout("00001c01", 1)
End If
Else
resultat = LoadKeyboardLayout("0000040c", 1)
End If
If resultat = 0 Then
MsgBox "vérifiez la version de windows", vbInformation, "Language de windows"
End If
End Sub