变通应该可以实现吧!启动时,判断指定文本文件是否存在,否则,随意把指定内容保存为一个文本文件到指定位置,退出系统时删除这个文件!当判断指定文件存在时,说明该系统已经打开,自动退出正在打开的项目,不存在,说明该系统未打开,生成这个文件并继续打开,代码您自己做,应该在BeforeOpenProject事件研究!
BeforeOpenProject
在打开项目之前执行,可以在此进行一些环境上的判断,决定是否打开项目。
e参数属性:
File: 字符型,表示正在打开的项目文件名称,含路经。
Cancel: 逻辑型,设为True,拒绝打开项目。
示例
假定需要在打开项目前,检查项目文件目录中,是否存在名为ip.txt的文件,如果不存在,就拒绝打开项目:
Dim
s As String = FileSys.GetParentPath(e.File) & "\ip.txt"
If FileSys.FileExists(s) = False Then
e.Cancel = True
MessageBox.show("文件丢失,无法打开此项目.")
End if