MyTetra Share
Делитесь знаниями!
Переключение раскладки клавиатуры
16.03.2019
23:43
Раздел: !Закладки - VBA - Access - msa.polarcom.ru - 16 Система

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

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

Declare Function LoadKeyboardLayout Lib "user32" Alias _

"LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long

' Переключение на английскую раскладку


Function KBDToENG()

Call LoadKeyboardLayout("00000409", &H1)

End Function

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


Function KBDToRUS()

Call LoadKeyboardLayout("00000419", &H1)

End Function




 
MyTetra Share v.0.52
Яндекс индекс цитирования