求助：当关闭CAD时应该触发什么事件啊？（VBA）

bsynuaa

efan2000

2. 
   
3. ‘ 在类模块或者窗体中
   
4. ' 声明一个带事件的应用程序变量
   
5. Private WithEvents AcadApp As AcadApplication
   
6. 
   
7. ' AutoCAD开始退出事件
   
8. Private Sub AcadApp_BeginQuit(Cancel As Boolean)
   
9.     ' 取消退出
   
10.     Cancel = True
    
11. End Sub
    
12. 
    
13. Sub test()
    
14.     ' 赋值，注意Application事情必须自己激发
    
15.     Set AcadApp = ThisDrawing.Application
    
16. End Sub
    

<br /> ‘ 在类模块或者窗体中<br /> ' 声明一个带事件的应用程序变量<br /> Private WithEvents AcadApp As AcadApplication<br /> <br /> ' AutoCAD开始退出事件<br /> Private Sub AcadApp_BeginQuit(Cancel As Boolean)<br />     ' 取消退出<br />     Cancel = True<br /> End Sub<br /> <br /> Sub test()<br />     ' 赋值，注意Application事情必须自己激发<br />     Set AcadApp = ThisDrawing.Application<br /> End Sub<br />

XJ_HE

哇噻。 请教EFAN版主。你这些东东能不能总结一下。（CAD的事件）
然后给我们菜鸟列出来。