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

解决方案 »

  1.   

    '这样试试:
    If yesno <> vbYes Then
       cancel=-1 Else
       
    End
      

  2.   

    Private Sub Form_Unload(Cancel As Integer)
    Dim yesno As String
    yesno = MsgBox("真的要结束运行吗?", vbYesNo + vbQuestion)
    If yesno <> vbYes Then
        Cancel = True
    Else
        End
    End If
    End Sub
      

  3.   

    Cancel As Integer是控件是不是退出窗体参数啊……
      

  4.   

    Cancel As Integer是控制是不是退出窗体参数啊……
      

  5.   

    因为你一旦调用这个sub,只要cancel这个参数<>0,它就会自动unload form 
    你的程序没有改变cancel的值(默认就是0了),exit sub也不管用了