Foxtable(狐表)用户栏目专家坐堂 → 从目录树打开在网页浏览器浏览的问题


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

主题:从目录树打开在网页浏览器浏览的问题

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/14 11:36:00 [显示全部帖子]

AfterLoad事件改改
........
For Each File As String In FileSys.Getfiles(dir)
    Dim f As String =file
    Dim ext As String
    ext = f.SubString(f.LastIndexof(".") ) '获得文件后缀
    f = f.Replace(dir & "\","")
    Dim f2 = f.replace(ext,"")
    Page.Links.Add(f,f2,"1602.ico")
Next
.........

TopicLinkClick 事件

Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "Attachments\公共文件\" & e.Page.Name & "\" & e.Link.Name 
e.Form.Controls("Label1").text =  e.Page.Name & "》" & e.Link.Name 

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/14 11:45:00 [显示全部帖子]

http://www.foxtable.com/help/topics/2903.htm

重要提示:

1、如果执行上面代码的时候,没有在WebBrowser显示Word报表,而是在一个新的IE窗口显示,那么请双击Foxtable目录下的Office.reg文件,将其添加到注册表中。


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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/14 15:10:00 [显示全部帖子]

NodeMouseDoubleClick


Dim brw As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
brw.Address = ProjectPath & "Attachments\公共文件\招标文件\" & e.Node.Text

加载word是这样的了,会闪屏

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/14 15:30:00 [显示全部帖子]

我测试么有问题

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


加好友 发短信
等级:狐神 帖子:5015 积分:25363 威望:0 精华:0 注册:2015/8/18 9:21:00
  发帖心情 Post By:2016/1/14 16:17:00 [显示全部帖子]

俺现在用的版本比正式发布的版本高,发了也打不开


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看



 回到顶部