Private Sub Form_Unload(Cancel As Integer)
i = MsgBox("确定要退出系统吗?", 33, "提示")
If i = 1 Then
Call Dellog
End
Else
Exit Sub
End If
End Sub不论我按确定还是取消,都是退出程序,怎么解决呢?
i = MsgBox("确定要退出系统吗?", 33, "提示")
If i = 1 Then
Call Dellog
End
Else
Exit Sub
End If
End Sub不论我按确定还是取消,都是退出程序,怎么解决呢?
解决方案 »
- 请教关于SQL两个表移动问题。
- 急救啊!在线,多分!数据库连接好了,怎么往其中一个表单写数据?
- 在将EXCEL导入到SQL SERVER 2000中使用COMMONDIALOG碰到的问题
- 关于SQL2000数据库的问题???
- 问个老问题:如何防止程序启动两次?
- 关于sql server2000 中数据写入MSHFLEXGRID控件和DataGrid控件的问题
- 求教!这样的筛选查询该如何编写呀?请附源码,谢谢!
- webbrower 超难问题。分不够可以再开巾加
- 一个非常奇怪的问题:关于label控件.无法改变label.caption的值.
- 收到网恋的相!高兴!散分!(在扩充话题 程序人生上好热烈)在此,再散,分享!
- [请教] 使用VBA代码禁用掉excel中的部分功能
- 每日一蛋
i = MsgBox("确定要退出系统吗?", 33, "提示")
If i = 1 Then
Call Dellog
End
Else
Cancle=1
End If
End Sub
Option Explicit
Dim i As Long
Private Sub Form_Unload(Cancel As Integer)
i = MsgBox("确定要退出系统吗?", 33, "提示")
If i = 1 Then
Call Dell
End
Else
Cancel = 1 '上一个写错了,.
End If
End Sub
Call Dellog
End
Else
cancel = true '要加这句,才是取消退出过程。
Exit Sub
End If
End
Else
Cancel = 1
End If