Как избежать Multipage_Change при Multipage_MouseDown

[Natuzzi]

Подскажите, пожалуйста, как сделать так, чтобы при обработке события Multipage_MouseDown при выполнении определенного условия не происходила обработка события Multipage_Change? Т.е. чтобы не было перехода на другую вкладку.

[Natuzzi]

А в ответ - тишина.

А может я неясно сформулировала вопрос?

[inq]

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

[Natuzzi]

Хм... что-то я не очень понимаю как это сделать - каким именно образом прерывается выполнение события.

Например, я пытаюсь прервать Mousedown по нажатию клавиши в выползающем MsgBox (см. файл). Но обработчик переходит в MouseChange и все равно перелистывает вкладку.
При этом заголовок вкладки остается прежним (например, Page1). А контент меняется на содержание той вкладки на которую кликаешь перед прерыванием.

Как мне сделать чтобы при отказе от выполнения события перехода на другую вкладку и заголовок, и содержимое оставались прежними?

[AndreyV]

изменение MultiPage.Value не поможет, так как он ни на что не влияет кроме как на прорисовку кнопочек у закладок
нужно менять свойство MultiPage.SelectedItem а он только для чтения
поэтому наверное никак

[bi-lya]

Может так?

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

Dim a As Integer
Private Sub MultiPage1_Click(ByVal Index As Long)

Reply = MsgBox("Переходим?", 36, "Нечто")

If Reply = 7 Then MultiPage1.Value = a

a = MultiPage1.Value

End Sub

Private Sub UserForm_Initialize()

a = MultiPage1.Value

End Sub


[Natuzzi]

2 bi-lya
А что означает "36" в качестве значения аргумента buttons у функции MsgBox? Почему-то в Help'е нет такого значения аргумента.

[inq]

А что означает "36" в качестве значения аргумента buttons у функции MsgBox? Почему-то в Help'е нет такого значения аргумента.

vbYesNo+vbQuestion

[bi-lya]

Смотрите "MsgBox Constants" в справке VBA.
vbYesNo - 4
vbQuestion - 32
4 +32 = 36

[GSerg]

Смотрите "MsgBox Constants" в справке VBA.

Всё наоборот.
Это не мы должны смотреть в справке "MsgBox Constants", это ты должен писать в коде имена констант вместо нечитаемых бессмысленных чисел.

[bi-lya]

Ну не судите строго. Не я это выдумал - значит кому-то это надо.
Вдруг пригодится для общего развития

[Natuzzi]

2 bi-lya

Благодарю за помощь