60分请教webbrowser1控件问题啊，他欺负人啊!555555555555555

Question

我的程序是要显示原代码的啊，大家应该清楚啊，就是利用到了WEBBROWSER的控件啊，
我加了个TEXTBOX来显示原代码啊，！有个TEXTBOX是写地址的，按钮是发送地址的，然后TEXTBOX就显示远代码啊，可是这个是要利用到WEBBROWSER控件啊！
可是加上这个控件是主要显示网页内容的啊，我不要显示网页内容的，加上就是在那里显示一个很难看，可是这个程序又必须用到这个控件，也得加，我只能把这个控件拉到最小了啊，可是还能看得到啊，很烦，把他设置成隐藏，可是又有问题，
请问个位我该怎么做呢，我就要这样，你们帮我看一下，怎么设置好了，不要用API，我是看到用API做到的，我不要API，行么？我给元代吗，你们帮我看看，谢谢了，各位，感激！！！1

Answer 1

代码如下：
Private Sub Command1_Click()
    Dim i As Long
    Dim existed As Boolean
    If Left(Combo1.Text, 7) <> "http://" Then
        Combo1.Text = "http://" + Combo1.Text
    End If
    WebBrowser1.Navigate 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 SubPrivate Sub Form_Load()
Me.Caption = "My Explorer"
    Combo1.Text = ""
    With Me.WebBrowser1
    .Navigate "about:blank"
    .Document.URL = "about:blank"
    .Document.write ""
    .Document.Close
    End With
End Sub
Private Sub WebBrowser1_DownloadComplete()
    Dim objHtml As Object
    '下载完成时状态栏显示“Link Finished”
    Set objHtml = Me.WebBrowser1.Document.Body.Createtextrange()
    If Not IsNull(objHtml) Then
        Text1.Text = objHtml.htmltext
    End If
End Sub

Answer 2

使用inet控件
Source1 = Inet1.OpenURL("www.csdn.net")
If Source1 <> "" Then
RichTextBox1.Text = Source1
Me.Inet1.Cancel
Else
Source = MsgBox("Source code is not available.", vbInformation, "Source Code")
End If

Answer 3

使用inet控件
向 online 学习

Answer 4

online你好啊，谢谢你！不过请问这个控件是第三方控件么？如果不是，请问他的控件的叫什么，比如
MICROSOFT 等这样的，我好在VB里找，谢谢！！

Answer 5

microsoft internet transfer control 6.0

Answer 6

transfer控件不是可以用于ftp吗？
向 online 学习

Answer 7

transfer控件不是可以用于ftp吗？
可以

Answer 8

能不能写一下完整的代码呢，就是我现在有个TEXTBOX，还有一个按钮和一个COMBO1这三个控件，在叫上你说的INET这个，怎么写的效果象我上面问题那样的效果呢，能完成写一下代码么？ONLIE大哥，偶比较菜，有的地方不太清楚，谢谢！

Answer 9

Private Sub Command1_Click()
    Text1.Text = WebBrowser1.Document.body.innerHTML
End SubPrivate Sub Form_Load()
    Me.WebBrowser1.Navigate "www.csdn.net"
    Me.WebBrowser1.Visible = False
End Sub

Answer 10

pcwak谢谢你，不用了，偶用ONLIE的办法，可以了，谢谢还有，不用了，我做好了，哈哈，效果真好啊，谢谢你们了，我给分罗！！

Answer 11

Private Sub Combo1_Click()
Source1 = Inet1.OpenURL(Combo1.Text)
If Source1 <> "" Then
Text1.Text = Source1
'Me.Inet1.Cancel
Else
Source = MsgBox("Source code is not available.", vbInformation, "Source Code")
End If
End SubPrivate Sub Form_Load()
Combo1.AddItem "www.csdn.net"
Combo1.ListIndex = -1
End Sub