HTA 中的 VBScript 隐藏 HTML div, "Object Required"

Question

我有一些代码可以在变量为空时在 HTML 中隐藏 div。

Sub checkBattery    
    If IsEmpty(e("batremaining")) Then
        batteryShow.style.visibility = "hidden"
    Else
        batteryShow.style.visibility = "visible"
    End If
End Sub

checkBattery

这让我非常沮丧，因为我不知道为什么它不起作用。

这是我的 <div>:

<div id="batteryShow" class="panel panel-warning batteryShow">
    <div class="panel-heading">
        <h3 class="panel-title">Battery Percentage</h3>
    </div>
    <div class="panel-body">
        <center><div style="font-size:16px;font-weight:bold;">Battery Level: 100%</div></center>
    </div>
</div>

我可能遗漏了一些非常简单且易于修复的东西，但我终究无法弄清楚是什么。

Answer 1

所以我的问题是我运行代码太早了。

我所做的修复是我创建了一个名为 handler 的新函数，我调用它来完成页面加载时需要做的事情。

Function handler()
    checkBattery
    ... ETC ...
End Function

在我的脚本正文中，我使用了

<body onLoad="VBScript:handler()">

HTA 中的 VBScript 隐藏 HTML div, "Object Required"

VBScript in HTA to hide an HTML div, "Object Required"

html

vbscript

hta