Функция GetThreadLocale

Declare Function GetThreadLocale Lib "kernel32"() As Long

GetThreadLocale получает идентификатор локального контекста текущего потока

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

Функция возвращает идентификатор текущего потока

Параметры

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

Пример

' Сравниваем два слова,
' используя локальный контекст
Dim hTL As Long
hTL = GetThreadLocale()
' Сравниваем
Const Str1 As String = "Проект"
Const Str2 As String = "проекТ"
Select Case CompareString(hTL, NORM_IGNORECASE, Str1, Len(Str1), Str2, Len(Str2))
     Case CSTR_LESS_THAN
            MsgBox "Первая строка меньще, чем вторая"
     Case CSTR_EQUAL
            MsgBox "Обе строки одинаковы грамматически"
     Case CSTR_GREATER_THAN
            MsgBox "Первая строка больше, чем вторая"
End Select

Смотри также

SetThreadLocale

Категория

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