共27 条记录, 每页显示 10 条, 页签: [1] [2] [3]

[浏览完整版]

标题：[讨论]为何我的WebBrowser不加载文件

11楼

飞天狐 发表于：2024/4/16 15:41:00

12楼

飞天狐 发表于：2024/4/16 15:42:00

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

13楼

有点蓝 发表于：2024/4/16 15:47:00

按钮代码？

14楼

飞天狐 发表于：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楼

飞天狐 发表于：2024/4/16 20:21:00

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

此主题相关图片如下：仅一个过滤条件.png

16楼

有点蓝 发表于：2024/4/16 20:37:00

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

此主题相关图片如下：1.png

此主题相关图片如下：2.png

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

此主题相关图片如下：3.png

17楼

飞天狐 发表于：2024/4/16 21:40:00

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

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

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

谢谢！

18楼

飞天狐 发表于：2024/4/16 21:46:00

19楼

有点蓝 发表于：2024/4/16 21:46:00

1、不同行的文件地址赋值给浏览器控件即可

WB.Address = r("文件列")

2、http://www.foxtable.com/webhelp/topics/2922.htm

20楼

飞天狐 发表于：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

*****************************************************

运行结果如下：

1.正常显示的

此主题相关图片如下：正常显示.png

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

此主题相关图片如下：显示目录.png

共27 条记录, 每页显示 10 条, 页签: [1] [2] [3]