Foxtable(狐表)用户栏目专家坐堂 → 如何控制用户关闭及最小化呢?


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

主题:如何控制用户关闭及最小化呢?

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


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2010/6/30 11:51:00 [显示全部帖子]

不允许随便关闭项目,个人觉得较重要些,可以控制防止未保存数据退出系统。

本人是这样实现的(不知是否合楼主意思)

BeforeCloseProject事件中加入下述代码:

if Vars("用户名") <> "" then
   MessageBox.Show("不允许从这里退出系统!")
   e.Cancel = True
End if

 

在启动项目增加一个登陆窗口,Vars("用户名") = “aaa”

增加一个退出项目按钮或菜单,代码:

Vars("用户名") = "" 
Syscmd.Project.Exit(False)

[此贴子已经被作者于2010-6-30 11:51:42编辑过]

 回到顶部