Question

VB运行结束按钮点击才结束，需要代码

Private Sub command1_click()
Print "我的世界"
Command1.Caption = "结束"
End Sub
我现在的代码。但是我要点击结束然后才是真的结束关闭。

Answer 1

一）首先需要是每个运行窗体有以下代码，使窗体右上角那个关闭的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
程序正常结束应该卸载所有的窗体。只要没有其它程序引用该程序公共类模块创建的对象并无代码执行，程序将立即关闭。

Answer 2

Private Sub command1_click()
if Command1.Caption = "结束" then end
Print "我的世界"
Command1.Caption = "结束"
End Sub

追问

能留个QQ下次我好问问你么~我新手~~

追答

先给分