title image


Smiley Re: Hilfe
versuchs damit:

***************

Option Explicit

Dim Ergebnis As String

Private Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer

Private Declare Function GetSystemDefaultLCID Lib "kernel32" () As Long



Private Declare Function GetUserDefaultLangID Lib "kernel32" () As Integer

Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long



' kannst du den entsprechenden Ländercode abfragen.

' Diesen Ländercode verwendest du dann in der API



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



' bei Locale, bei LCType gibst du dann die gewünschte Konstante an,dann bekommst du bei lpLCData das Ergebnis

' zB für 's Land



Private Const LOCALE_SCOUNTRY = &H6

Private Const LOCALE_SENGCOUNTRY = &H1002



' zB für die Sprache

Private Const LOCALE_SLANGUAGE = &H2

Private Const LOCALE_SENGLANGUAGE = &H1001

Private Const LOCALE_SABBREVLANGNAME = &H3



' zB für das Datumsformat

Private Const LOCALE_SDATE = &H1D

Private Const LOCALE_STIME = &H1E

Private Const LOCALE_SSHORTDATE = &H1F

Private Const LOCALE_SLONGDATE = &H20

Private Const LOCALE_IDATE = &H21



Private Sub Form_Load()

Dim z As Long

List1.Clear

Ergebnis = Space(25)

z = GetLocaleInfo(GetUserDefaultLangID, LOCALE_SLANGUAGE, Ergebnis, 0)

z = GetLocaleInfo(GetUserDefaultLangID, LOCALE_SLANGUAGE, Ergebnis, Len(Ergebnis))

List1.AddItem "mit LOCALE_SLANGUAGE => " & Ergebnis

' => volle Bezeichnung + Land (deutsch(Österreich))

Ergebnis = Space(25)

z = GetLocaleInfo(GetUserDefaultLangID, LOCALE_SENGLANGUAGE, Ergebnis, 0)

z = GetLocaleInfo(GetUserDefaultLangID, LOCALE_SENGLANGUAGE, Ergebnis, Len(Ergebnis))

List1.AddItem "mit LOCALE_SENGLANGUAGE => " & Ergebnis

' => englische Bezeichnung(German)

Ergebnis = Space(25)

z = GetLocaleInfo(GetUserDefaultLangID, LOCALE_SABBREVLANGNAME, Ergebnis, 0)

z = GetLocaleInfo(GetUserDefaultLangID, LOCALE_SABBREVLANGNAME, Ergebnis, Len(Ergebnis))

List1.AddItem "mit LOCALE_SABBREVLANGNAME => " & Ergebnis

' => 3 zeichen (DEA)

Ergebnis = Space(25)



z = GetLocaleInfo(GetUserDefaultLCID, LOCALE_SDATE, Ergebnis, 0)

z = GetLocaleInfo(GetUserDefaultLCID, LOCALE_SDATE, Ergebnis, Len(Ergebnis))

List1.AddItem "mit LOCALE_SDATE => " & Ergebnis

' => 1 Trennzeichen (-)

End Sub

*******************

alles OK?

klaus



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: