VB.net 2010 视频教程 VB.net 2010 视频教程 python基础视频教程
SQL Server 2008 视频教程 c#入门经典教程 Visual Basic从门到精通视频教程
当前位置:
首页 > 编程开发 > vb >
  • 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 教程 目录
 
 
————————————————
版权声明:本文为CSDN博主「VB.Net」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/uruseibest/article/details/76099676

相关教程