Перемещение между Text с помощью стрелок

[Доцент]

Подскажите, кто с этим сталкивался:

У меня на форме несколько объектов типа "Text", каким образом можно перемещать фокус курсора между ними с помощью стрелок клавиатуры. Вполне будет достаточно перемещения "вверх" и "вниз". Если возможно, приведите пример кода для трех-четырех таких объектов.

[Алексей++]

за VB пример не покажу, но суть должна быть в том, что надо перехватить события клавиш и подменить сообщение:
1) "вверх" - на "shift+tab"
2) "вниз" - на "tab"

тогда всё произойдёт автоматически

[Доцент]

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

[Алексей++]

даже гоню: если прыгать надо между конкретными окошками, то : ловим клавишу, определяем на каком окошке фокус, потом в зависимости от ситуации ставим фокус на другое окошко

[Доцент]

вариант 1 - для пробы эмитацию нажатия клавишь я поместил в timer, работает нормально.
            но когда идет перехват нажатия стрелок с последующей эмитацией нажатых клавишь,
            происходит станная штука - фокус переходит произвольно по объектам.
вариант 2 - если много объектов, скажет 20 и более, получается слишком большой код.

[Алексей++]

вариант 2 - если много объектов, скажет 20 и более, получается слишком большой код.

тут нужем массив с элементами. Либо с их ID, либо с указателями на контролы(насчёт последних в VB не знаю)

[HandKot]

Подскажите, кто с этим сталкивался:

У меня на форме несколько объектов типа "Text", каким образом можно перемещать фокус курсора между ними с помощью стрелок клавиатуры. Вполне будет достаточно перемещения "вверх" и "вниз". Если возможно, приведите пример кода для трех-четырех таких объектов.

если только вверх и вниз и элементы находятся друг под другом, то ничего вообще не надо писать, ВАСИК всё сделает сам
чтобы переход можно было осуществлять и в сторону и не писать громоздкий код, то лучше, ИМХО, элементы объединить в массив элементов
(св-во Index вроде) и для всех достаточно будет написать один обработчик в котором и отслеживать нажатие клавиш и делать нужное действие

но когда идет перехват нажатия стрелок с последующей эмитацией нажатых клавишь,
 происходит станная штука - фокус переходит произвольно по объектам.

надо просто запретить этим элементам переход по Tab (св-во Tabstop установить в FALSE)

[Доцент]

программа уже написана. сейчас я хочу ее просто доработать. создавать массивы не хотелось бы.
А если установить False по TAB, то как фокус будет передаваться этим объектам? С эмитацией нажатия TAB фокус переходит с первого на третитй и д.т., кроме того он двигается и в обратном направлении. А если эмитировать нажатие Shift+Tab то происходит странная штука - выделение содержимого объекта и случайная передача фокуса как "вниз", так и "вверх".

[HandKot]

массив контролов создается очень просто
всем однотипным (в данном случае текстбоксам) элементам присваивается одно имя, изменяя у них св-во index

если есть и другие элементы, которым нужно передавать фокус по ТАБ, то
создайте массив элементов
для все элементов создайте один обработчик KeyUp в котором выставляйте фокус нужному элементу
примерно так

Код:

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
If KeyCode = ... Then 'нажата клавиша ВВЕРХ
  NewIndex = Index + 1 'вычисляется следующий по индексу TextBox
  On Error Resume Next 'если достигнут последний индекс, это позволит избежать ошибки
  Text1(NewIndex).SetFocus 'операция получения ввода следующего ТекстБокса
ELSE
  ...
End If
End Sub

[Доцент]

программа уже есть и работает, в ней сотни обращений к text-боксам, поэтому делать массив и переименовывать в тексте все text не имеет никакого смысла. если писать программу заново, тогда согласен по поводу массива.
чтобы не быть голословным приведе пример кода, может я что-то упустил. на форме для примера разместил 10 text-боксов (без массива) и две обычные кнопки (если заработат, стрелки поставить не проблема):
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 ‘отпустить кнопку
Const VK_TAB = &H9
Const VK_SHIFT = &H10
'нажимаем кнопку TAB
Private Sub ShowStartMenu1()
Call keybd_event(VK_TAB, 0, 0, 0) 'нажимаем TAB
Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0) 'отпускаем TAB
End Sub
'нажимаем кнопки TAB+SHIFT
Private Sub ShowStartMenu2()
Call keybd_event(VK_SHIFT, 0, 0, 0) 'нажимаем SHIFT
Call keybd_event(VK_TAB, 0, 0, 0) 'нажимаем TAB
Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0) 'отпускаем TAB
Call keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0) 'отпускаем SHIFT
End Sub
Private Sub Command1_Click() 'вниз
ShowStartMenu1
End Sub
Private Sub Command2_Click() 'вверх
ShowStartMenu2
End Sub

[Доцент]

придется воспользоваться массивом, муторно, но деваться не куда. спасибо HandKot!

[HandKot]

программа уже есть и работает, в ней сотни обращений к text-боксам, поэтому делать массив и переименовывать в тексте все text не имеет никакого смысла. если писать программу заново, тогда согласен по поводу массива.
чтобы не быть голословным приведе пример кода, может я что-то упустил. на форме для примера разместил 10 text-боксов (без массива) и две обычные кнопки (если заработат, стрелки поставить не проблема):
Private Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const KEYEVENTF_KEYUP = &H2 ‘отпустить кнопку
Const VK_TAB = &H9
Const VK_SHIFT = &H10
'нажимаем кнопку TAB
Private Sub ShowStartMenu1()
Call keybd_event(VK_TAB, 0, 0, 0) 'нажимаем TAB
Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0) 'отпускаем TAB
End Sub
'нажимаем кнопки TAB+SHIFT
Private Sub ShowStartMenu2()
Call keybd_event(VK_SHIFT, 0, 0, 0) 'нажимаем SHIFT
Call keybd_event(VK_TAB, 0, 0, 0) 'нажимаем TAB
Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0) 'отпускаем TAB
Call keybd_event(VK_SHIFT, 0, KEYEVENTF_KEYUP, 0) 'отпускаем SHIFT
End Sub
Private Sub Command1_Click() 'вниз
ShowStartMenu1
End Sub
Private Sub Command2_Click() 'вверх
ShowStartMenu2
End Sub

ну скорее всего надо так (хотя с АПИ не дружу)

Код:

Private Declare Sub MapVirtualKey Lib "user32" (ByVal uCode As Byte, ByVal uMapType As Byte)
...
'нажимаем кнопки TAB+SHIFT
Private Sub ShowStartMenu2()
    Call keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), 0, 0) 'нажимаем SHIFT
    Call keybd_event(VK_TAB, 0, 0, 0) 'нажимаем TAB
    Call keybd_event(VK_TAB, 0, KEYEVENTF_KEYUP, 0) 'отпускаем TAB
    Call keybd_event(VK_SHIFT, MapVirtualKey(VK_SHIFT, 0), KEYEVENTF_KEYUP, 0) 'отпускаем SHIFT
End Sub

только этот код работать не будет, точнее будет, но не как Вы ожидаете
перемещение будет между всеми элементами, а не только текстбоксами, в соответствии с их TabOrder

[Алексей++]

Доцент, да почему ты считаешь массивы муторными то ? )) Эхъ, васиковая душа...

[HandKot]

Доцент, да почему ты считаешь массивы муторными то ? )) Эхъ, васиковая душа...

наверное, имелось в виду, муторно переделывать.
хотя использовать меню replace  никто не запрещал

[Доцент]

имено переделывать муторно, а работь с массивом нормально.