上一节讲解了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 教程 目录
总结以上是内存溢出为你收集整理的vb.net 教程 12-1 WebBrowser 2全部内容,希望文章能够帮你解决vb.net 教程 12-1 WebBrowser 2所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)