1,077
社区成员
发帖
与我相关
我的任务
分享关于程退出的问题PBM_close
程序在点击标题栏的X按钮时，执行CLOSE事件（PBM_CLOSE）
我现在想就是用户要关闭的时候，先询问一下，是否要退出,如果是就关闭，不是就不关闭程。
源代码如下：
long ll_i,ll_order
ll_order = UpperBound(iw_to_open) //查看是否有打开的功能窗口
if ll_order > 0 then //大于0说明有功能窗口打开，要询问一下，反之就关闭
if MessageBox("提示","有操作未完成，是否退出系统?",Exclamation!, YesNo!, 2) = 1 then
//用户确定退出，自动关闭所以打开的窗口
FOR ll_i = UpperBound(iw_to_open) TO 1 STEP -1
IF IsValid(iw_to_open[ll_i]) THEH Close(iw_to_open[ll_i])
NEXT
else //用户确认返回
return -1 //这个地方返回没有效果，程序还是会关闭????????
end if
end if
请高手看一下怎么样让用户选择返回时，程序不关闭？？？
我现在想就是用户要关闭的时候，先询问一下，是否要退出,如果是就关闭，不是就不关闭程。
源代码如下：
long ll_i,ll_order
ll_order = UpperBound(iw_to_open) //查看是否有打开的功能窗口
if ll_order > 0 then //大于0说明有功能窗口打开，要询问一下，反之就关闭
if MessageBox("提示","有操作未完成，是否退出系统?",Exclamation!, YesNo!, 2) = 1 then
//用户确定退出，自动关闭所以打开的窗口
FOR ll_i = UpperBound(iw_to_open) TO 1 STEP -1
IF IsValid(iw_to_open[ll_i]) THEH Close(iw_to_open[ll_i])
NEXT
else //用户确认返回
return -1 //这个地方返回没有效果，程序还是会关闭????????
end if
end if
请高手看一下怎么样让用户选择返回时，程序不关闭？？？
...全文
请发表友善的回复…
发表回复
恶鱼 2006-08-30
- 打赏
- 举报
搞定了，再次感谢两位的帮助
圣殿骑士18 2006-08-30
- 打赏
- 举报
写在closequery事件中，不是close事件
恶鱼 2006-08-30
- 打赏
- 举报
谢了，先去试一下
魔鬼代言人5800 2006-08-30
- 打赏
- 举报
在closequery事件中写
返回1表示拒退出
返回0表示继续执行
返回1表示拒退出
返回0表示继续执行
eastpond 2006-08-30
- 打赏
- 举报
写在closequery事件里,
Long. Return code choices (specify in a RETURN statement):
0 Allow the window to be closed
1 Prevent the window from closing
Long. Return code choices (specify in a RETURN statement):
0 Allow the window to be closed
1 Prevent the window from closing
