GetLocaleInfo

[올란도]

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 Command1_Click()
   
End Sub

Private Sub cmdExit_Click()
    End
End Sub

Private Sub cmdGetLocaleInfo_Click()
    Dim cBuf As String * 100
    Const LOCALE_USER_DEFAULT = &H400
    Const LOCALE_SCURRENCY = &H14       '통화기호
    Const LOCALE_SINTLSYMBOL = &H15     '국제통화기호
    Const LOCALE_SMONDECIMALSEP = &H16  '소수점 기호
    Const LOCALE_SMONGROUPING = &H18    '천단위기호
    Const LOCALE_SMONTHOUSANDSEP = &H17 '자리그룹핑(천단위의 자리수)
    Const LOCALE_ICURRDIGITS = &H19     '소수점이하 자리수
    Const LOCALE_IDIGITS = &H11         '국가 소수점 이하의 자리수
   
    Const LOCALE_IINTLCURRDIGITS = &H1A '소수점 이하의 자리수
    Const LOCALE_INEGCURR = &H1C        '음수통화모드
    Const LOCALE_ICURRENCY = &H1B       '양수통화모드
    Const LOCALE_ILZERO = &H12          '십진법에서의 앞의 0
   
    Const LOCALE_SNATIVEDIGITS = &H13   '음수 아스키 0-9
    Const LOCALE_SLIST = &HC            '리스트항목구분자
    Const LOCALE_IMEASURE = &HD
   
   
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SLIST, cBuf, 99
    List1.AddItem "리스트 항목 구분자              : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_IMEASURE, cBuf, 99
    List1.AddItem "0 = metric, 1 = US              : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SCURRENCY, cBuf, 99
    List1.AddItem "지역 통화 기호                  : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SINTLSYMBOL, cBuf, 99
    List1.AddItem "국제 통화 기호                  : " & cBuf
   
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SMONDECIMALSEP, cBuf, 99
    List1.AddItem "소수점 기호                     : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SMONTHOUSANDSEP, cBuf, 99
    List1.AddItem "천단위 기호                     : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SMONGROUPING, cBuf, 99
    List1.AddItem "자리의 그룹핑                   : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_ICURRDIGITS, cBuf, 99
    List1.AddItem "소수점 이하                     : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_IDIGITS, cBuf, 99
    List1.AddItem "통화표시에서 소수점 이하 자리수 : " & cBuf
   
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_ICURRENCY, cBuf, 99
    List1.AddItem "양수 통화 모드                  : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_INEGCURR, cBuf, 99
    List1.AddItem "음수 통화 모드                  : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_IINTLCURRDIGITS, cBuf, 99
    List1.AddItem "소수점 이하 자리수              : " & cBuf
   
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_ILZERO, cBuf, 99
    List1.AddItem "십진법에서의 앞의 0             : " & cBuf
    GetLocaleInfo LOCALE_USER_DEFAULT, LOCALE_SNATIVEDIGITS, cBuf, 99
    List1.AddItem "음수 아스키 0-9                 : " & cBuf

End Sub

Private Sub Form_Load()
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
End Sub