Исключить выполнение процедуры

[kminas]

Я пишу прогу. И вдруг обнаружил, что при нажатии на клавишу Esc происходит запуск одной из процедур. Каким образом можно убрать это событие, либо как хотя бы определить почему оно происходит?

[BV]

Найти кнопку со свойством Cancel = True?

[kminas]

Кнопки со свойством Cancel = True нет, есть процедура:

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

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("Уважаемый(ая) коллега," & Chr(13) & "Вы действительно хотите закрыть окно?", vbYesNo + _
               vbApplicationModal + vbDefaultButton2 + vbInformation, _
               "Завершение работы") = vbNo Then
   Cancel = True
    Else
   Unload frmOpen
   Unload frmShtamp
   Set frmObor = Nothing
   End If
End Sub

А при нажатии Esc выполняется следующая процедура:

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

Private Sub cmdTitle_Click()
Dim titl As String

titl = cboTitle.Text

With ActiveDocument.Tables
     If .Count > 0 Then
        With .Item(.Count)
             .Cell(.Rows.Count, 1).Select
             Selection.Collapse Direction:=wdCollapseStart
             Selection.ColumnSelectMode = True
        End With
     End If
End With

     ActiveDocument.Tables(1).Rows.Add
   
    With Selection
    .MoveRight Unit:=wdCell
    .MoveRight Unit:=wdCell
    .Font.Bold = wdToggle
    .Font.Underline = wdUnderlineSingle
    .TypeText Text:=titl
    .MoveRight Unit:=wdCharacter, Count:=7
    .MoveRight Unit:=wdCell
    .MoveRight Unit:=wdCharacter, Count:=1
    .MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    .Font.Bold = False
    .Font.Underline = wdUnderlineNone
    .MoveLeft Unit:=wdCharacter, Count:=1
    End With
End Sub

[Igor_123]

а стек вызовов что говорит?

[kminas]

Честно говоря, не знаю, где стек смотреть.

[Igor_123]

ставиш курсор в Private Sub cmdTitle_Click() на строку: titl = cboTitle.Text и получаеш точку остановки, дальше жмешь F5 и делаеш последовательность операций, которая приводит тебя к исполнению:

А при нажатии Esc выполняется следующая процедура

при остановке на точке прерывания жмеш Ctrl+L или меню View->Call Stack и там смотриш откуда была вызвана процедура

[kminas]

На эту строку

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

titl = cboTitle.Text

и показывает

[Хакер]

Уважаемый(ая) коллега

Пользователь - не коллега программе. Убирай некорректную фразу.

[kminas]

Igor_123
Спасибо! Нашел! Но точку останова поставил раньше. У меня этот комбобокс загружается в Form_Load(), а как этот момент обойти, буду думать.
Хакер
Спасибо, коллегу убрал.

Спасибо всем!
Тема закрыта.

[Igor_123]

.... на строку: titl = cboTitle.Text нажимаеш F9 и получаеш точку остановки, ...

Сорри, руки не поспевают за полетом мысли

Тебе видней

[kminas]

.... на строку: titl = cboTitle.Text нажимаеш F9 и получаеш точку остановки, ...

Сорри, руки не поспевают за полетом мысли
Тебе видней

Спасибо, я не знал. Я ставлю точку останова мышкой на поле рядом с о строкой, а потом действительно F5 или мышкой на кнопку запуска, а, после остановки на F8.

[kminas]

Рано я обрадовался. Убрал я всю процедуру из Form_Load, жму F8, а прога опять, упрямо перескакивает на процедуру, Private Sub cmdTitle_Click(). Что ее туда тянет, не пойму?

[kminas]

Igor_123
Нашел ответ на другом форуме.
Свойство cmdTitle.Cancel=True заменил на False и все!
Спасибо за участие.

[Хакер]

kminas
Ты избирательно слеп? Такой же ответ тебе дали на этом форуме, в этой теме, сразу же, в первом сообщении-ответе.

Смотрим чуть ниже (третье сообщение в теме):

Кнопки со свойством Cancel = True нет, ...

Выходит не слеп. Выходит, что что-то более печальное.

[Igor_123]

Чудак! тебе BV ещё

Добавлено: 12.01.2008 (Сб) 10:54

Найти кнопку со свойством Cancel = True?

и ты ему ответил:

Кнопки со свойством Cancel = True нет

, а теперь оказывается( 6 дней спустя ):

Свойство cmdTitle.Cancel=True заменил на False и все!

естественно и фсе

Документ с макросом приведен выше.

это не документ а текст макроса, который ты приводил и здесь, а я говорил о вордовском файле с этим макросом.

Да кстати

Можно ли во время выполнения программы устанавливать свойство кнопки Command TabStop=True?

разве так долго сделать эксперимент? или прочиать справку?
я не знаю, т.к. это свойство устанавливаю в дизайн-тайме

[gjghjc]

можно... я проверил....

[Igor_123]

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

[kminas]

Извините, BV, Igor_123 и др.
сразу не въехал искал поиском Cancel, а надо было обойти все кнопки и поискать свойство глазами.
Справку пока не нашел, русского help'а вообще нет, эксперимент пока не удался.
Кнопок, выполняющих программу у меня несколько, поэтому и возникла необходимость переключаться.
А программированием занимаюсь недавно, с большими перерывами и в свободное от основных работ время, поэтому каждый раз приходится по-новой въезжать в тему, в терминологию и в свои же предыдущие наработки.

[kminas]

gjghjc
Igor_123
Извините, гворю ж давно не занимался, бес попутал не

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

TabStop

нужен, а

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

Default=True

Проблема решена.