不允许随便关闭项目,个人觉得较重要些,可以控制防止未保存数据退出系统。
本人是这样实现的(不知是否合楼主意思)
BeforeCloseProject事件中加入下述代码:
if Vars("用户名") <> "" then MessageBox.Show("不允许从这里退出系统!") e.Cancel = TrueEnd if
在启动项目增加一个登陆窗口,Vars("用户名") = “aaa”
增加一个退出项目按钮或菜单,代码:
Vars("用户名") = "" Syscmd.Project.Exit(False)