TextBox..Помогите!

[Ruamus]

Всем привет! Пришел за советом =)

Допустим в TextBox или Label есть какое-нибудь число. Надо, чтобы при событии Change, если это число увиличилось, то происходило какое нибудь действие, если же уменшалось, то ничего не происходило.

Например: допустим в TextBox'e число 67, если при событии Change оно поменяется, допустим на 86, то действие происходит, если же на 43, то не происходит.

Как это сделать?

Заранее благодарен.

[Bethy]

Код: Выделить всё

sub TextBox_Change()
  Static Var as Integr
  if Val(TextBox.text)>Var then Событие
  Var=Val(TextBox.text)
end Sub


[Ruamus]

Спасиб, Bethy за ответ. Но тут есть одно НО.

Если значение в textbox понизится, а затем на немного повысится, то действие не выполняется.
Оно ждет значение, большее, чем самое большое в интервале.

Т.е. например: допустим значение 56 повышается до 77 - действие выполняется, потом опять понижается до 59. И когда оно повышается до 65, действие не выполняется. Change ждет значения, выше 77.

Т.е. Надо что б всегда при повышении происходило действие и событие не ожидало ввода числа, выше максимального, которое было в TextBox

[boo-mmx]

Если значение Val(TextBox.text) понизится, то и значение Var понизится...

[GSerg]

Ну так внеси изменение Var в ветку If.

[Ruamus]

To GSerg: точно, как я не додумался, спасиб те.

Ребята, спасибо большое, вы так меня выручили.

Bethy тебе отдельная благодарность =))
И те тож спасиб boo-mmx.

Вы хорошие ребята, если что, буду обращаться. Удачи.