Функция GetUserDefaultLCID

Declare Function GetUserDefaultLCID Lib "kernel32" () As Long

GetSystemDefaultLCID получает локальный контекст по умолчанию для текущего пользователя

Возвращаемое значение

Функция в успешном случае возвращает идентификатор локального контекста по умолчанию для текущего пользователя или 0 в случае ошибки

Параметры

Фунция не имеет параметров

Пример

' Получим символ денежной валюты,
' используемый в региональных настройках
   Const LOCALE_SCURRENCY = &H14

   Dim Symbol As String
   Dim iRet1 As Long
   Dim iRet2 As Long
   Dim lpLCDataVar As String
   Dim Pos As Integer
   Dim Locale As Long
   
   Locale = GetUserDefaultLCID()
   iRet1 = GetLocaleInfo(Locale, LOCALE_SCURRENCY, lpLCDataVar, 0)
   
   Symbol = String$(iRet1, 0)
   iRet2 = GetLocaleInfo(Locale, LOCALE_SCURRENCY, Symbol, iRet1)
   Pos = InStr(Symbol, Chr$(0))
   If Pos > 0 Then
      Symbol = Left$(Symbol, Pos - 1)
   End If
   MsgBox Symbol

Смотри также

ConvertDefaultLocale, GetLocaleInfo, GetSystemDefaultLCID

Категория

Поддержка национальных языков