Вопрос о моментальном реагировании

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
alleonid
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 122
Зарегистрирован: 14.07.2005 (Чт) 7:01

Вопрос о моментальном реагировании

Сообщение alleonid » 16.08.2005 (Вт) 10:06

Уважаемые участники форума!
Имею вопрос.
В форме в тектовом поле ввожу значение. По этому значению вычисляется некая переменная и мне необходимо чтобы она моментально (пока курсор еще в текстовом поле) отображалась как Label.Caption.
Как это проще всего сделать (какое событие юзать?)

Tarantul
Бывалый
Бывалый
 
Сообщения: 235
Зарегистрирован: 13.12.2004 (Пн) 16:39
Откуда: IUnknown

Сообщение Tarantul » 16.08.2005 (Вт) 10:10

Используй собатие TextBox_Change - должно работать как надо :)

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 16.08.2005 (Вт) 10:10

change
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

alleonid
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 122
Зарегистрирован: 14.07.2005 (Чт) 7:01

Сообщение alleonid » 16.08.2005 (Вт) 10:23

Как раз ченджь не фурычит.
А что значит такой код:

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then DoCalc
End Sub

Кто бы мог это перевести на русский?

GSerg писал(а):change

Sedge
Alternative Choice
Alternative Choice
Аватара пользователя
 
Сообщения: 1049
Зарегистрирован: 16.05.2002 (Чт) 18:23
Откуда: Somewhere-In-The-Net

Сообщение Sedge » 16.08.2005 (Вт) 10:24

alleonid писал(а):Как раз ченджь не фурычит.

Не верю (с)

Tarantul
Бывалый
Бывалый
 
Сообщения: 235
Зарегистрирован: 13.12.2004 (Пн) 16:39
Откуда: IUnknown

Сообщение Tarantul » 16.08.2005 (Вт) 10:28

Через change прекрасно работает.
Вот пример:
Вложения
TextLabel.rar
Label изменяется вместе с TextBox
(941 байт) Скачиваний: 20

alleonid
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 122
Зарегистрирован: 14.07.2005 (Чт) 7:01

Сообщение alleonid » 16.08.2005 (Вт) 11:05

Спасибо, сэр.
Это я с просонья хвост с пальцем попутал.
Это комбо не работает.
Вот:

'Категория сложности объекта
Private Sub Combo2_Change()

ocomp = Combo2
StrOcomp = "Категория сложности объекта по табл. 3 - " & ocomp & ";"

DoCalcCommon

End Sub


'Мгновенное отображение данных
Private Sub DoCalcCommon()

Label12.Caption = "Принято: " & StrOcomp

End Sub





Tarantul писал(а):Через change прекрасно работает.
Вот пример:

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 16.08.2005 (Вт) 12:42

Для комбо подойдёт KeyDown.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 16.08.2005 (Вт) 12:49

В комбо всё прекрасно работает тоже...
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Amed
Алфизик
Алфизик
 
Сообщения: 5346
Зарегистрирован: 09.03.2003 (Вс) 9:26

Сообщение Amed » 16.08.2005 (Вт) 13:00

Да, кстати говоря.

Пых? (:

alleonid
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 122
Зарегистрирован: 14.07.2005 (Чт) 7:01

Сообщение alleonid » 16.08.2005 (Вт) 13:04

А существует ли событие, состоящее в любом действии с формой или ее элементами. Мне нужно решить задачу с постоянным обновлением результата в Label????

Amed писал(а):Да, кстати говоря.

Пых? (:

Vi
Постоялец
Постоялец
 
Сообщения: 739
Зарегистрирован: 25.01.2002 (Пт) 11:03
Откуда: Россия, Ижевск

Сообщение Vi » 16.08.2005 (Вт) 16:36

Мне нужно решить задачу с постоянным обновлением результата в Label????
Ставь таймер на форму и в его обработчике делай то, что нужно.
Vita
Выше головы не прыгнешь, ниже земли не упадешь, дальше границы не убежишь! (с) КВН

max-aziat
Обычный пользователь
Обычный пользователь
 
Сообщения: 98
Зарегистрирован: 13.06.2005 (Пн) 13:41
Откуда: Таджикистан

Сообщение max-aziat » 18.08.2005 (Чт) 13:55

вот так еще проще

Private Sub Form_Load()
Label1.Caption = Text1.Text
End Sub

Private Sub Text1_Change()
Label1.Caption = Text1.Text
End Sub
не всё сразу дается ...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: AhrefsBot, SemrushBot и гости: 119

    TopList