En quelle langue est votre ordi?

Soyez le premier à donner votre avis sur cette source.

Vue 3 649 fois - Téléchargée 291 fois

Description

Ce programme sert à vérifier la configuration:
paramètres régionaux.

Source / Exemple :


' Dans la form:
Private Sub cmdQuitter_Click()
    End
End Sub

Private Sub Form_Load()
    Dim Msg As String
    If LangageFrancophone = False Then
        Msg = "Votre Windows n'est pas configuré pour un usage francophone ! "
        Msg = Msg & "Modifiez vos paramètres régionaux !"
        MsgBox Msg, vbCritical
        End 'Dans ce cas on termine l'application
    Else
        'strMessage_Langue a été créé par la procédure LangageFrancophone
        Msg = "Votre Windows est configuré pour un usage francophone !"
        MsgBox strMessage_Langue, vbInformation, Msg
    End If
    'l'application se continue ici ....
End Sub

' Dans le module:
Private Const internet_protocole = 1  'identificateur de langage
Global strMessage_Langue As String
Private Declare Function GetLocaleInfo _
    Lib "kernel32" Alias "GetLocaleInfoA" _
    (ByVal lngLocale As Long, _
     ByVal lngType As Long, _
     ByVal strRetour As String, _
     ByVal lngLongueurRetour As Long) As Long

Function LangageFrancophone() As Boolean
'La fonction renverra True si Windows est français
    Dim strRetour As String
    LangageFrancophone = True
    strRetour = Space(5) 'Créer une chaîne de longueur 5
    GetLocaleInfo 0, internet_protocole, strRetour, Len(strRetour)
    'Si les caractères 3 et 4 de Retour valent "0c", Windows est français.
    'Les 2 premiers caractères indiquent la variante linguistique.
    strRetour = Left(strRetour, 4)
    Select Case strRetour
        Case "080c"
            strMessage_Langue = "Belge francophone"
        Case "0c0c"
            strMessage_Langue = "Canadien francophone"
        Case "140c"
            strMessage_Langue = "Luxembourgeois francophone"
        Case "040c"
            strMessage_Langue = "Francophone"
        Case "100c"
            strMessage_Langue = "Suisse francophone"
        Case Else
            strMessage_Langue = "Pas francophone"
            LangageFrancophone = False
    End Select
End Function

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
mardi 24 mai 2005
Statut
Membre
Dernière intervention
2 juin 2005

J'aurais dû mettre 10, vu que c'est exactement ce que je cherchais (Quel con <- oui je sais )
Messages postés
102
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
6 juin 2010

Cool, a retenir. Surtout quand on bosse a l'etranger et qu'on ne sait jamais sur quelles langues on va tomber ! Merci.
Messages postés
102
Date d'inscription
mercredi 9 janvier 2002
Statut
Membre
Dernière intervention
6 juin 2010

Cool, a retenir. Surtout quand on bosse a l'etranger et qu'on ne sait jamais sur quelles langues on va tomber ! Merci.
Messages postés
130
Date d'inscription
mercredi 2 janvier 2002
Statut
Membre
Dernière intervention
6 décembre 2006

oh oui très fort!!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.