Как переключится на русский язык?

[Александр80]

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

[Ramzes]

При помощи АПИ

[Александр80]

Я понимаю, код можно для примера...? Пожалуйста...

[Dzhon]

Может поможет

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

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Sub Command1_Click()
ActivateKeyboardLayout 0, 0
End Sub


[Александр80]

Большое спасибо....

[Odrick]

Советую еще добавить кой-какие константы:

Public Const kb_lay_ru As Long = 68748313
Public Const kb_lay_en As Long = 67699721

и использовать их как первый параметр.

[Александр80]

Спасибо, попробую....

[Александр80]

Всем спасибо....

Private Declare Function ActivateKeyboardLayout Lib "user32" _
(ByVal HKL As Long, ByVal flags As Long) As Long

' Переключаем на русский
ActivateKeyboardLayout 68748313, 0
' Переключаем на английский
ActivateKeyboardLayout 67699721, 0

Оказывается так просто.

[cashman]

В ключе этой темы...
Понятно как сменить раскладку на другую.
А как, чтоб при завершении работы Прога включила, ту что стояла до, установленной Прогой?... т.е. обратно...

[Odrick]

Так собственно...
GetKeyboardLayout
То есть что-то типа:

Dim nStartKL as Long

Private Sub Form_Load()
nStartKL = GetKeyboardLayout (0)
End Sub

Private Sub Form_Unload()
ActivateKeyboardLayout nStartKL, 0
End Sub

Ну и предварительно пообъявлять функции в каком-нить модуле, естественно:
Public Declare Function GetKeyboardLayout Lib "user32" Alias "GetKeyboardLayout" (ByVal dwLayout As Long) As Long

Public Declare Function ActivateKeyboardLayout Lib "user32" Alias "ActivateKeyboardLayout" (ByVal HKL As Long, ByVal flags As Long) As Long

Читайте MSDN!

[cashman]

2Odrick
Твой способ не работает...
Я разместил только не в модуль, а в форму, но и код изменил под это... Форма запускается без глюков, и выходит когда надо, а язык остается тот что был в проге...

[Odrick]

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

[GM]

Кстати не забывайте, что каждая нить имеет свой язык.

[tyomitch]

Кстати не забывайте, что каждая нить имеет свой язык.

Ну просто сюрреализм... Нити с языками

[cashman]

2odrik
я стараюсь не оставлять на форумах свой e-mail, а то потом от спама не спастись.
Выложи пример на форуме, я скачаю, посмотрю и разберусь... наверное.

[GM]

Кстати не забывайте, что каждая нить имеет свой язык.

Ну просто сюрреализм... Нити с языками

Ладно ,раскладка клавиатуры поддерживается на уровне Thread'а.

[Odrick]

Можно и выложить. Только как это сделать на этом форуме?

[cashman]

нажимаешь кнопку "ответить"
а в появившемся окне внизу есть кнопка "добавить приложение",
дальше я думаю ты разберешься...

[Odrick]

Ладно, ни фига не получается - орет, что нет возможности закачать файл, хотя это малюсенький архив

Даю листинг кода, который работает на XP и 98 точно:

Форма с кнопкой Command1:

Option Explicit
Dim nLastKL As Long

Private Sub Command1_Click()
ActivateKeyboardLayout 0, 0
End Sub

Private Sub Form_Load()
nLastKL = GetKeyboardLayout(0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
ActivateKeyboardLayout nLastKL, 0
End Sub

Модуль:
Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
Public Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long

[cashman]

2Odrick
хоть убей ни в какую...
получается установить язык при загрузке формы, а так чтоб изменить его назад - НИКАК... ладно всем спасибо... язык при загрузке/выгрузке - это не главное!..