关于消息对话框的

Question

这样：点击“退出”，弹出消息提示：“是否退出系统？”
如果点“确定”就退出，点“取消”就不退出
这个功能用VB怎么写呢？谢谢了！！！！！！！！！

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("是否退出系统？", vbYesNo + vbDefaultButton2, "") = vbNo Then
    Cancel = True
End If
End Sub

Answer 2

不好意思，我是写在一个ToolBar的按钮上，这样写的：
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
    Case 3
      ManageYZFrm.Show   
    Case 5
       SetPer.Show (1)
    Case 7
       SetType.Show
    Case 9
        setfrm.Show
    Case 13
    Dim Cancel As Integer
        If MsgBox("是否退出系统？", vbYesNo + vbDefaultButton2, "") = vbNo Then
        Cancel = True
    End If
End Select
End Sub可是这样以后，倒是弹出来对话框了，但是点是或否都不退出了

Answer 3

If MsgBox("是否退出系统？", vbYesNo + vbDefaultButton2, "") = vbyes Then
        unload me
    End If  
*****************************************************************************
欢迎使用CSDN论坛阅读器 : CSDN Reader(附全部源代码) 
http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html

Answer 4

谢谢楼上的，请问为什么不能用
If MsgBox("是否退出系统？", vbYesNo + vbDefaultButton2, "") = vbyes Then
        Exit sub
    End If(如果用Exit Sub的话点是或否都不退出了，为什么?)

Answer 5

        Exit sub
是推出当前函数，但是窗体还显示unload me是关闭窗体，也就退出系统啦