怎样在退出程序时提示？？？

Question

Private Sub Form_Unload(Cancel As Integer)
Dim a As Integer
a = MsgBox("确定退出吗？", vbOKCancel, "提示")
If a = vbOK Then
End
End If
End Sub这样为什么不行？？？应该如何写？

Answer 1

Private Sub Form_Unload(Cancel As Integer)
    If MsgBox("真的退出？", vbOKCancel) = vbCancel Then
        Cancel = 1
    Else
        Cancel = 0
    End If
End Sub

Answer 2

改成：
Private Sub Form_Unload(Cancel As Integer)
Dim a As Integer
a = MsgBox("确定退出吗？", vbOKCancel, "提示")
If a = vbOK Then
End
else
Cancel = 1
end if
End Sub

Answer 3

最精简的答案来了Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的退出？", vbOKCancel) = vbCancel Then Cancel = 1
End Sub

Answer 4

'
最好写在Form_QueryUnload事件中.

Answer 5

最精简的答案来了Private Sub Form_Unload(Cancel As Integer)
If MsgBox("真的退出？", vbOKCancel) = vbCancel Then Cancel = 1
End Sub
'''''''''''''''''''''''''''
看看谁用的字符少：）
If MsgBox("真的退出？", vbOKCancel) = vbCancel Then Cancel = 1
Cancel = IIf(MsgBox("真的退出？", vbOKCancel) = vbOK, 0, 1)

Answer 6

看我的
Private Sub Form_Unload(Cancel As Integer)
 Cancel=MsgBox("真的退出？", vbOKCancel)
End Sub

Answer 7

日日日日日
 ayalicer(小刀惋心) 
你的一看就不行

Answer 8

最好写在Form_QueryUnload事件中.

Answer 9

凑热闹的：
Private Sub command1_Click()
If MsgBox("确定退出本系统吗？", vbQuestion + vbYesNo, "退出系统") = vbYes Then
  For Each Form In Forms
  Unload Form
  Next Form
End If
End Sub

Answer 10

Private Sub Form_Unload(Cancel As Integer)
  Cancel = MsgBox("真的退出", 1) - 1
End Sub

Answer 11

上次太匆忙了 现在修正下
Private Sub Form_Unload(Cancel As Integer)
 Cancel=1-MsgBox("真的退出？", vbOKCancel)
End Sub

Answer 12

Cancel=1-MsgBox("真的退出？", vbOKCancel)
中的1-MsgBox("真的退出？", vbOKCancel)是什么意思

Answer 13

MsgBox("真的退出？", vbOKCancel)是真的话
1-MsgBox("真的退出？", vbOKCancel)=0也就是返回false
MsgBox("真的退出？", vbOKCancel)是假的话
1-MsgBox("真的退出？", vbOKCancel)=0也就是返回true

Answer 14

在form_unload事件中写个msgbox就OK 了