Re: Dezimalkomma mit API einstellen
12.12.2002 08:36:49
Thomas Risi
Hallo HelmutVersuch's mal in etwa so ...
Option ExplicitDeclare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Declare Function SetLocaleInfo Lib "kernel32" Alias "SetLocaleInfoA" ( _
ByVal Locale As Long, ByVal LCType As Long, ByVal lpLCData As String) As Boolean
Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Public Const LOCALE_SDECIMAL = &HE
Public Const LOCALE_STHOUSAND = &HF
Private Sub GetLocale()
Dim lcid As Long, Einstellung As Long
Dim Info As String
Einstellung = GetUserDefaultLCID()
Info = String(255, 0)
Call GetLocaleInfo(lcid, LOCALE_STHOUSAND, Info, 255)
Info = Left(Info, InStr(Info, Chr(0)) - 1)
MsgBox Info
End Sub
Private Sub SetLocale()
Dim Symbol As String
Dim iRet As Long
Dim Locale As Long
Locale = GetUserDefaultLCID()
Symbol = "."
iRet = SetLocaleInfo(Locale, LOCALE_STHOUSAND, Symbol)
End Sub
Code eingefügt mit Syntaxhighlighter 1.15
Gruß
Thomas
Risi Thomas Softwareentwicklung