这段屏蔽Webbrowser弹窗的代码怎么转成vb.net的呢?

homeyone 2011-04-24 12:36:51
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Dim WebBrowser1 As WebBrowser

WebBrowser1.Navigate2 "http://www.163.com/"
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
WebBrowser1.Navigate URL
Me.Caption = URL
End Sub


...全文
104 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
homeyone 2011-04-24
  • 打赏
  • 举报
回复
那如何才能不让他弹窗呢?然后让他的弹窗地址仍然通过WebBrowser打开呢?
红衣老大 2011-04-24
  • 打赏
  • 举报
回复
转不了

SHDocVwCtl.WebBrowser_V1 不好用

16,549

社区成员

发帖
与我相关
我的任务
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
  • VB.NET
  • 水哥阿乐
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧