|
|
'下面代码可以实现将某网页的某框架内容显示在新的WEBBROWSER中.
'add two webbrowser and a commandbutton to form1:
Private Sub Command1_Click()
Dim html As String
html = WebBrowser1.Document.frames(4).Document.body.innerHTML
html = "<HTML>" & "<BODY>" & html & "</BODY>" & "</HTML>"
WebBrowser2.Navigate "about:blank"
WebBrowser2.Document.write html
End Sub
'
Private Sub Form_Load()
WebBrowser1.Navigate "http://community.csdn.net/Expert/topic/4733/4733339.xml", 0
End Sub |
|
京ICP备14020293号-2
本网站内容均收集于互联网，如有问题请联系QQ:389897944予以删除
窥视卡
雷达卡
楼主
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
千斤顶
显身卡