rivate Sub Command1_Click()Dim YDMYDM = WebBrowser1.Document.body.createtextrange().htmltextOpen “D:\WEB.html” For Output As #1Print #1, YDMClose #1End Sub=================工程里引用:Microsoft HTML object Library工程里部件:Microsoft Internet controlsMicrosoft rich textbox controls 6.0 (SP6)在窗体中放置一个WEBbrowser控件,放置一个richtextbox控件代码:Private Sub Form_Load()WebBrowser1.Navigate “”End SubPrivate Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)Text1.Text = WebBrowser1.Document.documentElement.outerHTMLEnd Sub如需修改网页内容,增加以下代码:Private Sub Command1_Click()Dim wdoc As HTMLDocumentSet wdoc = WebBrowser1.Documentwdoc.body.innerHTML = “dfkdjfkdfjdkfjdkfjdk” ‘网页内容’WebBrowser1.Document.body.innerHTML = “dfkdjfkdfjdkfjdkfjdk” 与上句二选一End Sub
1500字范文,内容丰富有趣,写作好帮手!