VB动态添加WebBrowser控件，并拦截弹出窗口(不用引用任何组件)

WBCustomizer.dll 这个

1、注册:：在开始菜单中输入RegSvr32 路径（WBCustomizer.dll文件所在的绝对路径），若果注册成功，会提示

2、引用：在工程--》引用中，选择microsoft webbrows customizer sample object

3、使用：

如下举例

    Dim CustomWB As WBCustomizerSet CustomWB = New WBCustomizerWith CustomWB.EnableAccelerator vbKeyN, vbKeyControl, True  '表示启用ctrl+N键.EnableAccelerator vbKeyO, vbKeyControl, fasle  '禁用ctrl+O键.EnableContextMenus = True  '启用右键菜单 若赋值false   禁用右键菜单.EnableAllAccelerators = TrueSet .WebBrowser = WebBrowser1End With

新建空白窗体，然后粘帖下面代码：

 1 Option Explicit
 2 Public WithEvents br As VBControlExtender
 3
 4 Private Sub br_ObjectEvent(Info As EventInfo)
 5     If Info.Name = "NewWindow2" Then
 6         'Dim fm As New Form1
 7         'fm.Show
 8         'Info.EventParameters(0) = br.object ‘根据需要可实现在自己的新开窗口打开弹出窗口
 9         Info.EventParameters(1) = True '拦截弹出窗口
10     End If
11 End Sub
12
13 Private Sub Form_Click()
14     br.object.Navigate "http://www.baidu.com/"
15 End Sub
16
17 Private Sub Form_Load()
18     On Error Resume Next
19     If Licenses.Count = 0 Then Licenses.Add "Shell.Explorer.2", "Shell.Explorer.2"
20     Set br = Me.Controls.Add("Shell.Explorer.2", "br")
21     'br.Width = 150 * Screen.TwipsPerPixelX
22     'br.Height = 50 * Screen.TwipsPerPixelY
23     br.Visible = True
24 End Sub

转载于:https://www.cnblogs.com/jlxy/p/4912083.html

VB动态添加WebBrowser控件，并拦截弹出窗口(不用引用任何组件)相关推荐

使用谷歌浏览器内核控件DCEF3拦截弹出的新页面到新标签页
DCEF3控件TChromium有个事件OnBeforePopup,我们可以在这个事件函数里加上自己的逻辑,最后一个参数是返回参数bool &Result,置为true表示自己来处理,置为fa ...
如何在VB中添加SysInfo控件
如何在VB中添加SysInfo控件## SysInfo 控件是用来响应操作系统发送给所有应用程序的系统消息.应用程序在必要时就可适应操作系统的变化.我主要用来识别有无读卡器插入. (1)在最左侧工具箱 ...
ASP.NET Menu控件子菜单弹出导致页面出现滚动条问题
ASP.NET Menu控件子菜单弹出的时候导致页面CSS属性的Min-Height产生变化,结果是原来全屏的画面,多出了纵滚动条.可以通过如下方法解决: 将ASP.NET控件放置到Table的单元格 ...
Angular2项目中浏览器拦截弹出窗口的解决方法
Angular2项目中浏览器拦截弹出窗口的解决方法为什么把项目是Angular2的放到了前边? 因为正常也页面网上已经很多解决方案.请自行百度或Google. 现象:当window.open为用户触 ...
解决浏览器拦截弹出窗口问题
解决浏览器拦截弹出窗口问题参考文章: (1)解决浏览器拦截弹出窗口问题 (2)https://www.cnblogs.com/goloving/p/9721210.html 备忘一下.
关于浏览器拦截弹出窗口问题的解决方法
关于浏览器拦截弹出窗口问题的解决方法正常对于浏览器新开窗口有三种方式 1.html里a标签的target属性 2.javascript的window.open()方法 3.html里form表单的t ...
android 动态添加删除控件,求教Android，动态添加到控件能动态删除吗？
protected View createView() {//动态添加组件 Button btn = new Button(this);//动态创建按钮 btn.setId(index++); btn ...
mvc动态添加html控件,jquery – MVC3 Html.DisplayFor – 可以让这个控件生成一个ID吗？...
我想要显示一些文本,但也可以通过jQuery修改文本. model.DeviceComponentName)%> 如果我使用EditorFor而不是DisplayFor,我会看到输入控件的ID. ...
移除动态view android,请教Android,动态添加到控件能动态删除吗?
可以的.有2中方式: 1.动态添加的时候为组件设置id,删除的时候根据id查找到对应组件,然后删除 2.根据父节点,获取所有父组件下的子组件,然后依次删除. 示例: protected View cr ...

VB动态添加WebBrowser控件，并拦截弹出窗口(不用引用任何组件)

VB动态添加WebBrowser控件，并拦截弹出窗口(不用引用任何组件)相关推荐

最新文章

热门文章