Foxtable(狐表) → 用户栏目 → 专家坐堂 → [讨论]为何我的WebBrowser不加载文件


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

主题：[讨论]为何我的WebBrowser不加载文件
帅哥哟，离线，有人找我吗？
飞天狐
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：628 威望：0 精华：0 注册：2023/1/25 21:23:00 		  发帖心情 Post By：2024/4/16 15:41:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥哟，离线，有人找我吗？
飞天狐
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：628 威望：0 精华：0 注册：2023/1/25 21:23:00 		  发帖心情 Post By：2024/4/16 15:42:00 [只看该作者]

如上图，过滤的是Word文档，但是能够看到其它的文件。

 回到顶部
帅哥，在线噢！
有点蓝
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106584 积分：542091 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/16 15:47:00 [只看该作者]

按钮代码？

 回到顶部
帅哥哟，离线，有人找我吗？
飞天狐
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：628 威望：0 精华：0 注册：2023/1/25 21:23:00 		  发帖心情 Post By：2024/4/16 18:18:00 [只看该作者]

Dim flg As New OpenFileDialog
Dim WB As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")

flg.Filter = "Excel文件|*.xls|Word文件|*.doc|PDF文件|*.PDF|jpg文件|*.jpg|TIF文件|*.tif"
If flg.ShowDialog = DialogResult.OK Then
    WB.OfficeToolBar=True
    WB.Address = flg.FileName
End If
 回到顶部
帅哥哟，离线，有人找我吗？
飞天狐
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：628 威望：0 精华：0 注册：2023/1/25 21:23:00 		  发帖心情 Post By：2024/4/16 20:21:00 [只看该作者]

仅设置一个过滤条件也不行。


图片点击可在新窗口打开查看此主题相关图片如下：仅一个过滤条件.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106584 积分：542091 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/16 20:37:00 [只看该作者]

我测试没有问题呀。试试删除项目里的bin目录，重启项目看看


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

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

难道您使用的是假系统？正常下面的过滤类型应该显示为这样才对。

图片点击可在新窗口打开查看此主题相关图片如下：3.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
飞天狐
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：628 威望：0 精华：0 注册：2023/1/25 21:23:00 		  发帖心情 Post By：2024/4/16 21:40:00 [只看该作者]

是阿，真神奇。我的是WIN10专业版系统，不知道是否有影响。另外还想问下：

1.WebBrower能不能邦定到文件列，以实现在Foxtable中单击不同的行，让不同的文件显示在WebBrower中。

2.在Foxtable中怎样定义一个Word类或对象（像EXCEL中 XLS.BOOK），以引用word的一些方法，好像有一个MS WORD的属性，不知道是怎么用的？

谢谢！
 回到顶部
帅哥哟，离线，有人找我吗？
飞天狐
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：628 威望：0 精华：0 注册：2023/1/25 21:23:00 		  发帖心情 Post By：2024/4/16 21:46:00 [只看该作者]

想了下，会不会是输入“Excel文件|*.xls|Word文件|*.doc|PDF文件|*.PDF|jpg文件|*.jpg|TIF文件|*.tif”这些时半角与全角的问题呢？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106584 积分：542091 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2024/4/16 21:46:00 [只看该作者]

1、不同行的文件地址赋值给浏览器控件即可
 回到顶部
帅哥哟，离线，有人找我吗？
飞天狐
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：84 积分：628 威望：0 精华：0 注册：2023/1/25 21:23:00 		  发帖心情 Post By：2024/4/16 23:46:00 [只看该作者]

在表的单元格单击事件中添加如下代码：

（为什么单击空白单元格会显示文件保存的根目录？？？）

Dim wb As WinForm.WebBrowser = Forms("窗口1").Controls("WebBrowser1")
Dim s As String

If e.Col.Name = "第十列" Then
    
    If e.Row("第十列") IsNot Nothing Then
        s = ProjectPath & "Attachments\" & e.Row("第十列")
        
        wb.Address = S
        Else
            wb.Address = ""
    End If 
  
        
    
End If
*****************************************************
运行结果如下：
1.正常显示的

图片点击可在新窗口打开查看此主题相关图片如下：正常显示.png
图片点击可在新窗口打开查看

2.不正常的（单击空白单元格显示文件存放的目录了）

图片点击可在新窗口打开查看此主题相关图片如下：显示目录.png
图片点击可在新窗口打开查看
 回到顶部
总数 27 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询