- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 请尽快测试一个问题: (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=86448)
-- 发布时间：2016/6/17 15:00:00
-- 请尽快测试一个问题:
BeforeOpenProject
在打开项目之前执行，可以在此进行一些环境上的判断，决定是否打开项目。
e参数属性：
File：
字符型，表示正在打开的项目文件名称，含路径。
Cancel: 逻辑型，设为True，拒绝打开项目。
HideSplashForm：
逻辑型，设为True，关闭Foxtable的启动封面。
示例
假定需要在打开项目前，检查项目文件目录中，是否存在名为ip.txt的文件，如果不存在，就拒绝打开项目：
Dim s As
String = FileSys.GetParentPath(e.File) &
"\\ip.txt"
If
FileSys.FileExists(s) = False
Then
e.Cancel = True
e.HideSplashForm = True
MessageBox.show("文件丢失,无法打开此项目.")
End
if
这个事件 发布后 不能读取全路径
我用 ProjectPath & "****\\ip.txt" 这个方法也是一样情况.
害得我一个上午两个人在找错误原因.
-- 发布时间：2016/6/17 15:30:00
--
测试，弹出的路径正常。
-- 发布时间：2016/6/17 15:41:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试.zip |
-- 发布时间：2016/6/17 15:41:00
--
这个是开源的. 你试下吧
-- 发布时间：2016/6/17 15:53:00
--
-- 发布时间：2016/6/17 16:04:00
--
你合成的路径本来就不正确
Dim s As String = FileSys.GetParentPath(e.File) & "/dll\\测试.txt"
msgbox(s)
If FileSys.FileExists(s) = False Then
e.Cancel = True
e.HideSplashForm = True
MessageBox.show("文件丢失,无法打开此项目.")
End If
-- 发布时间：2016/6/17 16:14:00
--
你合成的路径本来就不正确
Dim s As String = FileSys.GetParentPath(e.File) & "/dll\\测试.txt"
msgbox(s)
If FileSys.FileExists(s) = False Then
e.Cancel = True
e.HideSplashForm = True
MessageBox.show("文件丢失,无法打开此项目.")
End If
我重新解释了.