拦截退出

Question

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Dim ret As Long
    ret = MsgBox("exit?", vbYesNo + vbQuestion, "??")
    If ret = vbYes Then
        Cancel = 0
    Else
        Cancel = 1
    End If
End Sub

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    
 ' 如果用户单击No按钮，则停止QueryUnload。
   If MsgBox("您真的要退出么？", vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
    
    
End Sub

Answer 2

谢谢两位的答案!我试了一下,完全可行.再次thank
怎么给分的呢?