vb.net WebBrowser控件使用
2012-08-02 09:57
936 查看
Public Class Form1
Dim time As Integer = 0
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.WebBrowser1.Navigate("http://www.baidu.com")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Select Case time
Case 0
' wd为baidu中输入搜索内容的标志,注意搜索按钮触发的方法
Me.WebBrowser1.Document.All("wd").SetAttribute("value", "奥运")
Me.WebBrowser1.Document.Forms(0).InvokeMember("submit")
time += 1
End Select
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
'点击链接时,禁止打开新窗体。
e.Cancel = True
'此时转向自身窗体。
Me.WebBrowser1.Navigate(CType(sender, WebBrowser).StatusText)
End Sub
End Class
Dim time As Integer = 0
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.WebBrowser1.Navigate("http://www.baidu.com")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Select Case time
Case 0
' wd为baidu中输入搜索内容的标志,注意搜索按钮触发的方法
Me.WebBrowser1.Document.All("wd").SetAttribute("value", "奥运")
Me.WebBrowser1.Document.Forms(0).InvokeMember("submit")
time += 1
End Select
End Sub
Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
'点击链接时,禁止打开新窗体。
e.Cancel = True
'此时转向自身窗体。
Me.WebBrowser1.Navigate(CType(sender, WebBrowser).StatusText)
End Sub
End Class
相关文章推荐
- 在vb.net中使用webbrowser控件和mshtml以及流操作体会(vb.net内嵌IE,拆取 Web 页)(原创)
- vb.net使用WebBrowser浏览器控件自制浏览器的相关技术
- VB.NET让webbrowser控件中JS脚本错误最新方法(2013-09-16)
- 如何使用 Visual VB .NET 对 DataGrid Windows 控件执行分页
- 【VB.net】DataGridView控件的使用
- VisualStudio移动开发(C#、VB.NET)Smobiler开发平台——GifView控件的使用方式
- 走近VB.NET十五 在VB.NET中使用新的控件labellink访问
- vb.net里使用trackbar控件控制图形
- VisualStudio移动开发(C#、VB.NET)Smobiler开发平台——SliderView控件的使用方式
- 4000 移动开发(C#、VB.NET)Smobiler开发平台——GifView控件的使用方式
- 如何解决asp.net中使用webbrowser是出现的"无法实例化ActiveX 控件"的异常"
- vb.net中serialport控件的一些使用经验
- VB.NET中使用WebBrowser
- VS移动开发(C#、VB.NET)Smobiler开发平台——SliderView控件的使用方式 4000
- ProgressBar控件的使用(VB.NET)
- VB自动登陆网络站点详解(二):Inet控件与WebBrowser控件配合使用
- Vb.net控件使用备注
- 【转】介绍vb使用xmlhttp对象、webbrowser控件、inet控件进行Post发包、Get发包的方法
- 100% .NET Control_使用CurrencyManager 创建一个导航条来控制DatagGrid的XNavBar控件(VB.NET).
- 在VB.NET的表单中叠代使用控件