[求助]软件控制栏中的关闭按钮问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]软件控制栏中的关闭按钮问题

共有6225人关注过本帖树形打印复制链接主题：[求助]软件控制栏中的关闭按钮问题

benhu

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00

[求助]软件控制栏中的关闭按钮问题 发帖心情

Post By：2013/6/29 10:09:00 [显示全部帖子]

1：为防止操作时直接关闭系统导致有些数据不能保存，想将软件控制栏中的关闭控制取消掉。或是保留，但不执行动作，只弹出窗口提示要安全退出系统。

PS：是软件控制栏，不是窗体控制栏

2：以下代码不是已经退出时保存了吗，为什么确认后，系系还会提示是否要保存文件。

此主题相关图片如下：123.bmp

If MessageBox.Show("确定退出系统吗?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

Syscmd.Project.Exit(True)

End If

[此贴子已经被作者于2013-6-29 10:09:48编辑过]

benhu

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00

Post By：2013/6/29 10:42:00 [显示全部帖子]

此主题相关图片如下：s.bmp

如果对表加上这句时，在退出时才不会问，否则在表没保存前，安全退出时就会问

If DataTables("表A").HasChanges Then

DataTables("表A").Save

End If

benhu

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00

Post By：2013/6/29 11:00:00 [显示全部帖子]

以下是引用Bin在2013-6-29 10:48:00的发言：
你是希望点击右上角关闭的按钮的时候不提示?

对这个关闭按钮：

为防止操作时直接关闭系统导致有些数据不能保存，两种取一种做法

1：想将软件控制栏中的关闭控制取消掉。

2：或是保留此按钮，但点击后不执行关闭动作，只弹出窗口提示“你不能直按关闭，请选择安全退出系统”。

benhu

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00

Post By：2013/6/29 11:20:00 [显示全部帖子]

太感谢了

benhu

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：102 积分：794 威望：0 精华：0 注册：2013/2/1 15:01:00

回复：（Bin）BEForCloseProJect 事件添加如下代码即可... 发帖心情

Post By：2013/6/29 13:08:00 [显示全部帖子]

按钮这个问题解决了，但如果BEForCloseProJect 事件添加如下代码即可.

MessageBox.show("你不能直按关闭,请选择安全退出系统")

e.Cancel=True

在安全退出系统时也出现了("你不能直按关闭,请选择安全退出系统")这信息，程序不能关。

想实现按自定菜单安全退出，在退出前保存了文件，以下代码还要如何更改才能既保存文件退出了，

但不会出现("你不能直按关闭,请选择安全退出系统")这信息。

If MessageBox.Show("确定退出系统吗?","提示",MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then

Syscmd.Project.Exit(True)

End If

下一主题 >> << 上一主题

主题：[求助]软件控制栏中的关闭按钮问题