主题：关于关闭和屏闪问题

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

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

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

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

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

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

 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

关闭按钮

BaseMainForm.Close   这个写在窗口的beforecolse事件中吗?谢谢