- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 项目使用 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=84515)
-- 发布时间：2016/5/4 11:14:00
-- 项目使用
一个项目放在金山快盘里边 当几个用户同时使用金山快盘打开这个项目 能不能在项目中添加代码 当一个用户使用时其他用户打不开改项目
-- 发布时间：2016/5/4 11:25:00
--
beforeOpenProject事件
Dim f As String = ProjectPath & "temp.txt"
If FileSys.FileExists(f) = True Then
Dim str As String = FileSys.ReadAllText(f)
If str > "" Then
e.cancel = True
End If
FileSys.WriteAllText(f, Date.now, False)
Else
FileSys.WriteAllText(f, Nothing, False)
End If
beforeCloseProject事件
Dim f As String = ProjectPath & "temp.txt"
FileSys.WriteAllText(f, Nothing, False)
-- 发布时间：2016/5/4 13:12:00
-- 回复：（大红袍）beforeOpenProject事件 Dim...
一个金山快盘账户 两个电脑同时登陆 项目文件 就在金山快盘里 加入老师给的代码 两边还是能同时打开项目
-- 发布时间：2016/5/4 16:20:00
--
我测试没问题，你看看temp.txt是否有值，有值以后，就应该不能再启动的的。
-- 发布时间：2016/5/4 16:31:00
-- 回复：（大红袍）?我测试没问题，你看看temp.txt...
[此贴子已经被作者于2016/5/4 16:48:55编辑过]
-- 发布时间：2016/5/4 16:54:00
-- 回复：（大红袍） 我测试没问题，你看看temp.txt...
代码加入后 还是能同时打开 只不过是 关闭其中一个 就会生成temp.txt 文本文档 里边没有内容
-- 发布时间：2016/5/4 17:00:00
--
以下是引用gcc123在2016/5/4 16:54:00的发言：
代码加入后 还是能同时打开 只不过是 关闭其中一个 就会生成temp.txt 文本文档 里边没有内容
所有客户端都关闭，然后启动一个，再启动一个这样测试。
-- 发布时间：2016/5/4 17:17:00
-- 回复：（大红袍）以下是引用gcc123在2016/5/4 16:54:0...
我现在是步骤是这样的：桌面上一个项目文件 加入老师给写的代码 关闭后生成一个temp.txt 文本文档 内容为空 在打开该项目文件 不关闭 在打开一次 按道理来说应该打不开的 但是第二次还是能打开
-- 发布时间：2016/5/4 19:00:00
--
我测试，没，问，题，你代码肯定写错位置了。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目6.table |
-- 发布时间：2018/4/16 19:06:00
--
这个案例是有问题的，反复尝试都达不到效果，是版本的问题，还是代码逻辑问题？