Как сделать переключение языка ввода при попадании в определенное поле

[smoky]

Вобщем сабж. Есть несколько полей - к примеру 3 поля. В первое и третье надо вводить слова только на русской раскладке, во второе - буквенный код вида D013 по английски. Реально ли соорудить сабж? имхо надо юзать вбскрипт подскажите или лучше ткните готовым... ибо я в скриптах еще плохо разбираюсь... решить задачу способами: поставить пунтасвитчер и изменить буквенный код на "по-русски" Д013 не предлагать Решение может еще кому понадобится, так что тема довольно актуальная. По форуму полазив и погуглив - решения не нашел... если есть где - ткните

[Serge_Bliznykov]

реально.

вот, например,

Переключение раскладки на русскую если в данный момент раскладка английская средствами WinAPI:

(с) Автор: Troitsky, Отправлено:10:28 04-11-2006

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

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


Sub ChangeKeyboardLayout() 
Dim KeybLayoutName As String 
KeybLayoutName = String(9, 0) 
GetKeyboardLayoutName KeybLayoutName 
'409 - английская, 
'419 - русская 
'Переключение раскладки на русскую если в данный момент раскладка английская 
If Val(CStr(CLng(Left$(KeybLayoutName, InStr(1, KeybLayoutName, Chr(0)) - 1)))) = 409 Then 
  ActivateKeyboardLayout 0, 0 
End If 
End Sub

[smoky]

О! Самое то, спасибо! для тех кому понадобится:
Сам этот скрипт пихаем в редакторе VB в модуль
На нужное нам событие вешаем:

Private Sub Поле8_GotFocus()
 ChangeKeyboardLayout
End Sub

удобно и просто.

[Giku]

а на Delphi 7 ???

[Giku]

sorry не туда записал, но если кто знает скажите плззз

[Виталий_Сахно]

Народ! А кто знает как сделать тоже самое но для VBA7 ? Пишет, что функция должна быть описана как PtrSafe Function. Почитал на http://excelvba.ru/articles/WinAPI, попробовал просто (тупо) заменить Long на LongPtr. другой разницы в приведенных примерах не увидел. Однако не заработало. Мало того при компиляции в 2007 сразу выдает ошибку - оно и понятно - таких типов переменных у 2007 нет.

[Aleksandr H.]

У меня так

#If Win64 Then
    Public Declare PtrSafe Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long  ' для отримання вибраної мови
    
     Public Declare PtrSafe Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer ' для отримання статусів КАПС, НАМ, СКРОЛ
     
    Public Declare PtrSafe Function ActivateKeyboardLayout& Lib "user32" (ByVal HKL As Long, _
    ByVal flags As Long) ' для переключення розкладки клавіатури
     
    Public Declare PtrSafe Function GetKeyboardLayout& Lib "user32" (ByVal dwLayout As Long)
 #Else
    Public Declare Function GetKeyboardLayoutName Lib "user32" Alias "GetKeyboardLayoutNameA" (ByVal pwszKLID As String) As Long   ' для отримання вибраної мови

           
    Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer  ' для отримання статусів КАПС, НАМ, СКРОЛ
     
    Public Declare Function ActivateKeyboardLayout& Lib "user32" (ByVal HKL As Long, _
        ByVal flags As Long) ' для переключення розкладки клавіатури
     
    Public Declare Function GetKeyboardLayout& Lib "user32" (ByVal dwLayout As Long)
 #End If

https://msdn.microsoft.com/ru-ru/lib...or=-2147217396