Изменить раскладку клавиатуры из программы на VB6

[SmarT]

Не подскажете, как поменять раскладку клавиатуры из проги на VB6. То есть писал чел на русском, далее он хочет писать на английском, чтобы не менять раскладку вручную.

[angelina]

через ActivateKeyboardLayout

[boevik]

в General Declaration

Код: Выделить всё

Private Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Private Const KLF_ACTIVATE = &H1 'Used in LoadKeyboardLayout() API function

Private Enum Lang
    English
    Russian
End Enum


и сама функция по изменению языка

Код: Выделить всё

Private Sub SetKeyboardLang(aLang As Integer)
Dim str As String
Dim l As Long

    Select Case aLang
        Case English
            str = "00000409"
        Case Russian
            str = "00000419"
    End Select

    l = LoadKeyboardLayout(str, KLF_ACTIVATE)
End Sub


[SmarT]

Пасиб!!! Все работает!

[TrueTrue]

Ребят, в FireFox, в адресной строке, метод указанный выше не срабатывает. ((

Устанавливаю курсор в адресную строку, переключаю на Английский язык, остаётся Русский. Есть ещё варианты, как переключить язык?