vb中，单击按钮，结束程序执行的代码是什么

Private Sub UserForm_Terminate()

Unload frmSub '退出当前窗体前先关闭培银弯子窗体

End Sub

扩展资料

在次代码运行的过程中，我们按Esc或者<Ctrl+Break>配闷组合键是没有效果的。如果我们在开发好的程序时候，可以加上这句代码即可完成。顺带说下这格语句的使用方法：

Application对象的EnableCancelKey属性控制将用户中断用于运搏猜行程序的处理，语法如下：expression.EnableCancelKey，参数是expression必需的，Application对象。

将窗体的属性KeyPreview设置为True：

Option

Explicit

Private

Sub

Form_KeyPress(KeyAscii

As

Integer)

If

KeyAscii

=

27

Then

'如果皮渗按的燃旅脊键是Esc，

End

'那么退出程镇悄序

End

If

End

Sub

Private

Sub

Form_Load()

Me.KeyPreview

=

True

End

Sub

正常情况下不可能一按esc程序就结束了的啊，除非这么一种情况：你的窗体中放了一个“退出”的按钮（Command），而这个按钮的Cancel属性设为True，那么你按ESC就等同于按了这消卖个按钮。解决的办法很简单，就是把Cancel属性设为False即可。

还有一种可能就是你的程序中设了ESC键作为退出热键，御胡不过看情况镇桥拦不太可能。

---