基本信息

---

下载

   友情提示：（无需注册或充值，赞助后即可获取资源下载链接）

---

     嘿，亲！知识可是无价之宝呢，但咱这精心整理的资料也耗费了不少心血呀。小小地破费一下，绝对物超所值哦！如有下载和支付问题，请联系我们QQ(微信同号)：813200300

本次赞助数额为： 2 元　

支付宝支付

微信支付

   源码介绍

---

弹出一个对话框 一定时间后 自动消失.

调 用:

  AutoClosingMessageBox.Show(Now.ToString, "FFFFFFFFFFFFFFFFFF", 3000)

部分:

类代码:

Imports System.Windows.Forms
Imports System
Public Class AutoClosingMessageBox
    Private _timeoutTimer As System.Threading.Timer
    Private _caption As String
    Private Sub New(ByVal text As String, ByVal caption As String, ByVal timeout As Integer)
        _caption = caption
        _timeoutTimer = New System.Threading.Timer(AddressOf OnTimerElapsed, Nothing, _
                                                   timeout, System.Threading.Timeout.Infinite)
        MessageBox.Show(text, caption)
    End Sub
    Public Shared Sub Show(ByVal text As String, ByVal caption As String, ByVal timeout As Integer)
        Dim MsgSow As AutoClosingMessageBox = New AutoClosingMessageBox(text, caption, timeout)
    End Sub
    Private Sub OnTimerElapsed(ByVal state As Object)
        Dim mbWnd As IntPtr = FindWindow(Nothing, _caption)
        If mbWnd <> IntPtr.Zero Then
            SendMessage(mbWnd, WM_CLOSE, IntPtr.Zero, IntPtr.Zero)
        End If
        _timeoutTimer.Dispose()
    End Sub