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

30.10.2007, 16:14. **Показов** 4703. **Ответов** 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

Новые блоги и статьи Все статьи Все блоги /
Как я обхитрил таблицу Word Alexander-7 21.03.2026 Когда мигает курсор у внешнего края таблицы, и нам надо перейти на новую строку, а при нажатии Enter создается новый ряд таблицы с ячейками, то мы вместо нервных нажатий Энтеров мы пишем любые буквы. . .	Krabik - рыболовный бот для WoW 3.3.5a AmbA 21.03.2026 без регистрации и смс. Это не торговля, приложение не содержит рекламы. Выполняет свою непосредственную задачу - автоматизацию рыбалки в WoW - и ничего более. Однако если админы будут против -. . .	Программный отбор элементов справочника Maks 21.03.2026 Установка программного отбора элементов справочника "Сотрудники" из модуля формы документа. В качестве фильтра для отбора служит предопределенное значение перечислений. Процедура. . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .

WORM

	Переход между полями при нажатии ENTER, также как по TAB? 30.10.2007, 16:14. Показов 4703. Ответов 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

Опции темы