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

逍遥爱迪生 · 发表于 2023-7-5 07:10:01

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

liu496324 · 发表于 2023-7-6 10:32:53

加油，技术至上

VB-Studio · 发表于 2023-7-31 11:34:51

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

VB-Studio · 发表于 2023-7-31 11:41:06

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

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

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

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

复制代码

VB-Studio · 发表于 2023-8-3 09:29:20

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 · 发表于 2023-8-4 07:17:41

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:46:34

本帖最后由 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？

VB-Studio · 发表于 2023-8-4 21:08:23

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

谢谢您！

VB-Studio · 发表于 2023-8-4 21:09:57

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

是变量名……

YY菌 · 发表于 2023-8-7 09:02:30

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

没的NewURL变量

VB-Studio · 发表于 2023-8-16 20:03:52

本帖最后由 VB-Studio 于 2023-8-19 11:09 编辑

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

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

YY菌 · 发表于 2023-8-17 09:53:15

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

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

VB-Studio · 发表于 2023-8-19 11:08:49

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

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

VB-Studio · 发表于 2023-8-19 11:18:46

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

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

btrong · 发表于 2023-9-10 09:51:18

来收藏一波

YY菌 · 发表于 2023-9-10 16:43:32

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

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

账号		自动登录	找回密码
密码			立即注册→加入我们

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

点评