关于关闭和屏闪问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于关闭和屏闪问题

共有3045人关注过本帖树形打印复制链接主题：关于关闭和屏闪问题

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/9 10:53:00 [显示全部帖子]

1、你去编写BeforeClose事件 http://www.foxtable.com/help/topics/0712.htm

http://www.foxtable.com/help/topics/0668.htm

2、你给的例子无法测试，你上传例子的时候，请把数据源同时上传上来。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/11 9:16:00 [显示全部帖子]

问题一，你不是已经做好了么？

Dim Result As DialogResult
Result = Messagebox.Show("确定要退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then '如果用户选择是
    Dim ResultOk As DialogResult
    ResultOk = Messagebox.Show("退出保存数据吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If ResultOk = DialogResult.No Then '如果用户选择否
        Syscmd.Project.Exit(False)
    Else
        Syscmd.Project.Exit(True)
    End If
End If

问题二，这个闪屏是不可避免的。

有点甜

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

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2014/9/11 9:42:00 [显示全部帖子]

beforeCloseProject事件，加入代码

Dim Result As DialogResult
Result = Messagebox.Show("确定要退出系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then '如果用户选择是
    Dim ResultOk As DialogResult
    ResultOk = Messagebox.Show("退出保存数据吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    If ResultOk = DialogResult.Yes Then '如果用户选择否
        DataTables.Save
    End If
Else
    e.Cancel = True
End If

----------------------------------

关闭按钮

BaseMainForm.Close