Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Исключить выполнение процедуры 
V
    Опции темы
kminas
Дата 16.1.2008, 23:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
Я пишу программу. И заметил, что при нажатии на клавишу Esc происходит запуск одной из процедур. Каким образом можно убрать это событие, либо как хотя бы определить почему оно происходит?
PM MAIL   Вверх
Akina
Дата 16.1.2008, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Мало данных. 
Для первичного поиска используй то, что нажатие Esc в некоторых контролах порождает событие отмены.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kminas
Дата 17.1.2008, 21:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
Единственная процедура в программе со свойством 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 


Проверял пошагово по F8. После нажатия клавиши 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
PM MAIL   Вверх
Akina
Дата 18.1.2008, 00:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 26
Всего: 454
Что это за контрол - cmdTitle? какие у него проперти?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
kminas
Дата 18.1.2008, 13:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
Цитата(Akina @ 18.1.2008,  00:15)
Что это за контрол - cmdTitle? какие у него проперти?

Спасибо! 
Код

Cancel=True  
заменил  
Код

Cancel=False
PM MAIL   Вверх
mihanik
  Дата 23.1.2008, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


-=Белый Медведь=-
****


Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 9
Всего: 109
Помечу решённым!!!


--------------------
Программистами не рождаются, - это родовая травма...
user posted imageuser posted image
PM MAIL WWW ICQ   Вверх
kminas
Дата 23.1.2008, 21:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 240
Регистрация: 26.10.2005
Где: Ростов-на-Дону

Репутация: нет
Всего: нет
mihanik, Да, конечно.
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0762 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.