Private?Sub?Form2_FormClosed(sender?As?Object,?e?As?FormClosedEventArgs)?Handles?Me.FormClosed
成都創(chuàng)新互聯(lián)公司專業(yè)成都做網(wǎng)站、網(wǎng)站設(shè)計,集網(wǎng)站策劃、網(wǎng)站設(shè)計、網(wǎng)站制作于一體,網(wǎng)站seo、網(wǎng)站優(yōu)化、網(wǎng)站營銷、軟文發(fā)稿等專業(yè)人才根據(jù)搜索規(guī)律編程設(shè)計,讓網(wǎng)站在運(yùn)行后,在搜索中有好的表現(xiàn),專業(yè)設(shè)計制作為您帶來效益的網(wǎng)站!讓網(wǎng)站建設(shè)為您創(chuàng)造效益。
End????'退出后關(guān)閉軟件
End?Sub
'點(diǎn)擊關(guān)閉按鈕時彈出對話框判斷是否退出
Private?Sub?Form2_FormClosing(sender?As?Object,?e?As?FormClosingEventArgs)?Handles?Me.FormClosing
'經(jīng)典判斷關(guān)閉法
If?MessageBox.Show("是否退出?",?"確認(rèn)",?MessageBoxButtons.OKCancel,?MessageBoxIcon.Question,
MessageBoxDefaultButton.Button2)?=?Windows.Forms.DialogResult.Cancel?Then
e.Cancel?=?True
Else
e.Cancel?=?False
End?If
End?Sub
在該按紐的單擊事件編寫代碼:
Private
Sub
Button1_Click(ByVal
sender
As
System.Object,
ByVal
e
As
System.
EventArgs
)
Handles
Button1.Click
Me.Close()
End
Sub
在VB6的時候,使用:Unload
me
在VB.NET里使用:Me.Close()
Form_Deactivate事件在窗體被卸載時觸發(fā),在其中中加一行End結(jié)束程序就行了