TopPicLogo TopPicText

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

Прислал: Александр Коротков 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 

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