VB-메시지박스 자동 종료하기

'프로젝트에서 모듈을 추가한다.

'아래 코드를 모듈에 입력한다.

 

Public Const NV_CLOSEMSGBOX As Long = &H5000&

Public Declare Function SetTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&, _

ByVal uElapse&, ByVal lpTimerFunc&)

Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _

(ByVal lpClassName$, ByVal lpWindowName$)

Public Declare Function LockWindowUpdate& Lib "user32" (ByVal hwndLock&)

Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hWnd&)

Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _

(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)

Public Declare Function KillTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&)

Public Const API_FALSE As Long = 0&

Public Sub TimerProc(ByVal hWnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)

KillTimer hWnd, idEvent

Dim hMessageBox&

'Replace 'Self Closing Message Box' with the title you gave to your message box.

hMessageBox = FindWindow("#32770", "Self Closing Message Box")

If hMessageBox Then

Call SetForegroundWindow(hMessageBox)

SendKeys "{enter}"

End If

Call LockWindowUpdate(API_FALSE)

End Sub

 

'해당하는 폼에 아래코드를 입력한다.

 

Private Sub Form_Load()

'Replace the '4000' below with the number of milliseconds the message box

'will appear. 1000 milliseconds = 1 second

SetTimer hWnd, NV_CLOSEMSGBOX, 4000&, AddressOf TimerProc

Call MessageBox(hWnd, "Watch this message box close itself after four seconds", _

"Self Closing Message Box", MB_ICONQUESTION Or MB_TASKMODAL)

End Sub