VB.net如何設置msgbox可以定時自動關閉？

MessageBox裏的Show裏沒有自動關閉的方法，但是妳可以自定義壹個MessageBox,MessageBox就是壹個窗體，妳新建壹個窗體Form2，添加壹個public屬性message和壹個定時器timer1,timer1的interval設置成妳想要的時間，在Form2的Load事件啟動timer1，Timer1_Tick事件裏關閉窗口Me.Close(),然後在需要顯示Messagebox的時候，在主窗口Form1裏設置messge屬性，然後用show方法彈出窗口就可以了。

Form1程序：（添加了壹個Button1）

Public Class Form1

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim f2 As Form2 = New Form2

f2.Message = "提示"

f2.ShowDialog()

End Sub

End Class

Form2程序：(添加了壹個Label1顯示信息和壹個Timer1用於計時，Form2可以自定義成妳想要的樣式，標題，按鈕，窗體樣式等)

Public Class Form2

'自定義屬性 顯示提示信息

Public WriteOnly Property Message As String

Set(value As String)

Label1.Text = value

End Set

End Property

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

Me.Close()

End Sub

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Timer1.Interval=3000 '定時3秒關閉窗口

Timer1.Enabled = True

End Sub

End Class

代碼已在VS2017測試通過。

上一篇:GTM6470FWM代表什麽？

下一篇:大眾帕薩特儀表中間顯示屏怎麽設置