PersonalCorpus 版 (精华区)

下面的代码中，BJ 是逻辑型全局变量，在你进行修改的过程中将它设置为true。

“保存_Click”要改为你的程序中保存文件的过程名

PriVate Sub 
Form_Unload(Cancel As Integer)
Dim vsg As Integer
If BJ then
  vsg = 
vsgBox("文件已经修改，是否保存？", 3, "提示保存")
  If vsg = 2 then 
Cancel = 1: exit Sub
  If vsg = 6 then 保存_Click
end If
Unload 
ve
end
end Sub





;