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

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
SmarT
Обычный пользователь
Обычный пользователь
 
Сообщения: 87
Зарегистрирован: 18.12.2002 (Ср) 19:39
Откуда: Королёв, Россия

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

Сообщение SmarT » 16.09.2003 (Вт) 0:15

Не подскажете, как поменять раскладку клавиатуры из проги на VB6. То есть писал чел на русском, далее он хочет писать на английском, чтобы не менять раскладку вручную.
http://smarticq.net - Все про и для ICQ.

angelina
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 13.11.2002 (Ср) 13:00

Сообщение angelina » 16.09.2003 (Вт) 8:08

через ActivateKeyboardLayout

boevik
Обычный пользователь
Обычный пользователь
 
Сообщения: 72
Зарегистрирован: 23.07.2002 (Вт) 11:44
Откуда: Israel

LoadKeyboardLayot

Сообщение boevik » 16.09.2003 (Вт) 8:13

в 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
Обычный пользователь
Обычный пользователь
 
Сообщения: 87
Зарегистрирован: 18.12.2002 (Ср) 19:39
Откуда: Королёв, Россия

Сообщение SmarT » 16.09.2003 (Вт) 8:35

Пасиб!!! Все работает!
http://smarticq.net - Все про и для ICQ.

TrueTrue
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 167
Зарегистрирован: 20.05.2009 (Ср) 23:18

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

Сообщение TrueTrue » 15.03.2017 (Ср) 11:16

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

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 8

    TopList