Private Sub Command1_Click()
Dim a As Integer,b As Integer
a=Val(Text1.Text)
b=Val(Text2.Text)
Text3.Text=a+b
End Sub
在这段VB程序中,VB一直执行语句,直到最后一句结束语句”End Sub“,才结束程序运行。
Private Sub UserForm_Terminate()
Unload frmSub '退出当前窗体前先关闭子窗体
End Sub
扩展资料
在次代码运行的过程中,我们按Esc或者<Ctrl+Break>组合键是没有效果的。如果我们在开发好的程序时候,可以加上这句代码即可完成。顺带说下这格语句的使用方法:
Application对象的EnableCancelKey属性控制将用户中断用于运行程序的处理,语法如下:expression.EnableCancelKey,参数是expression必需的,Application对象。
end是vb整个应用程序,所有代码停止,窗口卸载exit是模块,可以是循环体,函数,过程 比如:"exit sub"vb中还有窗体退出还有,unload xx, me.unload等 如果只有一个窗体也相当于退出程序
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)