vb.net 教程 12-1 WebBrowser 2

上一节讲解了WebBrowser控件的一些基本知识，本节将做一个简单的浏览器来说明此控件的使用：

窗体设计界面：

主要代码：

转到1：

    Private Sub Button1_Click(sender As Object,e As EventArgs) Handles Button1.Click
        WebBrowser1.Url = New Uri(TextBox1.Text)
    End Sub

转到2：

    Private Sub Button2_Click(sender As Object,e As EventArgs) Handles Button2.Click
        WebBrowser1.Navigate(TextBox1.Text)
    End Sub

这里提供了两种方法来实现网页访问，当然，Navigate还有更多更高级的用法，请参看Msdn：

显示打印预览：

    Private Sub Button3_Click(sender As Object,e As EventArgs) Handles Button3.Click
        WebBrowser1.ShowPrintPreviewDialog()
    End Sub

除了打印预览，Print()、ShowPageSetupDialog()、ShowPrintDialog()、ShowPropertiesDialog()、ShowSaveAsDialog()，这些方法都可以直接使用。

后退：

    Private Sub Button4_Click(sender As Object,e As EventArgs) Handles Button4.Click
        If WebBrowser1.CanGoBack Then WebBrowser1.GoBack()
    End Sub

前进：

    Private Sub Button5_Click(sender As Object,e As EventArgs) Handles Button5.Click
        If WebBrowser1.CanGoForward Then WebBrowser1.GoForward()
    End Sub

    Private Sub WebBrowser1_DocumentCompleted(sender As Object,e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        ToolStripStatusLabel1.Text = "载入完毕：" & e.Url.ToString()
    End Sub

    Private Sub WebBrowser1_Navigating(sender As Object,e As WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
        If e.Url.ToString = "http://www.qq.com/" Then
            e.Cancel = True
            ToolStripStatusLabel1.Text = "阻止载入：" & e.Url.ToString()
        End If
    End Sub

通过以上代码，我们初步地学习了WebBrowser的使用，

由于本章主要是介绍控件的使用，WebBrowser还可以配合其他动态库做更高级的用途。

在后面的章节，我还会向大家介绍。

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

学习更多vb.net知识，请参看 vb.net 教程 目录

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!