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

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 得到的窗口，是窗口管理那里你添加的窗口，焦点窗口必须是鼠标点击进入以后才算是焦点窗口。

具体问题做个例子说明。

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

那就不是Forms.ActiveForm。

有没有判断焦点窗口的?

做个计划任务，执行下面的代码，看命令窗口显示什么

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    output.show(frm.name)
End If
output.show("---------------")
Dim frm1 As WinForm.Form = Forms.ActiveForm
If frm1 IsNot Nothing Then
    output.show(frm1.name)
End If
output.show("········")

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

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

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

谢谢！

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

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

不好挑，一起打包了。

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

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

谢谢蓝老师！

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

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

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

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