Привет, всем!
Тут небольшая проблема, но пока не знаю как решить.
Я хотел бы в своей маленькой программке сделать флажок, который показывает какой язык раскладки клавиатуры установлен (русский или английский). Для этого его надо как то определить и при его изменении (какое может быть произведено , как известно, разными комбинациями клавиш) менять флаг. Я думал использовать API функцию (потому что другого решения пока не вижу), но и тут я не смог найти нужную.
Если кто знает какую API функцию можно тут использовать, то подскажите пожалуйста.

GetKeyBoardLayoutList
GetKeyBoardLayoutName
GetKeyBoardLayout

Это понятно, но а как определить, что чувак переключил раскладку клавиатуры. Как известно это можно устанавливать как угодно например Alt + Shift или Ctrl + Shift, я уже не говорю о других программах, которые позволяют переключать раскладку одним нажатием, например, правого Ctrl. При нажатии этой комбинации у тебя снизу слева значок с флагом меняется, так а как мне тоже самое воспринимать в моей программе? - пока мне это так и не пришло в голову (есть предположение что в реестре ковыряться надо ). Если без флага, то проблем нет - считал номер, который тебе выкатывает GetKeyBoardLayoutName и допустим в зависимости от него обрабатываешь нажатие кнопки - именно так я и сделал.
Вообще - это, как говорят некоторые, косметические штучки и особо заниматься мне этим не надо, но все равно спасибо за отклик.
Если кто, что еще знает пишите...  

WM_INPUTLANGCHANGEREQUEST

получает его само приложение, а не окно.....

Кто-нибудь знает как можно решить пример в формате string ("=3+5") c на basic! Не в режиме конструктора.

Гость_Егор, одна тема, один топик.

Это сообщение отредактировал(а) U-Boot - 6.3.2004, 14:00

Посмотри на
http://koding.kolpashevo.info/ >> VB6 >> api >>>

Option Explicit
Private Declare Function GetKeyboardLayoutName _
Lib "user32" Alias "GetKeyboardLayoutNameA" _
(ByVal pwszKLID As String) As Long

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
Dim KeybLayoutName As String, temp As Long, lang As String
KeybLayoutName = String(9, 0)
GetKeyboardLayoutName KeybLayoutName
temp = KeybLayoutName
Select Case temp
Case "00000409", "00000809"
lang = "En"
Case "00000419"
lang = "Ru"
Case "00000422"
lang = "Ukr"
Case "0000043F"
lang = "Kz"
Case "00000423"
lang = "Be"
Case "00000407"
lang = "De"
Case "0000040C"
lang = "Fr"
Case Else
lang = "не известно"
End Select
Label1 = "Раскладка вашей клавы - " & lang
End Sub

Это сообщение отредактировал(а) bom - 8.3.2004, 11:17