主题：[求助]判断活动窗口

自定义函数里有段代码，想根据当前不同的焦点窗口分别写代码，但是有一段没起作用，能不能这样写？

Dim frm1 As WinForm.Form = Forms.ActiveForm
If frm1 IsNot Nothing Then
    If frm1.Name = "窗口1" Then
       代码1
    ElseIf frm1.Name = "窗口2" Then
       代码2       
    End If
End If

是焦点窗口，是几个并列窗口中的焦点窗口。

那就不是Forms.ActiveForm。

有没有判断焦点窗口的?

甜老师，我做了个例子，里面有两个浏览器窗口，结构相同。但一个是独立窗口，一个是并列窗口。

点击导航栏上面的按钮（在窗口中打开独立窗口）打不开网页里面的链接；点击下面的按钮（直接打开并列窗口）没有问题。

是不是自定义函数NewWindow的问题？

谢谢！

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-2-24开发-开发版.foxdb

不好挑，一起打包了。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:引用.rar

谢谢蓝老师！

可以了，只是打开网页较多时（比如两种方式同时打开10个左右的网页），会提示内存不足，见图：

此主题相关图片如下：image 1.jpg

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:2018-2-24开发-有点蓝.foxdb

按照老师指点的文件重新做的例子，如果还打不开，我楼上传过一个引用的dll文件包：

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:新示例.table

再问一个问题，如果在并列窗口中打开独立窗口，独立窗口中的下列两段SizeChanged代码，提示“未将对象引用设置到对象的实例”，关闭该窗口后，再次打开，就不报错。是不是跟在并列窗口中打开有关？

Dim dic As Dictionary(Of String, Integer) = vars("abc")
Dim p = e.Form.controls("panel1")
For Each key As String In dic.Keys
    MoveWindow(dic(key), 0, 0, p.width, p.height, True)
Next

或

vars("ie").Width = e.Form.Controls("panel1").width '设置IE对象宽度
vars("ie").Height = e.Form.Controls("panel1").height '设置IE对象高度

确实存在老师说的第二条的情况：

2、webbrowser，你在关闭页面或者关闭窗口的时候，是不是没有释放？比如你打开多个网页、关闭多个、又重复打开多个这样操作。

我把网页关闭后，网页中的声音一直都存在，怎样释放？