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

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

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

Как изменить раскладку клавиатуры (Ru-En-De ...)?

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

Инструкции

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

Код

rivate Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long 

Private Const KLF_ACTIVATE = 1 
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 

Public Function nasGetMultiDgital( _ 
    Optional lngNum As Long = 0, _ 
    Optional lngDigitPlace As Long = 0) As String 
 If lngDigitPlace <= 0 Then 
  nasGetMultiDgital = lngNum 
  Exit Function 
 End If 
 Dim strFormat As String 
 strFormat = String(lngDigitPlace, "0") 
 nasGetMultiDgital = Format(lngNum, strFormat) 
End Function 

Private Sub Command1_Click() 
 LoadKeyboardLayout nasGetMultiDgital(400 + LANG_ENGLISH, 8), KLF_ACTIVATE 
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

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

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

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

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


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

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