Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Алексей Немиро -

Visual Basic 5.0/6.0 - Клавиатуры, мыши, джойстики

Все примеры / Клавиатуры, мыши, джойстики

Как определить текущую раскладку клавиатуры?

Автор: Алексей Немиро | добавлено: 05.03.2010, 16:50 | просмотров: 3634 (1+) | комментариев: 0 | рейтинг: *x10
В примере показано, как определить текущую раскладку клавиатуры. Используется API-функция GetKeyboardLayoutName.

Инструкции

Создайте стандартный EXE-проект. На форме (Form) разместите один элемент CommandButton.

Код

Private Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long 

Private Const LANG_BULGARIAN = &H2 
Private Const LANG_CHINESE = &H4 
Private Const LANG_CROATIAN = &H1A 
Private Const LANG_CZECH = &H5 
Private Const LANG_DUTCH = &H13 
Private Const LANG_DANISH = &H6 
Private Const LANG_ENGLISH = &H9 
Private Const LANG_FINNISH = &HB 
Private Const LANG_FRENCH = &HC 
Private Const LANG_GERMAN = &H7 
Private Const LANG_GREEK = &H8 
Private Const LANG_HUNGARIAN = &HE 
Private Const LANG_ICELANDIC = &HF 
Private Const LANG_ITALIAN = &H10 
Private Const LANG_JAPANESE = &H11 
Private Const LANG_KOREAN = &H12 
Private Const LANG_NEUTRAL = &H0 
Private Const LANG_NORWEGIAN = &H14 
Private Const LANG_POLISH = &H15 
Private Const LANG_PORTUGUESE = &H16 
Private Const LANG_ROMANIAN = &H18 
Private Const LANG_RUSSIAN = &H19 
Private Const LANG_SLOVAK = &H1B 
Private Const LANG_SLOVENIAN = &H24 
Private Const LANG_SPANISH = &HA 
Private Const LANG_SWEDISH = &H1D 
Private Const LANG_TURKISH = &H1F 

Private Sub Command1_Click() 
 Dim KeybLayoutName As String 
 KeybLayoutName = String(8, "0") 
 GetKeyboardLayoutName KeybLayoutName 
 KeybLayoutName = CLng(KeybLayoutName) - 400 
 Select Case CLng(KeybLayoutName) 
 Case LANG_DUTCH, LANG_GERMAN 
  MsgBox "Немецкий язык" 
 Case LANG_ENGLISH 
  MsgBox "Английский язык" 
 Case LANG_RUSSIAN 
  MsgBox "Русский язык" 
 Case Else 
  MsgBox "Язык не определен" 
 End Select 
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Алексей Немиро

Интернет-деятель. Автор многочисленных статей и переводов статей по программированию и информационным технологиям. Работы Алексея можно найти в популярных печатных изданиях компьютерной тематики. Автор проекта Kbyte.Ru.
Сейчас Алексей занимается профессиональным Web-программированием на базе технологий .NET Framework. Иногда пишет различные программки и компоненты для Windows и Android. В свободное время занимается Web-дизайном, увлекается фото- и видеосъемкой.

См. также:
Профиль автора
Алексей Немиро
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Реклама
Счетчики