VB.NET窗體關(guān)閉事件

Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)

成都創(chuàng)新互聯(lián)公司是一家網(wǎng)站建設(shè)、網(wǎng)站制作，提供網(wǎng)頁(yè)設(shè)計(jì)，網(wǎng)站設(shè)計(jì)，網(wǎng)站制作，建網(wǎng)站，按需求定制設(shè)計(jì)，網(wǎng)站開(kāi)發(fā)公司，2013年至今是互聯(lián)行業(yè)建設(shè)者，服務(wù)者。以提升客戶(hù)品牌價(jià)值為核心業(yè)務(wù)，全程參與項(xiàng)目的網(wǎng)站策劃設(shè)計(jì)制作，前端開(kāi)發(fā)，后臺(tái)程序制作以及后期項(xiàng)目運(yùn)營(yíng)并提出專(zhuān)業(yè)建議和思路。

MsgBox("窗口即將關(guān)閉....")

End Sub

Else

e.Cancel = True

End If

vb點(diǎn)虐 關(guān)閉指定windowsname的頁(yè)面

使用VB.NET關(guān)閉指定WindowsName的頁(yè)面可以通過(guò)使用System.Diagnostics.Process類(lèi)的Kill方法來(lái)完成。

Kill方法接受一個(gè)參數(shù)，即要關(guān)閉的進(jìn)程的窗口名稱(chēng)，該窗口名稱(chēng)可以通過(guò)Process.GetProcessesByName函數(shù)獲得，這樣就可以遍歷找到任何一個(gè)指定的窗口名稱(chēng)并將其關(guān)閉。例如：

Dim process As Process = Process.GetProcessesByName(“MyApplication.exe”)

process.Kill()

VB點(diǎn)虐 如何設(shè)置msgbox可以定時(shí)自動(dòng)關(guān)閉？

MessageBox里的Show里沒(méi)有自動(dòng)關(guān)閉的方法，但是你可以自定義一個(gè)MessageBox,MessageBox就是一個(gè)窗體，你新建一個(gè)窗體Form2，添加一個(gè)public屬性message和一個(gè)定時(shí)器timer1,timer1的interval設(shè)置成你想要的時(shí)間，在Form2的Load事件啟動(dòng)timer1，Timer1_Tick事件里關(guān)閉窗口Me.Close(),然后在需要顯示Messagebox的時(shí)候，在主窗口Form1里設(shè)置messge屬性，然后用show方法彈出窗口就可以了。

Form1程序：（添加了一個(gè)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程序：(添加了一個(gè)Label1顯示信息和一個(gè)Timer1用于計(jì)時(shí)，F(xiàn)orm2可以自定義成你想要的樣式，標(biāo)題，按鈕，窗體樣式等)

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 '定時(shí)3秒關(guān)閉窗口

Timer1.Enabled = True

End Sub

End Class

代碼已在VS2017測(cè)試通過(guò)。