互联网早期都是机会，现在是只能捡漏一样找点机会了。难度大了100倍
加油，技术至上
获取网页标题不是可以这样吗：[变量名称] = .LocationName
系统消息 发表于 2021-3-31 09:58
要处理NewWindow2事件，不处理就默认是弹系统IE，我都是很多年后才搞清楚这个事件咋搞的，这个事件有个By ...
您给一个详细代码行吗？谢谢您！
VB-Studio 发表于 2023-7-31 11:41
您给一个详细代码行吗？谢谢您！
Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
Dim frm As New Form1
Set ppDisp = frm.WebBrowser1.Object
frm.Show
End Sub
YY菌 发表于 2023-8-1 09:09
要加载指定的链接，是不是应该这样？
Private Sub brwWebBrowser_NewWindow2(NewURL As String, ppDisp As Object, Cancel As Boolean)
Dim frm As New frmBrowser
Set ppDisp = frm.brwWebBrowser.Object
frm.Show
frm.brwWebBrowser.Navigate NewURL
End Sub
VB-Studio 发表于 2023-8-3 09:29
要加载指定的链接，是不是应该这样？
Private Sub brwWebBrowser_NewWindow2(NewURL As String, ppDisp A ...
不需要啊……
NewWindow2 的定义是：
Private Sub object_NewWindow2( _
ByRef ppDisp As Object, _
ByRef Cancel As Boolean)
都是 ByRef，本质上就是指针啊，传一个新的 WebBrowser 控件就行了。
本帖最后由 YY菌 于 2023-8-4 08:48 编辑
VB-Studio 发表于 2023-8-3 09:29
要加载指定的链接，是不是应该这样？
Private Sub brwWebBrowser_NewWindow2(NewURL As String, ppDisp A ...
裆燃不是啊，新都把新Form的WebBrowser.Object给Set到ppDisp上了啊，老Form的WebBrowser内部会自动调用新Form WebBrowser的Navigate方法。再说NewWindow2哪来的NewURL方法给你手动Navigate？
cnHopeStudio 发表于 2023-8-4 07:17
不需要啊……
NewWindow2 的定义是：
谢谢您！
YY菌 发表于 2023-8-4 08:46
裆燃不是啊，新都把新Form的WebBrowser.Object给Set到ppDisp上了啊，老Form的WebBrowser内部会自动调用新 ...
是变量名……
VB-Studio 发表于 2023-8-4 21:09
是变量名……
没的NewURL变量
本帖最后由 VB-Studio 于 2023-8-19 11:09 编辑
YY菌 发表于 2023-8-1 09:09
对不起，我在调试时发现一个BUG，那就是Ctrl+N还是出现系统IE……
VB-Studio 发表于 2023-8-16 20:03
对不起，我在VB6里调试时发现一个BUG，那就是Ctrl+N新标签页还是系统IE……
直接屏蔽这个快捷键，或者在自己的菜单里面加个新建菜单，不就可以了。我这边不晓得为啥Ctrl+N是没有反应的。
YY菌 发表于 2023-8-17 09:53
直接屏蔽这个快捷键，或者在自己的菜单里面加个新建菜单，不就可以了。我这边不晓得为啥Ctrl+N是没有反应 ...
先点击WebBrowser控件的空白部分，然后Ctrl+N不就有反应了？
YY菌 发表于 2023-8-17 09:53
直接屏蔽这个快捷键，或者在自己的菜单里面加个新建菜单，不就可以了。我这边不晓得为啥Ctrl+N是没有反应 ...
焦点在WebBrowser控件上，弄菜单也没用。
倒是怎么屏蔽快捷键呢……
来收藏一波
VB-Studio 发表于 2023-8-19 11:18
焦点在WebBrowser控件上，弄菜单也没用。
倒是怎么屏蔽快捷键呢……
胎神，劳资说的Form标题栏下面的菜单栏，它的快捷键是消息循环层就吃掉的，任何控件都没它优先。方法已经跟你说了，你自己去试试就晓得了。
谢谢大佬，感谢分享:hug:
学习了
來看看，謝謝分享