Несколько вопросов в одном посте.Я делаю сценарий HTA, в котором есть несколько раскрывающихся списков, но затем есть опция 'custom'.Когда я нажимаю «Пользовательский», я хотел бы, чтобы текстовое поле и некоторые слова предлагали пользователю ввести число в миллисекундах, чтобы отобразить его под ним, а затем скрыть, если я выберу другой вариант.
Мои вопросы: 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>