龙之天宇全本下载:VB里怎样显示网页内容?

来源:百度文库 编辑:中科新闻网 时间:2024/04/30 08:06:24
怎么把网页内容显示在VB里?能提供代码吗?

添加 WebBrowser控件 Text1.text
WebBrowser1.Navigate "http://..."

Dim doc, objhtml As Object
Dim i As Integer
Dim strhtml As String

If Not WebBrowser1.Busy Then
Set doc = WebBrowser1.Document
i = 0
Set objhtml = doc.body.createtextrange()
If Not IsNull(objhtml) Then
Text1.Text = objhtml.htmltext
End If
Timer1.Enabled = False
End If