Полезное для программистов:

Фриланс
Новости
Статьи
   
Рубрики:

Error. Page cannot be displayed. Please contact your service provider for more details. (29)


Автоматическое закрытие MsgBox'a

Поиск:
Код

' в модуль запишем следующее
Private Declare Function KillTimer Lib "user32" _
  (ByVal hWnd As Long, ByVal nIDEvent As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias _
  "FindWindowA" (ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" _
  (ByVal hWnd As Long) As Long

Public Const NV_CLOSEMSGBOX As Long = &H5000&

Public Sub TimerProc(ByVal hWnd As Long, ByVal uMsg As Long, _
  ByVal idEvent As Long, ByVal dwTime As Long)

  KillTimer hWnd, idEvent
  Select Case idEvent
     Case NV_CLOSEMSGBOX 'хотим закрыть окно после 4 секунд
        Dim hMessageBox As Long
       'чтобы MsgBox мог закрыться нормально надо определить по кокому имени будет закрываться
        hMessageBox = FindWindow("#32770", "MsgBox")
        If hMessageBox Then
           Call SetForegroundWindow(hMessageBox)
           SendKeys "{enter}"
       End If
   End Select

End Sub

Код

' на форму напишите следующее
Private Declare Function SetTimer Lib "user32" _
  (ByVal hWnd As Long, ByVal nIDEvent As Long, _
  ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long

Private Sub cmdShowMsg_Click()

   'здесь нам настраиваится час 4 секунды (4000 милисекунд)
   SetTimer hWnd, NV_CLOSEMSGBOX, 4000, AddressOf TimerProc
 
   If MsgBox("Сообщение автоматически закроеться после 4 секунд. _
     Повторить или конец ?", vbRetryCancel + vbDefaultButton1, _
     "MsgBox") = vbRetry Then
        MsgBox "Повторить"
   Else
        MsgBox "Конец"
   End If

End Sub
Автор: M.E.G.U.S






Просмотров: 3725

 

 

Новые статьи:


Популярные:
  1. Как сделать цикличным проигрывание MIDI-файла?
  2. Создание AVI файла из рисунков
  3. Как устройство "отключить в данной конфигурации"?
  4. Kто в данный момент присоединен через Сеть?
  5. Как узнать количество доступной памяти?
  6. Как реализовать в RichEdit разноцветный текст?
  7. Как скрыть свое приложение от ProcessViewer
  8. Как программно нажать/скрыть/показ кнопку "Start"?
  9. Модуль работы с ресурсами в PE файлах
10. Функции вызова диалоговых окон выбора
11. Проверка граматики средствами Word'а из Delphi.
12. Модуль для упрощенного вызова сообщений
13. Функции для записи и чтение своих данных в, ЕХЕ- файле
14. Рекурсивный просмотр директорий
15. Network Traffic Monitor
16. Разные модули
17. Универсальная функция для обращения к любым экспортируем функциям DLL
18. Библиотека от VladS
19. Протектор для UPX'а
20. Еще об ICQ, сообщения по контакт листу?
21. Использование открытых интерфейсов
22. Теория и практика использования RTTI
23. Работа с TApplication
24. Примеры использования Drag and Drop для различных визуальных компонентов
25. Что такое порт? Правила для работы с портами
26. Симфония на клавиатуре
27. Загрузка DLL
28. Исправление автоинкремента
29. Взаимодействие с чужими окнами
30. Проверить дубляжи в столбце


 

 

 
 
На главную