Закрытие формы по Cancel без обработки событий Exit

[juceser]

Добрый день,

Топчусь с простым вроде бы делом.

Есть форма с большим числом полей. Почти в каждом проверяется условие заполненности по выходу из ComboBox типа -

Private Sub ComboBox_sex_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  ComboBox_sex.BackColor = vbWhite
 If ComboBox_sex.Value = "" Then
   MsgBox "Пол должен быть заполнен!"
   ComboBox_sex.BackColor = vbYellow
   Exit Sub: Cancel = True
 End If
End Sub

на форме есть кнопка Отмена. По нажатии по ней форма набора данных закрывается - возвращаемся в меню.

Однако ни

Public Sub CommandButton_Cancel_Click()
 Me.Hide
End Sub

ни Unload Me

не завершаются нормально. Вернее если я нахожусь на комбобоксе где нет обработчика по Exit все хорошо. А если ксть то обязательно выплюнет MsgBox, а потом закроется.

Экспериментировал с Application.EnableEvents = False
не помогает.

Что посоветуете? Как универсально отключить обработку во всех ComboBox при нажатии Отмены? ведь пользователь может отменить ввод на любом этапе, находясь в фокусе на любом элементе.
Попытка передать фокус, а затем выгрузить форму также не проходит поскольку сначала обрабатывается событие Exit ComboBox.

Спасибо.

[evg_m]

Как универсально отключить обработку во всех ComboBox при нажатии Отмены?

чтобы войти в отмена и отменить обработчик надо сначала получить фокус.
Чтобы получить фокус надо обработать OnExit.
Другими словами
чтобы отменить обработчик, надо чтобы он отработал.

Так что фокус с отменой обработчика не пройдет.

Что посоветуете?

Можно посоветовать. Отказаться от OnExit
Делать проверку полей один раз в одном месте при нажатии на кнопку сохранить (точнее ПЕРЕД вызовом процедуры СОХРАНИТЬ).
И по результатам проверок:
-либо сохранять и закрывать;
-либо отказаться от закрытия и переводить фокус на неверно заполненное поле.

[IgorGO]

задайте в модуле формы переменную ВыходПоЛюбому

при инициализации формы присвойте ВыходПоЛюбому = False
при нажатии на Cancel присвойте
ВыходПоЛюбому = True
Me.Hide

в каждой из процедур проверки при выходе
Private Sub ComboBox_sex_Exit(ByVal Cancel As MSForms.ReturnBoolean)
пишите первой строкой
if ВыходПоЛюбому then Exit Sub

[juceser]

Не работает.
Сделал так -

Option Explicit
Private isCancel As Boolean


Private Sub UserForm_Initialize()
isCancel = False

Private Sub ComboBox_sex_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If isCancel Then
Unload Me
Exit Sub
Else
ComboBox_sex.BackColor = vbWhite
If ComboBox_sex.Value = "" Then
MsgBox "Пол должен быть заполнен!"
ComboBox_sex.BackColor = vbYellow
Exit Sub: Cancel = True
End If
End If
End Sub


Public Sub CommandButton_Cancel_Click()
isCancel = True
End Sub

При нахождении фокуса на комбобоксе ComboBox_sex
по нажатию на Cancel возникает сообщение, цвет меняется на желтый и лишь по второму щелчку по Cancel форма закрывается.

Перенос Unload Me в процедуру обработки Cancel ничего не меняет.

[IgorGO]

При нахождении фокуса на комбобоксе ComboBox_sex
Вы переносите курсор на кнопку Cancel и жмете
сначала возникает событие ComboBox_sex потерял фокус (выход из элемента управления) и срабатывает стандартная процедура ComboBox_sex_Exit

а когда нажали Cancel (в предыдущем варианте там было Me.Hide, сейчас не вижу)
метод Hide формы посылает команду закрыться всех контролам, у каждого их них срабатывает метод Exit, вот второй раз ComboBox_sex_Exit срабатывает уже при isCancel = True

все логично
читайте матчасть

[IgorGO]

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

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