Foxtable(狐表)用户栏目专家坐堂 → 关于beforecloseproject事件退出项目操作


  共有2338人关注过本帖树形打印复制链接

主题:关于beforecloseproject事件退出项目操作

帅哥哟,离线,有人找我吗?
lzw001
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
关于beforecloseproject事件退出项目操作  发帖心情 Post By:2018/5/18 16:42:00 [只看该作者]

老师,在此事件中这样子写之后,点击关闭项目时,点击确定,却没有退出项目,是哪里的问题呢
Dim result As DialogResult
result = MessageBox.Show("你确定要退出吗?","提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If result =DialogResult.OK Then
    Syscmd.Project.Exit()
Else
    e.Cancel=True
End If


图片点击可在新窗口打开查看此主题相关图片如下:qq截图20180518164008.png
图片点击可在新窗口打开查看


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/18 16:47:00 [只看该作者]

这个代码删除 Syscmd.Project.Exit()

 回到顶部
帅哥哟,离线,有人找我吗?
lzw001
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/5/18 17:06:00 [只看该作者]

删除了,也是退不出

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/18 17:56:00 [只看该作者]

Dim result As DialogResult
result = MessageBox.Show("你确定要退出吗?","提示", MessageBoxButtons.YesNo,MessageBoxIcon.Question)
If result = DialogResult.Yes Then
    Syscmd.Project.Save()
Else
    e.Cancel=True
End If

 回到顶部
帅哥哟,离线,有人找我吗?
lzw001
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1505 积分:9045 威望:0 精华:0 注册:2017/10/24 15:24:00
  发帖心情 Post By:2018/5/19 11:45:00 [只看该作者]

可以了,谢谢

 回到顶部