MyTetra Share
Делитесь знаниями!
Переключение раскладки клавиатуры
19.07.2018
19:45
Раздел: 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
Яндекс индекс цитирования