JavaScript 中的示例需要等效的 VBScript 代码

Question

我在 JavaScript 中有以下代码。我想在 VBScript 中有等效的代码。我尝试了一些示例，但它们对我不起作用：document.getElementById("button1").onclick = FuncHello;

你能给我提供等效的 VBScript 客户端代码吗？

<head>

    <script type="text/javascript">

    window.onload = initAll;

    function initAll()
    {
        document.getElementById("button1").onclick = FuncHello;
    }

    function FuncHello()
    {
        document.write ("Hello");
    }

    </script>

</head>

<body>

    <form name="form1">

        <input type="button" id="button1" value="Hello">

    </form>

</body>

这是VBScript中的客户端代码，我有：

<head>

    <script type="text/vbscript">

    window.onload = initAll

    Sub initAll()

        document.getElementById("button1").onclick = FuncHello

    End Sub

    Sub FuncHello()

        document.write ("Hello")

    End Sub

    </script>

</head>

<body>

    <form name="form1">

        <input type="button" id="button1" value="Hello">

    </form>

</body>

Answer 1

未测试，凭记忆

<script type="text/vbscript">
function initAll()
    set document.getElementById("button1").onclick = GetRef("FuncHello")
end function

function FunHello
  ....
end function

set window.onload = GetRef("initAll")
</script>

JavaScript 中的示例需要等效的 VBScript 代码

Equivalent VBScript code is needed for the example in JavaScript

javascript

vbscript

dhtml