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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> очистка по esc 
:(
    Опции темы
llrr4343
Дата 4.12.2007, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 4.12.2007

Репутация: нет
Всего: нет



подскажите плиз такую фичу: есть форма, на ней 2 текстбокса, естественно туда что-то пишется, бекспейс нажимать и еще выбирать 2 текст бокс это оч медленно, 
как сделать чтобы при нажатии ESC они очищались, при чем не важно где фокус на форме, текстбоксе, какой-то кнопке, главное форма активная -> ESC -> оба тексбокса чистые?
PM MAIL   Вверх
kapbepucm
Дата 4.12.2007, 16:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 12



Код
Private Sub UserForm_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  If KeyCode = 27 Then
  '...
  End If
End Sub
Это сделать для всех контролов.

Это сообщение отредактировал(а) kapbepucm - 4.12.2007, 17:12


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
llrr4343
Дата 4.12.2007, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 4.12.2007

Репутация: нет
Всего: нет



может я че не так делаю но этот код не работает, 
прикрепляю personal.xls

Присоединённый файл ( Кол-во скачиваний: 5 )
Присоединённый файл  PERSONAL.RAR 12,71 Kb
PM MAIL   Вверх
llrr4343
Дата 4.12.2007, 18:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 4.12.2007

Репутация: нет
Всего: нет



и что значит для всех контролов?
PM MAIL   Вверх
Дмит
Дата 4.12.2007, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 117
Регистрация: 21.4.2006
Где: г.Волгоград

Репутация: 8
Всего: 9



Сделай на форме кнопку (свойство Cancel=True) и в её коде очищай поля.
Кнопка может быть и спрятана.
PM MAIL WWW   Вверх
kapbepucm
Дата 4.12.2007, 22:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 12



Цитата(llrr4343 @  4.12.2007,  18:06 Найти цитируемый пост)
и что значит для всех контролов?
В смысле в каждом контроле в событии OnKeyDown запускать процедуру UserForm_KeyDown, если, конечно, нажато [Esc]

Это сообщение отредактировал(а) kapbepucm - 4.12.2007, 22:10


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
llrr4343
Дата 5.12.2007, 10:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 4.12.2007

Репутация: нет
Всего: нет



прописал в каждом контроле KeyDown, все стало намного лучше, токо появился другой косяк:
если курсор стоит в текстбоксе, и нажимаешь esc, то текст в текстбоксе на мгновение исчезает и и снова появляется   smile  если построчно прогу компилировать, то vba делает все как надо токо после строки end sub все возвращается на круги своя   smile 
PM MAIL   Вверх
RockClimber
Дата 5.12.2007, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 7
Всего: 15



llrr4343, можешь последнюю версию кода опубликовать?


--------------------
Хорошо кинутый дятел далеко летит, крепко встревает, долго торчит.
PM MAIL GTalk   Вверх
kapbepucm
Дата 5.12.2007, 12:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


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

Репутация: 3
Всего: 12



llrr4343, допиши стирание
Код
  TextBox2.SetFocus
  TextBox1.Value = ""
  TextBox1.SetFocus
  TextBox2.Value = ""



--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

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

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

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



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


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

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


 




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


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

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