Переход курсора после нажатия Enter

[Андрей260276]

Подскажите, что не так... Хочу сделать в своей программке переход из одного текттового поля к компоненту DTPicker1,после нажатия Enter, тоесть ввёл цифру в Text1,нажал Enter,ввёл число в DTPicker1,нажал Enter,фокус перешёл к кнопке нажал Enter нажалась кнопка. Вроде подробно описал.
Я пробую так :
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then ' пользователь нажал <Enter>
' курсор в следующее поле ввода
If Index < 4 Then Text(Index + 1).SetFocus
End If
End Sub
Но не работает. Помогите парни решить проблемку...

[Viper]

а вот интересно откуда у теяб Index берется?

[Nicky]

Нажатия лови на форме (KeyPreview = True), иначе придется в каждом контроле обрабатывать

[Andrey Fedorov]

Подскажите, что не так...

Не так - это то что ты пытаешься следовать стилю DOS.

В Windows по Enter-у должен осуществляться ввод/сохранение всех полей на форме, а для перехода между полями есть клавиша Tab.

[alibek]

Не так - это то что ты пытаешься следовать стилю DOS.

Не надо клеветы
Это не стиль DOS, это стиль FoxPro и Clipper.
Если не учитывать эти гадости, а также некоторые банковские и финансовые самоделки, то Tab для перехода по полям использовалось чаще.

[Andrey Fedorov]

Не так - это то что ты пытаешься следовать стилю DOS.

Не надо клеветы
Это не стиль DOS, это стиль FoxPro и Clipper.

Ну могет быть - в DOS я в основном с FoxPro и работал
В общем, оттуда ноги растут.

[Андрей260276]

Нажатия лови на форме (KeyPreview = True), иначе придется в каждом контроле обрабатывать

Подскажите если не трудно,как это сделать... Желательно пример если есть.


Я вот тут пробую : Select Case KeyAscii
Case 13 ' клавиша <Enter>
Text2.SetFocus

Case Else
KeyAscii = 0
End Select

[Konst_One]

гиблое это дело: делать переход между контролами по ENTER, поверь
будет куча у тебя проблем, имхо

[Andrey Fedorov]

гиблое это дело: делать переход между контролами по ENTER, поверь
будет куча у тебя проблем, имхо

Угу.
И отвыкать надо от дурных привычек, в любом случае.

[alibek]

Ну поставь KeyPreview = True и в коде формы напиши:

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

Private Sub Form_KeyPress(KeyAscii As Integer)
  If KeyAscii = vbKeyReturn Then
    KeyAscii = 0
    SendKeys "{TAB}", True
  End If
End Sub

Но лучше послушай более опытных товарищей и забей на этот автопереход по Enter.

[S397]

Используй KeyDown вместо KeyPress и будет тебе счастье.

Относительно использования клавиши Enter для перехода между полями, скажу, что в системах массового ввода информации быстрее поступать именно так. Не верите, возьмите двух операторов и секундомер и замерьте, что быстрее вводить инфу только используя алфавитно-цифровую клавиатуру и Enter или TAB, а потом спросите у них еще как удобней. А потом откройте Excel введите текст в ячейку нажмите Enter и посмотрите, куда делся курсор.

[Konst_One]

и при чем тут Excel

[alibek]

Не верите, возьмите двух операторов и секундомер и замерьте, что быстрее вводить инфу только используя алфавитно-цифровую клавиатуру и Enter или TAB, а потом спросите у них еще как удобней.

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

[Nicky]

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

Да не, смысл есть. К примеру, сидит оператор целый день набивает цифры (суммы, номера договоров и т.д.). И вполне логично, что делает он это на цифровой клавиатуре и переходит по Enter'у там же

[alibek]

К примеру, сидит оператор целый день набивает цифры (суммы, номера договоров и т.д.). И вполне логично, что делает он это на цифровой клавиатуре и переходит по Enter'у там же

На дворе 2006 год.
Какой смысл большую кучу однообразных данных вручную, когда это можно автоматизировать?
А на случай ручного ввода небольшого количества данных скорость ввода данных особого рояля не играет.

[S397]

Какой смысл большую кучу однообразных данных вручную, когда это можно автоматизировать?

Наверняка можно. Но я например не способен в рамках разумного бюджета решить такую задачу: Ввод в течении часа 10 тыс бюллетений для голосования, окончательная форма которых и вопросы заданные в них, утверждаются на этом же собрании в предыдущем вопросе. А акционеры ставят каракулями % от приндлежащего им количества акций, и в праве, например, на суде потребовать с Правления данные о том, как они голосовали. Погрешность допускаемая всеми системами распознавания рукописного текста (и ижие с ними системами распознавания речи) в данном случае неприемлема.

[uhm]

В общем, S397 прав. Далеко не все можно автоматизировать, а цифровая клавиатура с Enter'ом для ввода цифр куда более удобна, чем обычная с TAB'ом.

[alibek]

Вот потому матричные принтеры практически нигде, кроме банков, и не используются (я знаю, почему там матричные принтеры используются)
Надо не программы адаптировать к старым методам, надо методы и людей адаптировать к новым технологиям.

[Konst_One]

не порите чушь, товарищи
я пишу банковский софт: нет там никакого перехода по ENTER, только по TAB

а переучивать персонал надо, тут никуда не денешься - прогресс видите ли...

[alibek]

я пишу банковский софт: нет там никакого перехода по ENTER, только по TAB

Не то, чтобы я с тобой спорил, но...
Далеко не ты один пишешь банковский софт

[uhm]

Как раз в банке у меня одна единственная программа имеет интерфейс "под ДОС" и в ней переход можно делать и по Enter, и по TAB

А вот когда я в бытность студентом зарабатывал, забивая в Экселе информацию с титульных листов олимпиадных работ...

[Konst_One]

я ,все же, сторонник TAB, имхо удобней

[blinow]

Вот потому матричные принтеры практически нигде, кроме банков, и не используются (я знаю, почему там матричные принтеры используются)
Надо не программы адаптировать к старым методам, надо методы и людей адаптировать к новым технологиям.

Ну ребята, ну молодцы, оказывается не компьютер для человека, а человек для компьютера. Это повидимому Вы и придумали при оплате в Сбербанке писать на бумажонке длиннущие коды вида платежа и старушка матерясь пытается оплатить рублевую госпошлину выписывая 20, 30 цифр какой-то абракадабры и тут-же появились ушлые рябята предлагающие за 10р заполнить бумажонку или же сам банк с невинной рожей предлагает тоже самое. Наверно было проще написать "Госпошлина" и все, а оператор там, сам или программно ставит какие хошь коды.

Цифровая клавиатура, для того и предназначена, чтоб быстро вводить цифры. Посмотрите Excel, Access я что-то не заметил там особого напряга по переходу по Enter, а вам лень написать немного кода, ну-ну.
При древних ЭВМ были техники и программисты, и всегда ругались, кто главней. Но ни кому в голову не приходило, что главней пользователь, он в конечном итоге деньги вам дает, а вы существуете лишь для него и не для чего больше.

Вот один из вариантов использования перехода по Enter

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

Private Sub txtField_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
    Case 13
        If txtField(Index).Text = "" Then
            KeyCode = 0
            SendKeys "{TAB}"
        Else
            If txtField(Index).SelStart = 0 And txtField(Index).SelLength = Len(txtField(Index).Text) Then
                KeyCode = 0
                SendKeys "{TAB}"
            ElseIf txtField(Index).SelStart = Len(txtField(Index).Text) Then
                KeyCode = 0
                SendKeys "{TAB}"
            Else
                txtField(Index).SelStart = 0
                txtField(Index).SelLength = Len(txtField(Index).Text)
            End If
        End If
....


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

[lister]

В Windows по Enter-у должен осуществляться ввод/сохранение всех полей на форме, а для перехода между полями есть клавиша Tab.

Ну почему уж сразу "должен"... Что есть такой закон?

Да, использовать Enter для навигации по полям это некий моветон. Таб в этом деле используется чаще.

Но друзья мои, не будем забывать о конечном пользователе. Если ему по душе "гулять по полям" при помощи Enter, пусть пользуется на здоровье. Это и есть дружественный интерфейс. И еще желательно добавить быструю навигацию по полям. И BackColor полей в фокусе менять неплохо бы, если оных много.

Ну а кто любит перемещаться табом, а закрывать окна энтером и эскейпом - тот снимет галку в настройках программы у чекбокса со словами "Использовать клавишу Enter для навигации".


blinow
Во всем с тобой согласен, за исключением места использования перехода по Enter.
Нажатия проще ловить на форме.

[alibek]

Это повидимому Вы и придумали при оплате в Сбербанке писать на бумажонке длиннущие коды вида платежа и старушка матерясь пытается оплатить рублевую госпошлину выписывая 20, 30 цифр какой-то абракадабры и тут-же появились ушлые рябята предлагающие за 10р заполнить бумажонку или же сам банк с невинной рожей предлагает тоже самое. Наверно было проще написать "Госпошлина" и все, а оператор там, сам или программно ставит какие хошь коды.

Как только ты мне объяснишь, зачем печатать платежку, затем вручную ее заполнять, чтобы вручную вбивать ее в компьютер, я тут же обдумаю твою идею. Но пока я смысла в ней не вижу.
Это тоже самое, что сделать автомобиль, в котором водитель не имеет обзора, потому что окна находятся на полметра выше его головы.
Можно конечно от нечего делать изобретать систему зеркал, которая будет передавать ему изображение снаружи. Оптимизировать ее, подстравивать, чтобы бедному водителю не приходилось слишком много крутить головой.
А можно выкинуть нафиг всю эту систему зеркал и поставить цифровой дисплей, прямо у него перед глазами.
Ну или если до дисплеев не доросли, то выкинуть идею, и проектировать автомобиль так, чтобы окна находились на уровне головы водителя.

[blinow]

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

[lister]

Про отлавливание на форме, конечно проще, но если форма тяжеленная и завалена разнотипными контролами, гридами и прочей дрянью

В этом случае оператор TypeOf поможет

[zHackLeX]

Ну, раз надо Enter, пускай Enter... хоть даже я и за Tab.

ЗЫ. огромное сорри за оффтоп.
Однако же... прям холивар новый... можно тему переносить