在WebBrowser控件

Question

我想检测JavaScript中窗口最小化的时间，因此我使用的是document.hidden。在下面的代码段中，单击“开始”并通过单击最小化按钮最小化窗口，使用 Win + 向下箭头切换任务栏中的应用程序图标，使用赢 + D 等

当窗口最小化时，您会在textarea中看到“隐藏”。

var startButton = document.getElementById("start");
var stopButton = document.getElementById("stop");
var ta = document.getElementById("ta");

var id;
startButton.onclick = function() {
	id = setInterval(function() {
		ta.value += document.hidden ? "hidden\n" : "visible\n";
	}, 1000);
};

stopButton.onclick = function() {
	if (id) clearInterval(id);
};

<button id="start">Start</button>
<button id="stop">Stop</button>
<br />
<textarea id="ta" cols="50" rows="20"></textarea>

那里没有问题。

但是，我在VB6中托管这个JS代码。

我创建了一个简单的项目，其中包含WebBrowser控件和CommandButton的表单。我唯一的代码就是：

Private Sub Command1_Click()
    WebBrowser1.Navigate "http://localhost:1234/mypage.html"
End Sub

单击命令按钮将我带到同一页面：

在VB6中，这三种情况显示“隐藏”：

• 点击最小化按钮
• 赢 + 向下箭头
• 赢 + D

但不是，在这种情况下：

• 切换任务栏中的应用程序图标

我还注意到"hidden"仅显示窗口最小化的第一个时间。如果再次将其最小化，它将显示“可见”。

我猜这是WebBrowser控件如何与JS集成的错误？有没有人有这方面的解决方法？

我可能会很快将这个问题重新用于更广泛的问题，因为这与document.hidden错误关系不大，更多地与WebBrowser没有与JS的Page Visibility很好地整合。< / p>

我发现的一个更普遍的问题是visibilitychange处理程序在VB6中由WebBrowser控件托管的页面中运行时不会触发，但在浏览器中完全正常：

var ta = document.getElementById("ta");
document.addEventListener("visibilitychange", function ()
{
	ta.value += document.visibilityState + "\n";
});

<textarea id="ta" cols="50" rows="20"></textarea>

Answer 1

我通过收听Resize事件解决了这个问题，每当WindowState发生变化时，我都会在我的JS代码中设置一个属性来指示状态：

Private Sub Form_Resize()
    Static lWindowState As Long
    Dim lNewWindowState As Long
    Dim lOldWindowState As Long

    lNewWindowState = m_DesktopForm.WindowState
    lOldWindowState = lWindowState

    If lWindowState <> lNewWindowState Then  
        lWindowState = lNewWindowState

        Dim bHidden As Boolean
        bHidden = (lWindowState = vbMinimized)          
        Call CallByName(MyJSObj, "windowIsHidden", VbLet, bHidden)
    End If
End Sub

我的JS有一个对象（VB可以引用），如下所示：

MyJSObj = {
    windowIsHidden: false
}

然后我添加了一个方法来包装document.hidden：

function isDocumentHidden() {
    // if document.hidden is true, trust that. If it's not true, then fall back on what VB says
    return document.hidden || MyJSObj.windowIsHidden;
}

我在代码中使用该方法而不是document.hidden。