Как обработать событие KeyPress каждого TextBox-а?

30.10.2007, 08:33. **Показов** 3493. **Ответов** 12

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

Имеются несколько TextBox с именами: Text(1), Text(2), Text(3) ... Text(n),
Как обработать событие KeyPress каждого TextBox-а?
Text(1)_KeyPress Text1_KeyPress и Text_KeyPress не работают.

30.10.2007, 09:02

А как насчет Text_KeyPress (1)?

30.10.2007, 09:17

Ошибка компиляции.

Или я неправильно понял.

@Alan++ · 30.10.2007, 16:12

Если речь про массив елементов, то
Text_KeyPress(Index As Integer, KeyAscii As Integer)

Вот Index то и есть 0,1,2...n

30.10.2007, 16:26

Именно об этом речь и идет.
А как это оформить?
Не поставишь же цифру вместо Index.

30.10.2007, 16:42

Что значит как форомить так и оформи:
privat sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
select case Index
case 0
.......
case 1
......
end select
end sub

@Alan++ · 30.10.2007, 16:46

Первое для коллекции второе для просто объекта....
Есть разница???)))

Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
Это просто коллекция, так и работай как с коллекцией
Text(Index). 'Сам контрол имеющий индекс коллекции
End Sub

Private Sub Text_KeyPress(KeyAscii As Integer)
Text. 'Сразу контрол...
End Sub

30.10.2007, 17:04

For Alan++:
Простите за 'ТОРМОЗА'
Что первое? что второе?

что касается
Private Sub Text_KeyPress(KeyAscii As Integer)
Text. 'Сразу контрол...
End Sub

пробовал, не работает.

For Anri:
Интересный вариант.
А сработает?

30.10.2007, 18:15

Так яж то быстренька слабал на вб, посмотрел - работает а потом кинул

, я когда не уверен нтак и пишу, что неуверен, а это работает

@Alan++ · 30.10.2007, 18:16

Ну понятно, что не работает...))) Там же написано, что для простого объекта, тобишь который не входит в коллекцию....
Тебе надо...
Private sub Text_KeyPress(Index As Integer, KeyAscii As Integer)
Text(Index).Свойство....
Или Case, If....Ну чего тут не понятного.... Так просто ведь..))
end sub
Найди в MSDN - Control Arrays... Там все написано!!)

30.10.2007, 18:17

если памяти не жалко на лоад повесь и создай массив контролов и юзай, а лучше классик небольшой и читай предыдущее и сл. значение

2 мин трудов то!

30.10.2007, 18:24

Алан++ тоже дело говорит, но я бы написал маасюсенький клас, его и потом можа юзать будет

31.10.2007, 08:15

Всем спасибо!
Вариант Anri работает.

Новые блоги и статьи Все статьи Все блоги /
Переходник 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 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

Славик

	Как обработать событие KeyPress каждого TextBox-а? 30.10.2007, 08:33. Показов 3493. Ответов 12 Метки нет (Все метки) Имеются несколько TextBox с именами: Text(1), Text(2), Text(3) ... Text(n), Как обработать событие KeyPress каждого TextBox-а? Text(1)_KeyPress Text1_KeyPress и Text_KeyPress не работают.

YURA
	30.10.2007, 09:02
	А как насчет Text_KeyPress (1)?

Славик
	30.10.2007, 09:17
	Ошибка компиляции. Или я неправильно понял.

@Alan++ 0 / 0 / 0 Регистрация: 30.10.2007 Сообщений: 37
	30.10.2007, 16:12
	Если речь про массив елементов, то Text_KeyPress(Index As Integer, KeyAscii As Integer) Вот Index то и есть 0,1,2...n 0

Славик
	30.10.2007, 16:26
	Именно об этом речь и идет. А как это оформить? Не поставишь же цифру вместо Index.

Anri
	30.10.2007, 16:42
	Что значит как форомить так и оформи: privat sub Text_KeyPress(Index As Integer, KeyAscii As Integer) select case Index case 0 ....... case 1 ...... end select end sub

@Alan++ 0 / 0 / 0 Регистрация: 30.10.2007 Сообщений: 37
	30.10.2007, 16:46
	Первое для коллекции второе для просто объекта.... Есть разница???))) Private Sub Text_KeyPress(Index As Integer, KeyAscii As Integer) Это просто коллекция, так и работай как с коллекцией Text(Index). 'Сам контрол имеющий индекс коллекции End Sub Private Sub Text_KeyPress(KeyAscii As Integer) Text. 'Сразу контрол... End Sub 0

Славик
	30.10.2007, 17:04
	For Alan++: Простите за 'ТОРМОЗА' Что первое? что второе? что касается Private Sub Text_KeyPress(KeyAscii As Integer) Text. 'Сразу контрол... End Sub пробовал, не работает. For Anri: Интересный вариант. А сработает?

Anri
	30.10.2007, 18:15
	Так яж то быстренька слабал на вб, посмотрел - работает а потом кинул , я когда не уверен нтак и пишу, что неуверен, а это работает

@Alan++ 0 / 0 / 0 Регистрация: 30.10.2007 Сообщений: 37
	30.10.2007, 18:16
	Ну понятно, что не работает...))) Там же написано, что для простого объекта, тобишь который не входит в коллекцию.... Тебе надо... Private sub Text_KeyPress(Index As Integer, KeyAscii As Integer) Text(Index).Свойство.... Или Case, If....Ну чего тут не понятного.... Так просто ведь..)) end sub Найди в MSDN - Control Arrays... Там все написано!!) 0

Anri
	30.10.2007, 18:17
	если памяти не жалко на лоад повесь и создай массив контролов и юзай, а лучше классик небольшой и читай предыдущее и сл. значение 2 мин трудов то!

Anri
	30.10.2007, 18:24
	Алан++ тоже дело говорит, но я бы написал маасюсенький клас, его и потом можа юзать будет

Славик
	31.10.2007, 08:15
	Всем спасибо! Вариант Anri работает.