![]() |
Модераторы: mihanik |
![]() ![]() ![]() |
|
НеуФазендник |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 108 Регистрация: 9.5.2006 Репутация: нет Всего: 2 |
Прошу подсказать, каким образом программно создать диалоговое окно типа msgBox, чтобы затем его можно было бы так же программно удалить через определенное время, в случае, если не следует никакой реакции пользователя. Если вариантов нет, прошу посоветовать, как реализовать подобный диалог?
![]() |
|||
|
||||
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 |
-------------------- Если тебя жизнь трахает, значит, ты ещё живой |
|||
|
||||
Дмит |
|
|||
Шустрый ![]() Профиль Группа: Участник Сообщений: 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. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще!
|
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
0 Пользователей: | |
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема » |
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |