 |
|
Модераторы: mihanik |
 
|
|
Программное закрытие MsgBox - сообщения, Как удалять программно диалоговое окно? 
| НеуФазендник |
|
|||
|
Шустрый  Профиль Группа: Участник Сообщений: 108 Регистрация: 9.5.2006 Репутация: нет Всего: 2 |
Прошу подсказать, каким образом программно создать диалоговое окно типа msgBox, чтобы затем его можно было бы так же программно удалить через определенное время, в случае, если не следует никакой реакции пользователя. Если вариантов нет, прошу посоветовать, как реализовать подобный диалог?
 |
|||
|
||||
Дата 17.5.2006, 15:32 (
Загрузка ...
| Akina |
|
|||
|
Советчик Профиль Группа: Модератор Сообщений: 20581 Регистрация: 8.4.2004 Где: Зеленоград Репутация: 26 Всего: 454 |
Нарисовать такую форму и на нее таймер, который закроет ее по истечении заданного времени.
-------------------- О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума. |
|||
|
||||
| Artiom |
|
|||
 Эксперт Профиль Группа: Участник Клуба Сообщений: 1031 Регистрация: 11.3.2003 Где: Минск\Баку Репутация: 1 Всего: 17 |
Здесь посмотри - привер на VB. наверное можно переделать на VBA
http://forum.sources.ru/index.php?showtopic=49896 -------------------- Если тебя жизнь трахает, значит, ты ещё живой |
|||
|
||||
| НеуФазендник |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 108 Регистрация: 9.5.2006 Репутация: нет Всего: 2 |
Спасибо, Artiom. Посмотрел ссылку.Идея ясна. Есть еще вопрос. Ключевыми (интересными мне) в приведенном коде являются две строки: 1. SendKeys "{enter}" делает ни что иное, как за пользователя жмет кнопку на диалоговом окне. 2.hMessageBox = FindWindow("#32770", MsgBoXCaption) вроде как определяет присутствие самого диалогового окна. Вопрос в том, откуда берется дескриптор #32770. И вообще, где взять справку по FindWindow() ? |
|||
|
||||
| Artiom |
|
|||
|
Эксперт Профиль Группа: Участник Клуба Сообщений: 1031 Регистрация: 11.3.2003 Где: Минск\Баку Репутация: 1 Всего: 17 |
В MSDN есть http://msdn.microsoft.com/library/default..../findwindow.asp -------------------- Если тебя жизнь трахает, значит, ты ещё живой |
|||
|
||||
| Дмит |
|
|||
|
Шустрый Профиль Группа: Участник Сообщений: 117 Регистрация: 21.4.2006 Где: г.Волгоград Репутация: 8 Всего: 9 |
Можно без API:
Dim WshShell As Object Set WshShell = CreateObject("WScript.Shell") WshShell.Popup "У вас всё в порядке?", 1, "Ответте на вопрос" 'popup(надпись, на сколько секунд выскакивает, заголовок, тип) |
|||
|
||||
| НеуФазендник |
|
||||
|
Шустрый Профиль Группа: Участник Сообщений: 108 Регистрация: 9.5.2006 Репутация: нет Всего: 2 |
Дмитрий, это то, что доктор прописал.
Честно говоря меня ни один год мучал вопрос, как это реализовать, а поскольку букварей по VBA никогда не читал, довольствуясь англоязычной справкой VBA-Excel в крайних случаях, то никак не удавалось наткнуться на сею мудрую штуковину. Огромное спасибо. Теперь завалю свои формы всякими глупостями, вечно всплывающими в самые неподходящие моменты  Добавлено @ 16:24
Artiom, спасибо за ссылочку! |
||||
|
|||||
|
|
| Правила форума "Программирование, связанное с MS Office" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
| 1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
[ Время генерации скрипта: 0.0961 ] [ Использовано запросов: 21 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |