Question

VB关闭程序后, 弹出提示是否退出

VB关闭程序后, 弹出提示是否退出.如PPS的退出时会弹出一个对话框询问是退出还是最小化到托盘上,请问如何来实现这个功能, 最好能提供下源代码,
谢谢各位了, 如果有代码的麻烦发给小弟一份. 我邮箱是netotcat@qq.com

Answer 1

很容易的,使用注册表记录结果,然后设置最小化和关闭, 代码发给你了， 自己看下

Answer 2

Private Sub Form_unload()
ask = MsgBox("是否退出？", vbYesNo)
If ask = vbYes Then
End
End If
End Sub

Answer 3

Private Sub Form_unload()
ask = MsgBox("是否退出？", vbYesNo)
If ask = vbYes Then
End
End If
End Sub

你也可以新建Form，将界面弄成弹出窗口，在用另一个FORM调用！如下：
Private Sub Form_unload()
form1.show
End Sub

Answer 4

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
i = MsgBox("是否退出？", vbOKCancel, "退出")
If i = vbCancel Then
Cancel = 1
End If
End Sub

Answer 5

发给你了