Foxtable(狐表)用户栏目专家坐堂 → 请尽快测试一个问题:


  共有2376人关注过本帖树形打印复制链接

主题:请尽快测试一个问题:

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
请尽快测试一个问题:  发帖心情 Post By: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:03:04编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/6/17 15:30:00 [只看该作者]

测试,弹出的路径正常。

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/6/17 15:41:00 [只看该作者]

你怎么老是正常
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:测试.zip

里面的路径需要加个  \
[此贴子已经被作者于2016/6/17 15:48:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/6/17 15:41:00 [只看该作者]

这个是开源的.  你试下吧

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/6/17 15:53:00 [只看该作者]

我和同事找出原因了. 这个事件我以前一直用的是ProjectPath,从来没有出现过问题,现在用就获取不了全路径.


现在用这个 FileSys.GetParentPath(e.File) 没有问题.

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By: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


 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2016/6/17 16:14: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



 我重新解释了.


 回到顶部