- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关闭项目是选择是否都关闭项目 代码如下 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=67655)
-- 发布时间：2015/4/28 15:17:00
-- 关闭项目是选择是否都关闭项目 代码如下
Dim Result As DialogResult
Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result=DialogResult.No
e.Cancel=True
Else
e.Cancel= False
End If
-- 发布时间：2015/4/28 15:18:00
--
Dim Result As DialogResult Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If Result=DialogResult.No then e.Cancel=True End If |
-- 发布时间：2015/4/28 15:23:00
-- 还是选择是否，都关闭系统呢
……
-- 发布时间：2015/4/28 15:24:00
--
你写错事件了吧
写在BeforeCloseProject
-- 发布时间：2015/4/28 15:49:00
-- 没有就是写在beforecloseproject
……
-- 发布时间：2015/4/28 15:50:00
--
不可能,上例子.
-- 发布时间：2015/4/28 15:53:00
-- 例子
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目9.rar |
-- 发布时间：2015/4/28 15:56:00
--
Dim Result As DialogResult
Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result=DialogResult.Yes Then
Else
e.Cancel=True
End If
-- 发布时间：2015/4/28 15:58:00
-- 这样不管是否都不离开项目了
……
-- 发布时间：2015/4/28 15:58:00
--
不是,搞错了
你问题的真正原因是未赋值
Result=Messagebox.Show("确定要离开数据库系统吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)