【VB6】一个埋没了18年的代码：多标签IE浏览器（内含故事）

逍遥爱迪生

互联网早期都是机会，现在是只能捡漏一样找点机会了。难度大了100倍

liu496324

加油，技术至上

VB-Studio

获取网页标题不是可以这样吗：[变量名称] = [WebBrowser控件名称].LocationName

VB-Studio

系统消息 发表于 2021-3-31 09:58
要处理NewWindow2事件，不处理就默认是弹系统IE，我都是很多年后才搞清楚这个事件咋搞的，这个事件有个By ...

您给一个详细代码行吗？谢谢您！

YY菌

VB-Studio 发表于 2023-7-31 11:41
您给一个详细代码行吗？谢谢您！

1. 
   
2. Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)
   
3.     Dim frm As New Form1
   
4.     Set ppDisp = frm.WebBrowser1.Object
   
5.     frm.Show
   
6. End Sub
   

复制代码

VB-Studio

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

cnHopeStudio

VB-Studio 发表于 2023-8-3 09:29
要加载指定的链接，是不是应该这样？
Private Sub brwWebBrowser_NewWindow2(NewURL As String, ppDisp A ...

不需要啊……
NewWindow2 的定义是：

1. Private Sub object_NewWindow2( _
   
2.         ByRef ppDisp As Object, _
   
3.         ByRef Cancel As Boolean)

复制代码

都是 ByRef，本质上就是指针啊，传一个新的 WebBrowser 控件就行了。

YY菌

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？

VB-Studio

cnHopeStudio 发表于 2023-8-4 07:17
不需要啊……
NewWindow2 的定义是：

谢谢您！

VB-Studio

YY菌 发表于 2023-8-4 08:46
裆燃不是啊，新都把新Form的WebBrowser.Object给Set到ppDisp上了啊，老Form的WebBrowser内部会自动调用新 ...

是变量名……

YY菌

VB-Studio 发表于 2023-8-4 21:09
是变量名……

没的NewURL变量

VB-Studio

YY菌 发表于 2023-8-1 09:09

对不起，我在调试时发现一个BUG，那就是Ctrl+N还是出现系统IE……

YY菌

VB-Studio 发表于 2023-8-16 20:03
对不起，我在VB6里调试时发现一个BUG，那就是Ctrl+N新标签页还是系统IE……

直接屏蔽这个快捷键，或者在自己的菜单里面加个新建菜单，不就可以了。我这边不晓得为啥Ctrl+N是没有反应的。

VB-Studio

YY菌 发表于 2023-8-17 09:53
直接屏蔽这个快捷键，或者在自己的菜单里面加个新建菜单，不就可以了。我这边不晓得为啥Ctrl+N是没有反应 ...

先点击WebBrowser控件的空白部分，然后Ctrl+N不就有反应了？

VB-Studio

YY菌 发表于 2023-8-17 09:53
直接屏蔽这个快捷键，或者在自己的菜单里面加个新建菜单，不就可以了。我这边不晓得为啥Ctrl+N是没有反应 ...

焦点在WebBrowser控件上，弄菜单也没用。
倒是怎么屏蔽快捷键呢……

btrong

来收藏一波

YY菌

VB-Studio 发表于 2023-8-19 11:18
焦点在WebBrowser控件上，弄菜单也没用。
倒是怎么屏蔽快捷键呢……

胎神，劳资说的Form标题栏下面的菜单栏，它的快捷键是消息循环层就吃掉的，任何控件都没它优先。方法已经跟你说了，你自己去试试就晓得了。