VB程序 退出按钮

在窗体桥坦乱上添敏档加一个按钮，编辑代码：

Private Sub Command1_Click()

Unload Me

End Sub

这是正常退出，会执行Private Sub Form_Unload(Cancel As Integer)内容，例如退出确认之类（如果你写了的话）

如果你有多信胡个窗体，那么

Private Sub Command1_Click()

End

End Sub

此乃强制结束，跳过一切步骤，直接结束。类似结束进程。

Private Sub Command1_Click()

If MsgBox("是否要退出程序?", vbYesNo + vbExclamation, "退出程序") = vbNo Then

MsgBox "继续留在本窗体中", vbExclamation, "退出桥亩程序"

Else

MsgBox "枯敏程序准备退没消枝出运行状态", vbExclamation, "退出程序"

End

End If

End Sub

vb中退出按钮使用森腊樱Exit Sub命令。

Exit XXXX是VB中用于提前结束某一此丛模块的命令。局明

例如：

Exit Sub

Exit Function

Exit For

Exit Do

…………

---