VB关于webbrowser相关操作大全

 内容节选：

代码1：

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Dim frm As Form1

Set frm = New Form1

frm.Visible = True

Set ppDisp = frm.WebBrowser1.object

End Sub

 

代码2：

有这段代码， 有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！！！

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

Cancel = True

WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href

End Sub

 

代码3：

 

Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)

On Error Resume Next

Dim frmWB As Form1

Set frmWB = New Form1

frmWB.WebBrowser1.RegisterAsBrowser = True

Set ppDisp = frmWB.WebBrowser1.object

frmWB.Visible = True

frmWB.Top = Form1.Top

frmWB.Left = Form1.Left

frmWB.Width = Form1.Width

frmWB.Height = Form1.Height

End Sub

 

功能差不多，任选一个。

点击下载此文件

上一篇: VB中Unicode转UTF8
下一篇: JavaScript判断浏览器类型及版本
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: vb webbrowser
相关日志: