Windows Anglais, Français,Allement LOL !!!! J'AI une question !!!!

Question

Je voudrais savoir si a l'aide de Visual Basic on est capable de savoir si le windows est en anglais etc... À l'aide d'un api ??? Je sais pas moi mais je veux savoir comment on fait...

ShadowMan · Answer

variable = inputbox("Quelle est la langue de votre version de uindoze?", "Version de uindoze")
text1.text=variable

LOOOLLLL =)
c kand meme le moyen le plus simple ;)

ATH|500| · Answer

Mouais ta rason lol ou bien je crois que j'ai une idée tu utilise le bolean dans un label et si il égale a true il est anglais mais si il égale a vrai il est français mais j'ai pas encore essayer lol...

ShadowMan · Answer

Lol mais c koi la commande ki attrribue true ou false à la variable boolean?

if windowsversion.check = "english" then
varboolean = true
end if

???

LOLLL =)

ATH|500| · Answer

nan je l'écrirais comme ça car je crois que si t'a un windows anglais ben ta commande boolean va être à False mais si t'en a un français elle va être a Faux.
Dim a As Boolean

Private Sub Form_Load()
Label1.Caption = a
If Label1.Caption = "False" Then
MsgBox "T'a un Windows anglais"
ElseIf Label1.Caption = "Faux" Then
MsgBox "T'a un windows français"
End If
End Sub

Nightcourrier · Answer

Salut à vous 2,

-------------- dans un module -----------------------------------

' Constante
' Pour la procédure Parametre RegionauxPrivate Const LOCALE_IDATE &H21          'format de date courte : 0 M-J-A, 1 = J-M-A, 2 = A-M-J
Private Const LOCALE_ILDATE = &H22         'format de date longue
Private Const LOCALE_SCOUNTRY = &H6        'pays en toutes lettres
Private Const LOCALE_SNATIVELANGNAME = &H4 'langue, en toutes lettres
Private Const LOCALE_STHOUSAND = &HF       'séparateur des milliers
Private Const LOCALE_SDECIMAL = &HE        'séparateur décimal

'***************************************************************************************
'*               Information sur les parametres regionaux de l'utilisateur             *
'***************************************************************************************

Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" (ByVal locale As Long, _
    ByVal LCType As Long, ByVal lpLCData As String, ByVal cchData As Long) As Long

Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long

Public Function ParametreRegional(parametre As Long) As String

Dim lngResultat As Long
Dim buffer As String
Dim pos As Integer
Dim locale As Long

'récupère l'identifiant de l'information locale de type utilisateur
locale = GetUserDefaultLCID()

'renvoie le nombre de caractères nécessaire pour recevoir la valeur du paramètre demandé
lngResultat = GetLocaleInfo(locale, parametre, buffer, 0)

buffer = String(lngResultat, 0)
GetLocaleInfo locale, parametre, buffer, lngResultat
pos = InStr(buffer, Chr(0))
If pos > 0 Then ParametreRegional = Left(buffer, pos - 1)
End Function

------------------------ fin Module -------------------------------

Pour avoir le Pays ou langue exemple.
    Pays = ParametreRegional(&H6)
    langue = ParametreRegional(&H4)

bonne utilisation, nightcourrier

Nightcourrier :)

Windows Anglais, Français,Allement LOL !!!! J'AI une question !!!!

5 réponses

Discussions similaires