如何在退出整個(gè)系統(tǒng)前提示用戶

字號(hào):

很簡(jiǎn)單,建立一個(gè)窗體,名字叫隱藏,并在啟動(dòng)選項(xiàng)內(nèi)選定這個(gè)窗體為啟動(dòng)時(shí)自動(dòng)打開。然后在窗體的加載事件內(nèi)加入如下代碼:
    Private Sub Form_Load()
     Me.Visible = False
    End Sub
    '在窗體的卸載事件中加入如下代碼:
    Private Sub Form_Unload(Cancel As Integer)
     If MsgBox("你真的要退出嗎?", vbYesNo + vbQuestion, "請(qǐng)確認(rèn)…") = vbNo Then Cancel = True
    End Sub