[IT]VB语言解决web引用弹出浏览器窗口与js错误警告提示

 2015-09-07 11:37:53   评论   1,820次浏览

我们在使用VB语言的webbrowser控件来引用网页的时候,会遇到一个令人头疼的问题,一些网页的a标签中写的是新窗口打开,也就是target="blank",那么这种情况在我们编译的软件中打开网页链接就会跳出网页框架,而且往往调用的是用户的默认浏览器,这样会给我们带来很大的不便,那么我们该如何解决这种情况的问题的。

一、解决浏览器跳出的问题

这个只需要在代码中加入如下段:

Private Sub Web_DownloadBegin()
Web.Silent = True
End Sub
Private Sub Web_DownloadComplete()
Web.Silent = True
End Sub

当然,这里的web是重命名过的,注意替换成你所需要的。

二、解决js错误弹窗警告问题

很多网页由于特效要求,对ie浏览器的兼容性不好,VB自然调用的浏览器就是默认的ie浏览器,那么在运行过程中就会遇到弹窗提示问题,那么怎么屏蔽掉这个弹窗呢?

也是需要一段代码

Private Sub Form_Load()
Set Web_V1 = Web.Object
End Sub
Private Sub Web_V1_NewWindow(ByVal URL As String, _
ByVal Flags As Long, _
ByVal TargetFrameName As String, _
PostData As Variant, _
ByVal Headers As String, _
Processed As Boolean)
Processed = True
Web.Navigate URL
End Sub

 

 

这样,两个问题就搞定了。

蚂蚁森林为我浇水吧!

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: