Остановка события «TextBox_Change» от выполнения, если вызывается по коду

Question

У меня есть форма пользователя, которая содержит объект TextBox с именем myTextBox.

текст внутри объекта может быть изменен либо пользователем или по коду. Там в процедуры «OnChange», присоединенные в текстовое поле:

Private Sub myTextBox_Change() 
    'do some stuffs 
End Sub 

Я хотел бы событие для обработки только тогда, когда это пользователь изменения текста, но не код. Я думал о добавлении Необязательный параметр, как в следующем:

Private Sub myTextBox_Change(Optional isCode As Boolean) 
    If isCode = False Then 
     'do some stuffs 
    End If 
End Sub 

, но это не очень полезно, потому что я не могу передать isCode = True при изменении названия программно, например:

myForm.myTextBox = "new text" 

Кто-нибудь есть идея о том, как я могу это исправить?

Answer 1

Один из способов (возможно, неправильный путь?) - объявить глобальную переменную, используемую так же, как и ваш IsCode Boolean. Установите его в true во время вашего кода, чтобы событие textbox_change узнало, что код обрабатывается в фоновом режиме, а затем возвращается к false, когда этот код завершен.

Поместите это в верхней части нормального модуля (не будет работать в виде модуля)

Option Compare Database 
Option Explicit 
Global IsCode As Boolean 

, а затем в коде вы работаете только установить IsCode=true по мере необходимости.