VPF::Автоматическое закрытие MsgBox'a - Форум программистов

cardinal

Дата 27.5.2005, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Код


' в модуль запишем следующее
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

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

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