langhn,你没有理解我的意思。 我叉掉form是想取消,不执行"确定"程序。 但还想执行一个操作。 如果执行了确定程序,就不执行这个操作。 if ok then 确定 unload me else 叉 -1 end if
那你要在QueryUnload事件中写代码,根据UnloadMode来判断到底是执行还是不执行
如果你的窗口中创建了一些对象而没有清除这些对象将不触发Terminate事件
unloadmode 是form的属性吗?
'如果叉掉的 If UnloadMode = vbFormControlMenu Then If MsgBox("您确认要退出?", vbOKCancel + vbQuestion) = vbOK Then End Else Cancel = True End If Elseif UnloadMode = vbFormCode Then '如果是从代码中卸载 '做其它处理 End If
QueryUnload
Terminate
Caption:-
Name:menuline1
到时一定给10分。现在还不能给。
form的关闭次序如此,那各事件有什么区别吗?
我想在form的“确定”按钮中用unload me,
如果叉掉,就不执行"确定"中的东西,但要把一个计数器减1。
我叉掉form是想取消,不执行"确定"程序。
但还想执行一个操作。
如果执行了确定程序,就不执行这个操作。
if ok then
确定
unload me
else
叉
-1
end if
If UnloadMode = vbFormControlMenu Then
If MsgBox("您确认要退出?", vbOKCancel + vbQuestion) = vbOK Then
End
Else
Cancel = True
End If
Elseif UnloadMode = vbFormCode Then
'如果是从代码中卸载
'做其它处理
End If