VBNet - Форум - Люди, Помогите!

Вопрос: Люди, Помогите! Добавлено: 28.09.02 23:23

Автор вопроса: Gagarin

Есть проблема.
Есть три TextBox нужно, когда в фокус попадает один из них запустить какое-нибудь действие (Оно проходит независимо от программы и запускать заново его нельзя) но при потере фокуса Всех трех остановить его.

Ответить

Ответы Всего ответов: 3

Номер ответа: 1
Автор ответа:

paul_sn

Вопросов: 16
Ответов: 164

Web-сайт: sergeyev.zzn.com
Профиль | | #1

Добавлено: 29.09.02 01:31

А чем тебе не нравятся GotFocus и LostFocus?

Ответить

Номер ответа: 2
Автор ответа:

Gagarin

Вопросов: 39
Ответов: 19

Профиль | | #2

Добавлено: 29.09.02 22:50

Я просто болдю от GotFocus и LostFocus!

Но при GotFocus действие начинается, а при LostFocus действие заканчивается, но было условие пока любое из TextBox в Фокусе действие не заканчивать, юзер может в это время между ними перемещаться.

В общем пишу по русски переведите пожалуйста на VB.

IF Txt1 or Text2 or Text3 GotFocus

Запускаем действие

И пока Txt1 or Text2 or Text3 in Focus

делаем действие

И если Txt1And Text2 And Text3 LostFocus

Действие останавливаем.

Ответить

Номер ответа: 3
Автор ответа:

CyRax

Разработчик Offline Client

ICQ: 204447456

Вопросов: 180
Ответов: 4229

Web-сайт: basicproduction.nm.ru
Профиль | | #3

Добавлено: 30.09.02 19:39

Объяви переменную типа Integer в модуле формы

Например
Dim txtInFocus as Integer
Sub Text1_GotFocus()
txtInFocus=1
' В текстбокс2=2,текстбокс3=3
Timer1.Interval=1
End Sub
'Аналогично для Text2,3

Sub Text1_LostFocus()
Timer1.Interval=0
txtInFocus=0
End Sub
'Одинаково для Text2,3

Далее поставь на форму таймер
Sub Timer1_Timer()
select case txtInFocus
case 1
text1.text=text1.text+1
case 2
text2.text=text2.text+1
case 3
text3.text=text3.text+1
case else
timer1.interval=0
end select
End sub

Ответить

Страница: 1 |