窗体问题！在线等

Question

我要在电击窗体的又上方的叉子时（就是关闭这个窗体的时候），先弹出一个确认的MESSAGEBOX，然后在点击取消的时候，让原先的操作没有发生效用，如何实现？？

Answer 1

在Form的QueryUnload事件中设置Cancel的值。

Answer 2

可以具体点的吗，大哥，怎么设置CANCEL啊？

Answer 3

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim ret As Long
ret = MsgBox("Are you sure?", vbOKCancel, "Msg")
If ret = vbOK Then
    Cancel = False
Else
    Cancel = True
End IfEnd Sub