Как переключить глобальную раскладку клавиатуры с текущей на альтернативную? - Visual Basic .NET
Формулировка задачи:
Нужно сделать это не зная какие языки в системе доступны. То есть не указывая ни номера страницы (1033,1049) ни аббревиатуры (en-EN, ru-RU).Тупо с имитировать переключение одного языка ввода на другой, так как мы делаем это на клавиатуре.
Решение задачи: «Как переключить глобальную раскладку клавиатуры с текущей на альтернативную?»
textual
Листинг программы
Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Integer, ByVal flags As Integer) As Integer
Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
Dim HKL_NEXT As Integer = 1
Dim dl As Integer = ActivateKeyboardLayout(HKL_NEXT, 0)
If dl = 0 Then MsgBox("Unsuccessful!")
End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д