Значить, имею в форме поля для ввода текста, хотел бы что-бы после ввода определеного количества символов, наример 5, программа перешла автоматический в другое поле ввода ?
Спасибо, всем умникам !
Автоматический переход по полям формы
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 8
• Страница 1 из 1
- David
- Обычный пользователь
- Сообщения: 81
- Зарегистрирован: 10.03.2004 (Ср) 20:41
- Откуда: FRANCE
Автоматический переход по полям формы
David » 19.02.2006 (Вс) 19:09
- VVitafresh
- Продвинутый гуру
-
- Сообщения: 1641
- Зарегистрирован: 12.05.2005 (Чт) 14:44
- Откуда: Херсон, UA
VVitafresh » 19.02.2006 (Вс) 19:14
Как вариант:
- Код: Выделить всё
Private Sub txt1_KeyPress(KeyAscii As Integer)
If Len(txt1.Text) >= 5 Then txt2.SetFocus
End Sub
Никакую проблему невозможно решить на том же уровне, на каком она возникла. Нужно стать выше этой проблемы, поднявшись на следующий уровень.
- Хакер
- Телепат
-
- Сообщения: 16496
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 19.02.2006 (Вс) 19:27
А ещё, чтоб таже перескакивать назад, добавить
А ты не ввод серийника делашь?
- Код: Выделить всё
If KeyAscii = 27 and txt1.text = 0 Then
txt0.SetFocus 'Перемещаемя в предыдущий Т/Б
txt0.SelStart = 32766 'Ставим курсор в его конец.
txt0.SelLengh = 0
А ты не ввод серийника делашь?
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Faust
- Постоялец
-
- Сообщения: 649
- Зарегистрирован: 29.12.2003 (Пн) 13:38
- Откуда: лаборатория
Faust » 19.02.2006 (Вс) 19:36
К примеру, так (пять символов - предел):
PS. Мдя... Опоздал...
- Код: Выделить всё
Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub 'Дабы по бэкспейсу не переходило на следущую позицию
If KeyAscii = 13 Then Exit Sub
If Len(Text1(Index).Text) = 4 Then Text1((Index + 1) Mod Text1.Count).SetFocus
If Len(Text1(Index).Text) = 5 Then KeyAscii = 0 'Больше пяти символов не запишешь!
End Sub
PS. Мдя... Опоздал...
Листинги не горят!
- Twister
- Теоретик
-
- Сообщения: 2251
- Зарегистрирован: 28.06.2005 (Вт) 12:32
- Откуда: Алматы
Twister » 19.02.2006 (Вс) 20:06
2 Хакер
Не соглашусь. Так правильно
txt0.SelStart = 32766
Не соглашусь. Так правильно
- Код: Выделить всё
txt0.SelStart = Len(txt0)
А я все практикую лечение травами...
- Хакер
- Телепат
-
- Сообщения: 16496
- Зарегистрирован: 13.11.2005 (Вс) 2:43
- Откуда: Казахстан, Петропавловск
Хакер » 19.02.2006 (Вс) 20:27
Twister писал(а):Так правильно
Так правильней. Но как я написал, я так делал - ошибок нет. Так-что нужно подумать, стоит ли тратить время, на то чтобы узнать размер переменной.
—We separate their smiling faces from the rest of their body, Captain.
—That's right! We decapitate them.
—That's right! We decapitate them.
- Twister
- Теоретик
-
- Сообщения: 2251
- Зарегистрирован: 28.06.2005 (Вт) 12:32
- Откуда: Алматы
Twister » 19.02.2006 (Вс) 20:35
я так делал - ошибок нет
Не сомненно, вряд ли в текстовое поле можно поместить 32766 символов, если ограничение стоит на 5-6...
Просто, думается мне, следует давать общий вариант решения, а об оптимизации автор подумает потом сам, если конечно ему важны тысячные доли секунды...А я все практикую лечение травами...
Сообщений: 8
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 13