Переход между полями при нажатии ENTER, также как по TAB?

30.10.2007, 16:14. **Показов** 4681. **Ответов** 9

Студворк — интернет-сервис помощи студентам

Есть форма с несколькими полями. У каждого поля есть Tab-индекс, т.е. порядок, в котором будет меняться фокус при нажатии клавиши TAB. Я хочу, чтобы при нажатии ENTER происходило тоже самое, что и при нажатии TAB, т.е. чтобы менялось активное поле в соответствии с Tab-индексом. Как это сделать?

30.10.2007, 16:48

допустим у тебя на форме 10 Texbox-ов
первый имеет имя Text1
вставь код:
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim obj As Variant
For Each obj In Me.Controls
MsgBox obj.TabIndex
Next
End If
и посмотри на результат, а что с этими цифрами делать, сам думай

, не писать же тут элементарную программу

, про переходы сам допиши

30.10.2007, 16:49

http://www.armentel.com/avb/help/Z3.zip

30.10.2007, 17:04

Держи кусок кода, надеюсь разберешься!
n-размер масива полей.
=================================Cut==== =============================
Public Const leftKey = 37
Public Const upKey = 38
Public Const rightKey = 39
Public Const downKey = 40
Public Const enter = 13

Private Sub Text_Price_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)

Select Case KeyCode

Case downKey
If Index < n Then
Text_Price(Index + 1).SetFocus
Else
Text_Price(Index Mod 1).SetFocus
End If

Case upKey
If Index > 0 Then
Text_Price(Index - 1).SetFocus
Else
Text_Price(n).SetFocus
End If

Case leftKey
Text_Quantity(Index).SetFocus

Case rightKey, enter
Text_Sum(Index).SetFocus

End Select
End Sub
=============================End======== ==============================

30.10.2007, 17:10

Господа! Зачем так сложно?
Попробуйте скачать
http://www.armentel.com/avb/help/Z3.zip
Там есть ответ на этот вопрос (кстати всего две строки) и многое другое.
Извините если кажусь назойливым.

30.10.2007, 17:16

Я скачал http://www.armentel.com/avb/help/Z3.zip
Там 84 текстовых файла. Бегло просмотрел большую часть -- не нашел ответ. Подскажите, в каком именно файле ответ на мой вопрос?

30.10.2007, 17:27

Путь следующий:
КОДЫ КЛАВИШЬ И СВЯЗАННЫЕ С НИМИ СОБЫТИЯ->Действие клавиши Enter подобно клавише Tab

Там лежит:
Private Sub txtText1_KeyPress(KeyAscii As Integer)

If KeyAscii=vbKeyReturn Then

SendKeys '{tab}'
KeyAscii=0

End If

End Sub

30.10.2007, 17:34

P.S. Какие 84 текстовых файла?
Там только один файл AVB.HLP
Если ты не то скачал давай адрес, кину нужный файл.

@Alexey_p · 30.10.2007, 19:12

to Slavik: Po 'http://www.armentel.com/avb/help/Z3.zip' - ku4a tekstovyh failov. Prover', plese, URL. A reschenije, dejstvitel'no, krasivoje.

31.10.2007, 08:43

Excuse me!
http://www.armentel.com/avb/help/avb.zip

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .

WORM

	Переход между полями при нажатии ENTER, также как по TAB? 30.10.2007, 16:14. Показов 4681. Ответов 9 Метки нет (Все метки) Есть форма с несколькими полями. У каждого поля есть Tab-индекс, т.е. порядок, в котором будет меняться фокус при нажатии клавиши TAB. Я хочу, чтобы при нажатии ENTER происходило тоже самое, что и при нажатии TAB, т.е. чтобы менялось активное поле в соответствии с Tab-индексом. Как это сделать?

Anri
	30.10.2007, 16:48
	допустим у тебя на форме 10 Texbox-ов первый имеет имя Text1 вставь код: Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Dim obj As Variant For Each obj In Me.Controls MsgBox obj.TabIndex Next End If и посмотри на результат, а что с этими цифрами делать, сам думай , не писать же тут элементарную программу , про переходы сам допиши

Славик
	30.10.2007, 16:49
	http://www.armentel.com/avb/help/Z3.zip

MiCros
	30.10.2007, 17:04
	Держи кусок кода, надеюсь разберешься! n-размер масива полей. =================================Cut==== ============================= Public Const leftKey = 37 Public Const upKey = 38 Public Const rightKey = 39 Public Const downKey = 40 Public Const enter = 13 Private Sub Text_Price_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) Select Case KeyCode Case downKey If Index < n Then Text_Price(Index + 1).SetFocus Else Text_Price(Index Mod 1).SetFocus End If Case upKey If Index > 0 Then Text_Price(Index - 1).SetFocus Else Text_Price(n).SetFocus End If Case leftKey Text_Quantity(Index).SetFocus Case rightKey, enter Text_Sum(Index).SetFocus End Select End Sub =============================End======== ==============================

Славик
	30.10.2007, 17:10
	Господа! Зачем так сложно? Попробуйте скачать http://www.armentel.com/avb/help/Z3.zip Там есть ответ на этот вопрос (кстати всего две строки) и многое другое. Извините если кажусь назойливым.

WORM
	30.10.2007, 17:16
	Я скачал http://www.armentel.com/avb/help/Z3.zip Там 84 текстовых файла. Бегло просмотрел большую часть -- не нашел ответ. Подскажите, в каком именно файле ответ на мой вопрос?

Славик
	30.10.2007, 17:27
	Путь следующий: КОДЫ КЛАВИШЬ И СВЯЗАННЫЕ С НИМИ СОБЫТИЯ->Действие клавиши Enter подобно клавише Tab Там лежит: Private Sub txtText1_KeyPress(KeyAscii As Integer) If KeyAscii=vbKeyReturn Then SendKeys '{tab}' KeyAscii=0 End If End Sub

Славик
	30.10.2007, 17:34
	P.S. Какие 84 текстовых файла? Там только один файл AVB.HLP Если ты не то скачал давай адрес, кину нужный файл.

@Alexey_p 0 / 0 / 0 Регистрация: 09.05.2007 Сообщений: 130
	30.10.2007, 19:12
	to Slavik: Po 'http://www.armentel.com/avb/help/Z3.zip' - ku4a tekstovyh failov. Prover', plese, URL. A reschenije, dejstvitel'no, krasivoje. 0

Славик
	31.10.2007, 08:43
	Excuse me! http://www.armentel.com/avb/help/avb.zip