Как избавиться от рекурсии Change в TextBox

[Sun07]

При наступлении Change в TextBox надо присвоить новую строку , но при этом возникает опять вызов Change. Если установить флаг для обхода второго вызова Change и поставить первой строкой выход из процедуры по флагу, то этот флаг почему-то не сбрасывается в ноль, как поступить в таком случае? И вообще, нормально ли приводить в программе к вызову второго Change, когда первый ещё не закончен?

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

Private fNoChange as Byte

Private Sub TextBox1_Change()
     If fNoChange = 1 Then fNoChange = 0: Exit Sub
     fNoChange = 1 :TextBox1.Text=NewStr
'здесь ещё есть код
End Sub

[Matew]

Вот так будет чуть лучше.

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

Private Sub TextBox1_Change()
    Static fNoChange As Boolean
     If fNoChange = True Then fNoChange = False: Exit Sub
     fNoChange = True: TextBox1.Text = NewStr
'здесь ещё есть код
End Sub


[Sun07]

и чем же стало лучше?

[Viper]

Что-то вроде этого должно быть

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

Private fNoChange as Byte

Private Sub TextBox1_Change()
     If fNoChange = 1 Then  Exit Sub
     fNoChange = 1 :TextBox1.Text=NewStr
     'здесь ещё есть код
     fNoChange = 0
End Sub

[Sun07]

!Viper!, ты молодец, я так и сделал. Но открытым остаётся вопрос о повторном вызове Change, когда первый Change ещё не завершился. Неужели это так и делается? И почему не работает мой первый вариант?

[alibek]

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

Private fBusyChange As Boolean
...
Private Sub Text1_Change()
If fBusyChange Then Exit Sub
fBusyChange = True
Text1.Text = NewStr
fBusyChange = False
End Sub

[Viper]

Явление под названием "повторный вызов Change" является вполне нормальным и естественным, ибо меняя в событии Change содержимое вызвавщего еге (событие) текстбокса, ты вызываешь повторный Change и так далее... Избавиться от этого нельзя, нужно правильно использовать флаги, что и показано в вышеприведенном коде

[Sun07]

!Viper!, вот смотри, допустим, после вызова TextBox1.Text=NewStr идёт присвоение значение неким переменным, например, A=A+1 (переменная А описана как общая для проекта). А потом сразу идёт проверка этого значения if A=3 ... А после проверки условия ещё куча команд, после которых А=A*2. И представь, что у нашей не простой программы обход рекурсивного вызова происходит после двух рекурсивных вызовов. Какое значение будет иметь переменная А в момент проверки на первом рекурсивном вызове? И где гарантия, что второй рекурсивный вызов завершится позже первого, а вдруг ранее? Может, я привёл довольно корявый пример, да простят меня господа профессионалы, но вы же поняли, что я имею ввиду?

!Viper! , а ты можешь объяснить мне, почему в моём первичном примере fNoChange не обнуляется?

[Andrey Fedorov]

!Viper! , а ты можешь объяснить мне, почему в моём первичном примере fNoChange не обнуляется?

А ты отладчиком его, отладчиком.
И все станет ясно...

[Sun07]

Andrey Fedorov, ничего подобного, отладчик не покажет рекурсивный вызов!

[Andrey Fedorov]

Andrey Fedorov, ничего подобного, отладчик не покажет рекурсивный вызов!

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

[Sun07]

всё прекрасным образом НЕ проходится . Ставлю брэкпоинт на If fNoChange=1 Then ... .Может, вы имеете ввиду отладчик не VB

[Andrey Fedorov]

Может, вы имеете ввиду отладчик не VB

Вообще-то VB. Но дистанционно его работу все одно показать не смогу.

[Matew]

Народ, а зачем нужна лишняя глобальная переменная? Чем Static не угодил?
П.С. Может у меня руки кривые, но у меня все примеры работают

[alibek]

Во-первых, статик медленнее.
Во-вторых, его нельзя инициализировать/установить снаружи. А флаги обычно устанавливаются из других процедур.
И в-третьих, а чем плох Private? Хотя, конечно, и Static можно использовать.

[Matew]

alibek,
1. Не знал.
2. Здесь флаг точно местный.
3. Представь ситуцию, когда текстбоксов много. Тогда много лишних переменных висит в модуле.
4.(Против статика) У меня был случай когда статик переменные с одинаковыми именами перехлестывались (взаимоприсваивлись) из разных процедур, но это было до СП 6, может это поправили.

[Andrey Fedorov]

Во-первых, статик медленнее.

И это сильно лимитирует в данной ситуации

Во-вторых, его нельзя инициализировать/установить снаружи. А флаги обычно устанавливаются из других процедур.

Зависит от ситуации. Я иногда Tag контрола для этого использую...

[tyomitch]

Во-первых, статик медленнее.

С какой стати?

[GSerg]

Ну правда медленнее, что тут сделаешь...

[tyomitch]

А очень просто сделаю -- возьму да проверю.

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

Option Explicit

Private v2 As Long

Sub s1()
Static v1 As Long
Dim i As Double
    For i = 1 To 1000000000#
        v1 = v1 + 1
    Next
End Sub

Sub s2()
Dim i As Double
    For i = 1 To 1000000000#
        v2 = v2 + 1
    Next
End Sub

Sub Main()
Dim Start As Double
    Start = Timer
    s1
    MsgBox Timer - Start
    Start = Timer
    s2
    MsgBox Timer - Start
End Sub


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

[GSerg]

Блин, токно помню, что давно делал тесты, и было процентов на 30 медленнее. Теперь не получается