Foxtable(狐表)用户栏目专家坐堂 → webkit更改target


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

主题:webkit更改target

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/8 17:32:00 [显示全部帖子]

For Each archor As object In web.Document.getElementsByTagName("a")

 

或者你可以给其绑定 NewWindowCreated 事件

 

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/8 17:50:00 [显示全部帖子]

应该是你页面没有加载完毕,试试

 

Do Until web.ReadyState = 4
    Application.DoEvents
Loop

 

For Each archor As object In web.Document.getElementsByTagName("a")

 

 

或者,你可以绑定事件的嘛,绑定事件和 webbrowser 是一样的。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/8 18:02:00 [显示全部帖子]


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/8 18:08:00 [显示全部帖子]

 绑定事件,是一样的代码,请认真测试。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/8 19:25:00 [显示全部帖子]

以下是引用新航程小何在2017/10/8 18:29:00的发言:
老师,这个我真的没弄出来,您可以试一下,webkit的似乎太一样。我很早前就困扰这个问题。

 

一模一样。你做的时候报什么错?贴出你写的代码。


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/9 9:37:00 [显示全部帖子]

这句可以去掉

 

addhandler web.NewWindow, addressof web_NewWindow   '这个代码提示错误,说webkit不支持


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/9 9:47:00 [显示全部帖子]

代码位置调换

 

addhandler web.DocumentCompleted, addressof web_DocumentCompleted
web.Navigate(url)

 


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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/9 10:06:00 [显示全部帖子]

 实例发上来测试。

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


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2017/10/9 10:19:00 [显示全部帖子]

我测试了一下msgbox会弹出,如果修改内容,要这样写

 

Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
MessageBox.show(sender.ToString)
For Each archor As object In sender.Document.getElementsByTagName("a")

    archor.SetAttribute("target", "_self")
Next
MessageBox.show("target被改了")
End Sub


 回到顶部