单击退出程序的VB代码怎么写

Question

如题所述

Answer 1

最简单的：

Private Sub 

Command1_Click()

End End Sub

End语句帮助你关闭所有已经打开的文件，显示的窗口，以及申请的内存等等，能够满足90%的需要，但是End也不是万能的，所以严谨的程序员还是会自己释放所占用的资源，完毕后再退出。

  扩展资料

[vb]代码库

view sourceprint?

Private Sub Form_Unload(Cancel As Integer)    

Dim iAnswer As Integer    

iAnswer = MsgBox("确定要退出吗?", vbYesNo)    

If iAnswer = vbNo Then    

Cancel = True    

Else    

End    

End If    

End Sub