透過程式關閉 MsgBox

參考來源

---

Public Class Form1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer



Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOpen.Click

Me.Timer1.Enabled = True

Me.Timer1.Interval = 1000

MsgBox("測試", MsgBoxStyle.OkOnly, "MsgBox")

Me.Timer1.Enabled = False

End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim hWnd As Integer

hWnd = FindWindow(vbNullString, "MsgBox")

If hWnd Then

PostMessage(hWnd, &H10, 0&, 0&)

End If

End Sub

End Class

---

以上為原著!

這篇不錯,竟有這想法;值得記一下timer的控制運用!