Foxtable(狐表)用户栏目专家坐堂 → 这个错误怎么解决


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

主题:这个错误怎么解决

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


加好友 发短信
等级:五尾狐 帖子:1015 积分:6979 威望:0 精华:0 注册:2012/8/1 18:41:00
这个错误怎么解决  发帖心情 Post By:2015/7/22 22:37:00 [显示全部帖子]

Dim ObjIE As Object  = CreateObject("internetexplorer.application")
ObjIE.Navigate("url" )
Do While objie.ReadyState <> 4
    Application.DoEvents
Loop
Dim neirong As System.Windows.Forms.HtmlElement
neirong = ObjIE.Document.getelementbyid("js_content")

 

Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
web.Document.window.Frames(0).Document.body.Innerhtml = neirong.Innerhtml

 

运行报错

无法将类型为“System.__ComObject”的 COM 对象强制转换为类类型“System.Windows.Forms.HtmlElement”。表示 COM 组件的类型实例不能强制转换为不表示 COM 组件的类型;不过,只要基础 COM 组件支持对接口 IID 的 QueryInterface 调用,就能将这些实例强制转换为接口。


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


加好友 发短信
等级:五尾狐 帖子:1015 积分:6979 威望:0 精华:0 注册:2012/8/1 18:41:00
  发帖心情 Post By:2015/7/22 23:51:00 [显示全部帖子]

Dim web2 As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser2").BaseControl
web2.navigate( "url" )
Do While web2.ReadyState <> 4
    Application.DoEvents
Loop


Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").BaseControl
web.Document.window.Frames(0).Document.body.Innerhtml = neirong.Innerhtml '

 

修改成这样 同样报错


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


加好友 发短信
等级:五尾狐 帖子:1015 积分:6979 威望:0 精华:0 注册:2012/8/1 18:41:00
  发帖心情 Post By:2015/7/22 23:54:00 [显示全部帖子]

谢谢 可以了

 回到顶部