以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  关于WebBrowser显示网页不是在窗口内  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158191)
--  作者：sloyy
--  发布时间：2020/11/11 1:03:00
--  关于WebBrowser显示网页不是在窗口内
此前的帖子http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=158107&replyID=&skin=1
实现了显示页面始终在窗口内,但是引发了另一个问题:某个页面是导出键,负责弹出excel文件名,可以保存到电脑,现在这样设置后,点击此导出键,没有反应,无法导出excel文件
有啥办法解决这个问题?
--  作者：有点蓝
--  发布时间：2020/11/11 8:39:00
--  
判断一下链接字符串，如果有文件扩展名，比如.xls之类的，就不要控制
--  作者：sloyy
--  发布时间：2020/11/11 9:17:00
--  
有扩展名xls   ,不要控制是啥意思?  
--  作者：有点蓝
--  发布时间：2020/11/11 9:38:00
--  

全局代码

 

Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
    For Each archor As object In sender.Document.Links

if archor .GetAttribute("href") like "*.xls*" then continue for
        archor.SetAttribute("target", "_self")
    Next
End Sub

 

Public Sub web_NewWindow(sender As object, e As system.ComponentModel.CancelEventArgs)

Dim urlNew As String = sender.Document.ActiveElement.GetAttribute("href")

if urlNew like "*.xls*" then return
    e.cancel = True
End Sub

[此贴子已经被作者于2020/11/11 9:38:40编辑过]