| |
Автоматическое закрытие окна |
|
| |
Используется пример с автоматическим
закрытием диалогового окна MsgBox. Начните новый
проект. Добавите модуль в проект.
Разместите на форме элемент CommandButton.
'КОД МОДУЛЯ
Public Declare Function SetTimer Lib
"user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long,
ByVal lpTimerFunc As Long) As Long
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
Dim hMessageBox As Long
hMessageBox = FindWindow("#32770", "MsgBox")
If hMessageBox Then
Call SetForegroundWindow(hMessageBox)
SendKeys "{enter}"
End If
End Select
End Sub
'КОД ФОРМЫ
Private Sub Command1_Click()
Per = 4 * 1000
'вместо цифры 4 введите любое число, через какое
время необходимо закрыть окно (в миллисекундах)
SetTimer hWnd, NV_CLOSEMSGBOX, Per, AddressOf TimerProc
'Если хотите изменить заголовок "MsgBox" на
что-нибудь другое, то произведите
'эту замену и в модуле в строке hMessageBox =
FindWindow("#32770", "MsgBox")
MsgBox ("Этот MsgBox Закроется через ") & Per / 1000 &
(" секунд"), vbCritical, "MsgBox"
End Sub
|
|
| |
|
|
|
|