Как переключить глобальную раскладку клавиатуры с текущей на альтернативную? - 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

Оцени полезность:

15 голосов , оценка 4.133 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы