Private Sub command1_click()
if Command1.Caption = "结束" then end
Print "我的世界"
Command1.Caption = "结束"
End Sub
一）首先需要是每个运行窗体有以下代码，使窗体右上角那个关闭的X按钮失效。Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = True
End Sub二）应该使用MsgBox 函数来选择是否结束程序。
MsgBox 函数
在对话框中显示消息，等待用户单击按钮，并返回一个 Integer 告诉用户单击哪一个按钮。
以下是一段使用MsgBox 函数来结束程序的按钮代码：
Private Sub Command4_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "结束程序 ?" ' 定义信息。
Style = vbYesNo ◆ vbCritical ◆ vbDefaultButton2 ' 定义按钮。
Title = "结束程序" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下"是"。
MyString = "Yes" ' 完成某操作。
Unload FrmComm
Unload frmCeshi
Unload frmchaxunNew
End
Else ' 用户按下"否"。
MyString = "No" ' 完成某操作。
End If
End Sub三）注意上述结束程序使用了Unload语句
Unload 语句
从内存中卸载窗体或控件。
不要使用End语句，End 语句提供了一种强迫中止程序的方法。Visual Basic
程序正常结束应该卸载所有的窗体。只要没有其它程序引用该程序公共类模块创建的对象并无代码执行，程序将立即关闭。
关闭自身就是用End
－－－－－－－－
注意Unload
me
不能关闭正在执行的Timer1_Timer的定时事件和其他连续执行过程，可能造成不能关闭程序。
一般都是在要实现结束功能的地方写：End
就可以了！
如果你是只有一个Form可以用unload
去结束程序
那复杂啦
如果是一个程序结束代码是
public
sub
form_unload()
unload
end
private sub command1_click()
end sub
以上就是土嘎嘎小编大虾米为大家整理的vb结束程序运行的代码_vb如何停止代码执行?相关主题介绍,如果您觉得小编更新的文章对您有所帮助，不要忘记讲本站分享给您身边的朋友哦！！