摘要:
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 controls Microsoft rich textbox controls 6.0 (SP6)在窗体中放置一个 阅读全文