很簡(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
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

