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

Question

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下次我好问问你么~我新手~~

追答

先给分