webbrowser的问题，我要你给我显示HTML，可是完了，WITH错误了，谢谢个位帮忙了！

Question

Private Sub Command2_Click()
    Dim i As Long
    Dim existed As Boolean
    If Left(Combo1.Text, 7) <> "http://" Then
    Combo1.Text = "http://" + Combo1.Text
    End If
    WebBrowser1.Document.body.innerHTML Combo1.Text
    For i = 0 To Combo1.ListCount - 1
    If Combo1.List(i) = Combo1.Text Then
    existed = True
    Exit For
    Else
    existed = False
    End If
    Next
    If Not existed Then
    Combo1.AddItem (Combo1.Text)
    End If
End Sub
这个按钮按下去，就是显示我输入的URL的也就是他的HTML代码，就是远代码出来，可是我按了按钮后，老这么一个错误：
什么WITH错误什么的，请问我代码那里错了呢

Answer 1

错误 “91”
变量或者“WITH”类模块未设置。

Answer 2

WebBrowser1.Document.body.innerHTML Combo1.Text
这一句不对吧。

Answer 3

Combo1.AddItem (Combo1.Text)
这句好象也不对啊,不加括号的

Answer 4

要访问网站则:
WebBrowser1.Document.body.innerHTML Combo1.Text
改为:WebBrowser1.Navigate Combo1.Text

Answer 5

你要获得源代码的话得先装载网页，你在未装载网页前用WebBrowser1.Document.body.innerHTML当然有问题。

Answer 6

你先等待控件上出现了内容，再执行WebBrowser1.Document.body.innerHTML看看，如：如下程序，你先按下command2，待WebBrowser控件有反应后再按下command1看看。
Private Sub Command1_Click()
   Print WebBrowser1.Document.body.innerHTML
End SubPrivate Sub Command2_Click()
   WebBrowser1.Navigate "http://www.163.com"
End Sub

Answer 7

谢谢个位哦！！！！！感谢ING

Answer 8

你要点完一个按钮就看到变化的话,可用下面这个程序:Private Sub Command1_Click()
    WebBrowser1.Navigate "http://www.163.com"
End Sub
Private Sub WebBrowser1_TitleChange(ByVal Text As String)
    Print Me.WebBrowser1.Document.body.innerHTML
End Sub