Question

VB中窗体关闭事件

我做了一个管理系统，在子菜单里有一个“退出系统”选项，想点击退出的时候，出来一个对话框，提示要不要关闭，当确定后，再关闭，该怎么写代码呢？

Answer 1

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

If MsgBox("你真的想退出吗？ ", vbYesNo + vbDefaultButton1, "退出提示 ") = vbYes Then
End
Else
Cancel = True
End If

End Sub

追问

但是代码框显示的是Private Sub Exit_Click(Index As Integer)，我试过你给的这段代码，点击之后只会显示出一个对话框，当你点击确定之后，没有反应，该怎么办呢

追答

Private Sub Exit_Click(Index As Integer)
Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If MsgBox("你真的想退出吗？ ", vbYesNo + vbDefaultButton1, "退出提示 ") = vbYes Then
End
Else
Cancel = True
End If
End Sub

Answer 2

Dim a As Integer
a = MsgBox("你确认退出？", vbYesNo, "标题")
If a = 6 Then form1.close