Question

一篇文章中的几个问题。我正在制作一个HTA脚本，其中包含一些示例的下拉列表，但后来有一个＆＃39; custom＆＃39;选项。当我点击自定义时，我想要一个文本框和一些单词告诉用户输入一个以毫秒为单位显示在其下的数字，然后隐藏我是否选择其他选项。

我的问题： 1.如何启动文本框并隐藏上面的文字？ 2.如何根据用户的选择使其显示/消失下拉？

我将发布我现在所用的相关代码，但是我尝试但不起作用。请注意这是我第一次搞乱hta所以有些事情可能是多余的，或者我可能会遗漏一些部分，因为我只是从我的脚本中提取相关部分。此外，文本框和单词在开始时不会隐藏，因为我不知道如何做到这一点。

<BODY>
<SCRIPT LANGUAGE="VBScript">
Set wshShell = CreateObject("WScript.Shell")

Sub btn01_OnClick
    Dim strProduct

    Dim Timerdelay

oElements = Window.Message.SelectedIndex
    strProduct = Window.Message.Options(oElements).Text

Select Case strProduct
        Case "1 Second"
            Timerdelay=1000
            CustomTime.style.visibility="hidden"
            ShowTime.style.visibility="hidden"
        Case "3 Seconds"
            Timerdelay=3000
            CustomTime.style.visibility="hidden"
            ShowTime.style.visibility="hidden"
        Case "5 Seconds"
            Timerdelay=5000
            CustomTime.style.visibility="hidden"
            ShowTime.style.visibility="hidden"
        Case "30 Seconds"
            Timerdelay=30000
            CustomTime.style.visibility="hidden"
            ShowTime.style.visibility="hidden"
        Case "0.5 Seconds"
            Timerdelay=500
            CustomTime.style.visibility="hidden"
            ShowTime.style.visibility="hidden"
        Case "Custom"
            CustomTime.style.visibility="visable"
            ShowTime.style.visibility="visable"
            Timerdelay= CustomTime.Value
    End Select
End Sub
</SCRIPT>

<span id=ShowTime><P>Enter Your Time Delay In Miliseconds<P>
<input type="text" name="CustomTime" size="30"></span>

<Input Type = "Button" Name = "btn01" VALUE = "START">

</BODY>

Answer 1

您可以在下拉列表中使用属性onchange='myfunctionName(possible_value)'。在链接功能上，检查下拉列表的值，您的开关案例应该有效。另外，检查语法错误，例如＆＃34; visable＆＃34;而不是＆＃34;可见＆＃34;。

如果您不知道如何从下拉菜单中检索价值，可以转到此链接：Get drop down value

我如何启动一个隐藏的元素，然后在我从下拉列表中选择它时显示它？HTA？

1 个答案: