Private Sub Form_Unload(Cancel As Integer)
Dim yesno As String
yesno = MsgBox("真的要结束运行吗?", vbYesNo + vbQuestion)
If yesno <> vbYes Then
Exit Sub '---------------------电击对话框上的否是为什么窗体还是关闭了, ElseEnd
End If
End Sub
Dim yesno As String
yesno = MsgBox("真的要结束运行吗?", vbYesNo + vbQuestion)
If yesno <> vbYes Then
Exit Sub '---------------------电击对话框上的否是为什么窗体还是关闭了, ElseEnd
End If
End Sub
If yesno <> vbYes Then
cancel=-1 Else
End
Dim yesno As String
yesno = MsgBox("真的要结束运行吗?", vbYesNo + vbQuestion)
If yesno <> vbYes Then
Cancel = True
Else
End
End If
End Sub
你的程序没有改变cancel的值(默认就是0了),exit sub也不管用了