Путешествуя по контролам

[Sun07]

Подскажите лучший способ передачи фокуса на контрол с tabindex меньше или больше на 1 от активного. Хотя у меня в проге при удалении контролов остаются разрывы между tabindex больше 1 Нужна навигация по контролам textbox и др. с помощью клавиш -стрелок.

[RayShade]

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

function passfocus(optional direction as long=1) as boolean
on error goto errhdl
passfocus=true
for each ctl in controls
if ctl.tabindex=activecontrol.tabindex+direction then
ctl.setfocus
exit function
end if
next ctl
exit function
errhdl:
passfocus=false
end function


Вот так. Вернет true если смогла отдать фокус. Если указать direction =-1 то отдаст предыдущему. Можно, указать -2 или +3 и перескочить через несколько контролов

[Sun07]

А может быть такая ситуация, что ваша функция передает фокус контролу с TabIndex=2, а его не существует, а существуют только контролы с TabIndex=1 и TabIndex=3, которому и надо передать фокус? Неужели нет функции или метода для определения или передачи фокуса следующему (предыдущему) контролу? Неужели надо всех перебирать в цикле?

[Viper]

его не может не существовать. При удалении элемента, меняются TabIndex'ы у оставшихся элементов

[Tamplier]

При удалении элемента, меняются TabIndex'ы у оставшихся элементов

Че-то ни разу не замечал... Не проще ли в цикле с опцие On Error Resume Next перебирать?

[RayShade]

Sun07

Это легко можно сделать на основе моей функции.

Она возвращает False если не смогла отдать фокус. Почему бы это не проверить и не вызвать ее еще разок?

[alibek]

Функция с багом.
Если в коллекции контролов встретится, например, Label или Menu, то она вернет False еще до того, как дойдет до контрола с нужным TabIndex.

[RayShade]

Неа. Там не такой foreach

Она просто ищет нужный tabid. А потом пытается, дать элементу фокус.

Если такого элемента нет, или элемент фокус принять не может - функция, просто вернет False и все.

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

function passfocus(optional direction as long=1) as long
on error resume next
passfocus=0
for each ctl in controls
if ctl.tabindex=activecontrol.tabindex+direction then
ctl.setfocus
if err.number=438 then passfocus=-1
exit function
end if
next ctl
errhdl:
passfocus=-2
end function

Вот теперь она вернет:

0 если все окей;

-1 если элемент не принял фокус;

-2 если элемента просто нет.

[Andrey Fedorov]

Подскажите лучший способ передачи фокуса на контрол с tabindex меньше или больше на 1 от активного. Хотя у меня в проге при удалении контролов остаются разрывы между tabindex больше 1 Нужна навигация по контролам textbox и др. с помощью клавиш -стрелок.

Нафиг думать.
Просто подменяй в KeyPress стрелки на vbKeyTab...

[RayShade]

Andrey Fedorov

Вот именно, что думать то нафиг.

А если мне надо в edit box текстан поправить? Тоже отправишь меня, по контролам прыгать?

[Andrey Fedorov]

Andrey Fedorov
Вот именно, что думать то нафиг.
А если мне надо в edit box текстан поправить? Тоже отправишь меня, по контролам прыгать?

Вообще-то думать надо перед тем как это в принципе делать.
Но если задание ставится как в самом начале, то и имеем:

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

Private Sub tx_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyUp
            KeyCode = 0
            SendKeys "+{TAB}"
        Case vbKeyDown
            KeyCode = 0
            SendKeys "{TAB}"
    End Select
End Sub


P.S Человек пытается сделать а-ля DOS.
IMHO - не стоит...

[Sun07]

Спасибо за отклики. Хотел сделать перемещение по контролам с помощью клавиш-стрелок, но благодаря наличию у меня таких контролов как текстбокс с мультистроками, комбобоксов, где стрелки используются для перемещения или выбора значения, идея встала под сомнение. Если как-то(?) отключить реакцию указанных контролов на клавиши стрелки, потеряю перемещение в мультитекстбоксе и выбор значений комбобоксов с помощью клавиатуры, что не представляется разумным. Мало кто из юзеров знает про перемещение с помощью TAB и Shift+TAB, обычно используют стрелки. А так как перемещение надо в режиме редактирования значений контролов, то имею вот такую беду. А как бы было красиво бегать стрелками и быстро редактировать! Единственным выходом вижу прямо указать юзеру про навигацию по TAB и Shift+TAB в лейбеле

[Viper]

Что ж это за пользователи такие, что не знают про навигацию при помощи TAB и Shift+TAB?

[Sun07]

обычные пользователи, которые используют компьютер, как развлечение, которых большинство.

[vvs_adm]

Что ж это за пользователи такие, что не знают про навигацию при помощи TAB и Shift+TAB?

Это ты наверное мой прикол про звездочки не знаешь... Пользователи бывают ОЧЕНЬ разные