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


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

主题：webkit更改target
帅哥哟，离线，有人找我吗？
新航程小何
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		webkit更改target  发帖心情 Post By：2017/10/8 17:25:00 [显示全部帖子]

这是foxtable自带的浏览器修改target的方法
Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
For Each archor As object In sender.Document.Links
    archor.SetAttribute("target", "_self")
Next
MessageBox.show("target被改了")
End Sub

我在用webkit，使用同样的方法去修改，不执行此以上代码？请问老师我应该怎么处理呢？

我现在的一种解决思路是：
Dim web As new WebKit.WebKitBrowser
web.Dock = Windows.Forms.DockStyle.fill
web.Navigate(url)

For Each archor As object In web.Document.links
    archor.SetAttribute("target", "_self")
Next

结果出错了，提示webkit.Dom.Document没有links，所以我想知道我应该怎么修改呢？请老师教教
 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/8 17:41:00 [显示全部帖子]

老师，我按照您的方法测试了一下，不行，提示如下错误

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

我打印了一下web.text结果，是空的。我估计问题出这了吧。这是怎么回事？
 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/8 17:59:00 [显示全部帖子]

老师，您说的第二种方法怎么实现？我试了第一种方法，提示无readyState的方法

 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/8 18:05:00 [显示全部帖子]

老师，我就是参考这个的，不过呢，这个案例是foxtable内置的浏览器控件，我用的是webkit，在使用过程中遇到的问题。老师您看能帮我解决一下吗？这问题困扰我很久了
 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/8 18:29:00 [显示全部帖子]

老师，这个我真的没弄出来，您可以试一下，webkit的似乎太一样。我很早前就困扰这个问题。
 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/9 9:25:00 [显示全部帖子]

'全局代码
Public Sub web_DocumentCompleted(sender As object, e As windows.forms.WebBrowserDocumentCompletedEventArgs)
MessageBox.show(sender.ToString)
For Each archor As object In sender.Document.Links
    archor.SetAttribute("target", "_self")
Next
MessageBox.show("target被改了")
End Sub

Public Sub web_NewWindow(sender As object, e As system.ComponentModel.CancelEventArgs)
e.cancel = True
End Sub


’在panel上打开页面
Dim web As new WebKit.WebKitBrowser
web.Dock = Windows.Forms.DockStyle.fill
web.Navigate(url)

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

Dim PB As WinForm.Panel = forms(frm).Controls(cont)
PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(web)


注释掉报错的地方，后不报错，但是并没有修改target

【这个错误是红色的代码的错误】

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



[此贴子已经被作者于2017/10/9 9:29:51编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/9 9:44:00 [显示全部帖子]

去掉了，可以就是没有执行，我写了msg,并没有执行

’我用的连接是
http://news.baidu.com/
[此贴子已经被作者于2017/10/9 9:44:48编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/9 10:03:00 [显示全部帖子]

改了，还是不行。麻烦老师了，这个问题的思路应该是这样的，为啥会错呢？难道是传递的参数类型不对，导致并没有调用此事件

 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/9 10:20:00 [显示全部帖子]

里面有连个，mywebkit是我的例子
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:web (1).foxdb


[此贴子已经被作者于2017/10/9 10:30:12编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
新航程小何
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：629 积分：4786 威望：0 精华：0 注册：2014/9/17 11:34:00 		  发帖心情 Post By：2017/10/9 10:34:00 [显示全部帖子]

好了，多谢老师，真是麻烦你了

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06055 秒, 6 次数据查询