vb.net 教程 12-1 WebBrowser 2

Bertha 。 2022-09-11 07:25 108阅读 0赞

版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。  
上一节讲解了WebBrowser控件的一些基本知识，本节将做一个简单的浏览器来说明此控件的使用：

窗体设计界面：

![Center][]

主要代码：

转到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：

![Center 1][]

显示打印预览：

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教程][vb.net] 目录

————————————————  
版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

[Center]: /images/20220828/e1f76853beed4fc8ae8b12290d3ec242.png
[Center 1]: /images/20220828/c5d825891dd94661942463bdc114dcb9.png
[vb.net]: https://www.xin3721.com/eschool/vbnetxin3721/