• влад
  • Восстановленный участник
  • На форуме с 20 января 2002г.
  • Сообщений: 7
  • Спасибо: 0

Тема: Как програмно поменять раскладку клавиатуры?

Как програмно поменять раскладку клавиатуры с английской на рускую и наоборот

  • giorgi
  • Восстановленный участник
  • На форуме с 22 марта 2008г.
  • Сообщений: 1
  • Спасибо: 0

Re: Как програмно поменять раскладку клавиатуры?

влад добри ВЕЧЕР! ти получил ответ на свои вапрос на тему - Как програмно поменять раскладку клавиатуры с английской на рускую и наоборот. буду презнателен иасли линкнеш.
Предупреждение! Помещайте транслит между тагами [rus] и [/rus].
/Администратор./

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как програмно поменять раскладку клавиатуры?

Option Explicit
Public Declare Function ActivateKeyboardLayout Lib "user32" _
(ByVal HKL As Long, ByVal flags As Long) As Long
 'Keyboard Layout API
Public Const HKL_PREV = 0
Public Const HKL_NEXT = 1
Sub KeyBoard_Previos()
    Call ActivateKeyboardLayout(HKL_PREV, 1)
End Sub
Sub KeyBoard_Next()
    Call ActivateKeyboardLayout(HKL_NEXT, 1)
End Sub

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Как програмно поменять раскладку клавиатуры?

P.S.
Параметр flags задает перемещение заданной(устанавливаемой) раскладки клавиатуры в начало внутреннего списка раскладок клавиатуры.
Я не уверен, что надо всегда устанавливать его в 1, попробуйте поэкспериментировать...
Возвращаемое функцией ActivateKeyboardLayout  значение типа Long - это манипулятор предыдущей раскладки в случае успеха и ноль при неудаче.
Устанавливает информацию в функции GetLastError.

  • brigval
  • brigval
  • Активный участник
  • Откуда: Подмосковье
  • На форуме с 11 декабря 2001г.
  • Сообщений: 2,316
  • Спасибо: 1

Re: Как програмно поменять раскладку клавиатуры?

'Переключение раскладки клавиатуры

Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Public Function KBDToENG()
   'Переключение на английскую раскладку
   Call LoadKeyboardLayout("00000409", &H1)
End Function
Public Function KBDToRUS()
   'Переключение на русскую раскладку
   Call LoadKeyboardLayout("00000419", &H1)
End Function