Question

vb编写IE浏览器

Answer 1

VB可使用WebBrowser控件实现浏览器功能。

新建EXE工程，添加一个TextBox控件，添加Microsoft Internet Controls部件到工具箱。

在窗体上添加WebBrowser控件。调整好窗体、各控件尺寸。

使用以下代码：

Private Sub Form_Load()
    WebBrowser1.Navigate "http://zhidao.baidu.com"
    Do
        DoEvents
        If Not WebBrowser1.Busy And WebBrowser1.LocationURL <> "http://www.wk78.com/" Then
            Exit Do
        End If
    Loop
End Sub

Private Sub Text1_Click()
    WebBrowser1.Navigate Text1.Text
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
    If (pDisp Is WebBrowser1.Object) Then
        Text1 = WebBrowser1.LocationURL
    End If
End Sub

Answer 2

我教你。。 1、新建工程，在窗体里面添加一个TextBox控件和CommandButton控件，TextBox的Text属性设置为空，CommandButton的Caption设置为转到。 2、添加一个WebBrowser控件。。由于WebBrowser是自定义控件。。所以需要自行添加。。 3、添加代码： Private Sub Command1_Click() WebBrowser1.Navigate Text1.Text End Sub Private Sub Form_Load() WebBrowser1.GoHome End Sub Private Sub WebBrowser1_DownloadBegin() Me.Caption = "正在连接..." End Sub Private Sub WebBrowser1_DownloadComplete() Me.Caption = WebBrowser1.LocationName Text1.Text = WebBrowser1.LocationURL End Sub 这是个最简单的浏览器代码。。