关闭系统前，如何得到提示以便进行一些操作？

Question

关闭系统前，如何得到提示以便进行一些操作？

Answer 1

查看是否有另外没有关闭的窗口，记录集是否关闭，连接方式是否断开，内存和cpu是否还是被这个程序占着。得到相应的信息，关闭就可以了。

Answer 2

在主窗体的unload事件中加入代码
Private Sub Form_Unload(Cancel As Integer)
    msgbox "你的提示"
    Set form1 = Nothing
End Sub

Answer 3

如果是关闭windows，如下：每个窗体都有QueryUnload事件。如果这个事件被激发时unloadmode参数为vbAppWindows时，就说明Windows要关闭。你可以在这个事件里加入自己的代码。不过你的程序必须一直运行着，因为如果你的程序不是正在运行，Windows在退出时不会自动调用你的程序。