以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何控制用户关闭及最小化呢?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=7483)

--  作者:yankunhao
--  发布时间:2010/6/29 22:46:00
--  如何控制用户关闭及最小化呢?

      如何实现当用户想关闭及最小化foxtable项目时要输入密码才可以呢?

日常管理中,有些电脑只充许用户只能使用已打开了的项目,不充许随便关闭项目及最小化项目,也不充许使用电脑其他的资源,就是用户不能见到电脑桌面。


--  作者:狐狸爸爸
--  发布时间:2010/6/30 7:56:00
--  

屏蔽桌面和开始菜单,不是foxtable应该考虑的问题。


--  作者:yankunhao
--  发布时间:2010/6/30 8:51:00
--  
那项目最小化呢?我想当用户想最小化这个命令时提示要输入密码可以吗?
--  作者:狐狸爸爸
--  发布时间:2010/6/30 9:02:00
--  
图片点击可在新窗口打开查看
--  作者:yankunhao
--  发布时间:2010/6/30 11:08:00
--  

你老人家下次增加个事件,就是当项目最小化前就执行相应的代码,这样行吗?

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

--  作者:狐狸爸爸
--  发布时间:2010/6/30 11:10:00
--  

呵呵,我不能为这种偏门的要求增加事件的。

再说了,不能最小化foxtable又如何? 用户不还是可以通过开始菜单执行程序?

 


--  作者:baoxyang
--  发布时间: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编辑过]

--  作者:yankunhao
--  发布时间:2010/6/30 12:33:00
--  
以下是引用狐狸爸爸在2010-6-30 11:10:00的发言:

呵呵,我不能为这种偏门的要求增加事件的。

再说了,不能最小化foxtable又如何? 用户不还是可以通过开始菜单执行程序?

 

我有办法可以控制到用户不能用开始菜单的,就是没办法控制最小化啊!就算关闭项目也可以控制,但因最小化没有相关的事件,所以没办法。


--  作者:狐狸爸爸
--  发布时间:2010/6/30 14:55:00
--  

将桌面的图表全部删除就得了