VBA, MS Access MS Access в примерах

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

Прислал: Александр Коротков norma@mgn.ru


Пример эксплуатации:

Private Sub txtTextField01_GotFocus()
    KBDToENG ' Переключение на английскую раскладку
End Sub



Модуль:

'--------------------------------------------------------------------------
' Module    : modKeyboardLayout
' Author    : Александр Коротков + es(чутка)
' LE Date   : 15.05.2019
' Purpose   : Перекдючение раскладки клавиатуры
'
'--------------------------------------------------------------------------
'
Option Compare Database
Option Explicit

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

Public Function KBDToENG()
' Переключение на английскую раскладку
Dim l&
    l = LoadKeyboardLayout("00000409", &H1)
End Function
 

Public Function KBDToRUS()
' Переключение на русскую раскладку
Dim l&
    l = LoadKeyboardLayout("00000419", &H1)
End Function

Назад ToTop
L.E. 06.01.2020
Рейтинг@Mail.ru