以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  利用网页浏览器显示预览所有文件 求纠正当文件类型为WORD的时候弹出打开 保存对话框,让WORD直接预览在网页浏览器中!  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=60072)

--  作者:李孝春
--  发布时间:2014/11/17 23:14:00
--  利用网页浏览器显示预览所有文件 求纠正当文件类型为WORD的时候弹出打开 保存对话框,让WORD直接预览在网页浏览器中!

求纠正下面红色代码

 

当附件名字选择后,不提示打开还是保存对话框  而是直接显示为网页浏览器预览 让所有类型的附件都可以砸网页浏览器中预览

 

Dim pbx As WinForm.PictureBox = Forms("资源主窗体").Controls("PictureBox1")
If e.Sender.ComboList = ""
    Return
End If
If Tables("资源主表").Current Is Nothing Then
    pbx.Image = Nothing
Else
    \'  判断选择的是不是  图片格式,如果不是  则不执行代码   
    Dim dt As DataRow = DataTables("资源附件").SQLFind("附件名称=\'" & e.Sender.SelectedItem & "\' and 资源编码=\'" & Tables("资源主表").Current("资源编码") & "\'")   
    If dt IsNot Nothing \'必须要判断不然  报错
        Dim nm() As String = e.Sender.SelectedItem.split(".")
        Dim tpjh As String = "bmp,jpg,png,gif"
        If tpjh.Contains(nm(nm.Length-1)) Then \'如果是图片格式则显示           
            pbx.Image = dt.SQlLoadImage("附件内容") \'从后台提取照片并显示
        Else
            pbx.Image = Nothing
        End If
    End If
End If

 

 Dim lbx As WinForm.ListBox = e.Form.Controls("ListBox1")
Dim dr As DataRow = DataTables("资源附件").Find("附件名称=\'" & lbx.SelectedItem & "\' and 资源编码=\'" & Tables("资源主表").Current("资源编码") & "\'")
Dim fl As String =  ProjectPath & "附件\\" & lbx.SelectedItem
Dim fj As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
If dr.SQLLoadFile("附件内容",fl) Then \'如果提取文件成功
    fj.Address = fl
End If

 

 

新问题出现

当附件是WORD文件的时候会提示一个弹出对话框 询问是打开还是保存  当点打开后 再在网页浏览器中显示

感觉十分不便

求纠正为不提示是否保存还是打开  而是 直接显示

[此贴子已经被作者于2014-11-17 23:40:28编辑过]

--  作者:Bin
--  发布时间:2014/11/18 8:07:00
--  
通常是你这个文件正在打开尚未保存才会出现这种情况吧
--  作者:有点甜
--  发布时间:2014/11/18 9:12:00
--  

 我测试没有你这种问题,这个和word的版本以及设置有关。

[此贴子已经被作者于2014-11-18 9:11:57编辑过]

--  作者:李孝春
--  发布时间:2014/11/18 15:52:00
--  回复:(有点甜) 我测试没有你这种问题,这个和...
2007版本 不应该出现这个问题吧 呵呵
--  作者:有点甜
--  发布时间:2014/11/18 16:05:00
--  

 那你直接弄一个webbrowser去显示某一个word表格,是否正常?

 

 我测试是正常的

 

---------------

 

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


--  作者:李孝春
--  发布时间:2014/11/18 16:37:00
--  回复:(有点甜)?那你直接弄一个webbrowser去显...
有点甜老师 代码和我红色部分一样么

我注册看看  


点注册后 程序没有提示那错误了 
但是当我移开焦点后 再次回到会提示该文件修改问是否保存 继续求解!
[此贴子已经被作者于2014-11-18 16:48:18编辑过]