以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关闭或退出项目的代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=72887)
--  作者：乡里出城
--  发布时间：2015/8/8 9:55:00
--  关闭或退出项目的代码
在项目里的AfterOpenProject加以下代码

Dim Result As DialogResult
Result = MessageBox.Show("Visual Basic一点不难，是不是？", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.NO Then
          \'如果选择否就退出项目或不打开项目，这项代码怎么述，我只知道在BeforeOpenProject的Cancel =true

End if


请高手指点一下
--  作者：y2287958
--  发布时间：2015/8/8 10:01:00
--  
打开后关闭
--  作者：有点蓝
--  发布时间：2015/8/8 10:03:00
--  
http://www.foxtable.com/help/index.html?n=1080.htm
--  作者：乡里出城
--  发布时间：2015/8/8 10:21:00
--  
Syscmd.Project.Exit()
谢谢3楼