- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 关于关闭和屏闪问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=56566)
-- 发布时间：2014/9/9 9:49:00
-- 关于关闭和屏闪问题
1、登录成功后，到图1界面，上面的关闭按钮，点击之后看到如图2。我想点击关闭的时候提示“确认退出下系统”吗？
-- 发布时间：2014/9/9 9:55:00
--
图呢? 上传图片看这里http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=78
-- 发布时间：2014/9/9 9:57:00
--
刚上传了呢。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:附图.rar |
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:高校权属管理系统 .foxdb |
-- 发布时间：2014/9/9 10:34:00
--
Bin，上传完了，帮看看。
-- 发布时间：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、你给的例子无法测试，你上传例子的时候，请把数据源同时上传上来。
-- 发布时间：2014/9/11 8:55:00
--
带数据源的例子。谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:高校权属管理系统 .foxdb |
-- 发布时间：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
问题二，这个闪屏是不可避免的。
-- 发布时间：2014/9/11 9:34:00
--
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:附图.rar |
1、登录成功后，到图1界面，点击右上面角的“关闭”按钮，点击之后看到如图2。我想点击关闭的时候提示“确认退出下系统”吗？ |
-- 发布时间：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
-- 发布时间：2014/9/11 17:04:00
--
关闭按钮
BaseMainForm.Close 这个写在窗口的beforecolse事件中吗?谢谢