|
Option Explicit
Const LOCALE_SCURRENCY = &H14
Const LOCALE_SINTLSYMBOL = &H15
Const LOCALE_SMONDECIMALSEP = &H16
Const LOCALE_SMONTHOUSANDSEP = &H17
Const LOCALE_SMONGROUPING = &H18
Const LOCALE_ICURRDIGITS = &H19
Const LOCALE_USER_DEFAULT = &H400
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 Sub Form_Load()
Dim Buffer As String * 100
Dim RetVal As Long
RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SCURRENCY, _
Buffer, 99)
Label2(0).Caption = ConvNull(Buffer)
RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_SINTLSYMBOL, _
Buffer, 99)
Label2(1).Caption = ConvNull(Buffer)
RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, _
LOCALE_SMONDECIMALSEP, Buffer, 99)
Label2(2).Caption = ConvNull(Buffer)
RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, LOCALE_ICURRDIGITS, _
Buffer, 99)
Label2(3).Caption = ConvNull(Buffer)
RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, _
LOCALE_SMONTHOUSANDSEP, Buffer, 99)
Label2(4).Caption = ConvNull(Buffer)
RetVal = GetLocaleInfo(LOCALE_USER_DEFAULT, _
LOCALE_SMONGROUPING, Buffer, 99)
Label2(5).Caption = ConvNull(Buffer)
End Sub
Private Function ConvNull(ByVal sString As String)
Dim Pos As Long
Pos = InStr(sString, Chr$(0))
ConvNull = IIf(Pos > 0, Left$(sString, Pos - 1), "")
End Function
|
|