bugfix> hta > 投稿

1つの投稿でいくつかの質問。いくつかの例のドロップダウンがあり、その後に「カスタム」オプションがあるHTAスクリプトを作成しています。 [カスタム]をクリックすると、テキストボックスと、ユーザーにミリ秒単位の数字を入力してその下に表示し、別のオプションを選択した場合は非表示にするように指示するいくつかの単語が欲しい

私の質問: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>

回答 1 件
  • atribute onchange='myfunctionName(possible_value)' を使用できます  ドロップダウンで。 リンクされた関数で、ドロップダウンの値を確認すると、スイッチケースが機能するはずです。また、「可視」ではなく「可視」などの構文エラーを確認してください。

    ドロップダウンから値を取得する方法がわからない場合は、次のリンクを参照できます:ドロップダウン値を取得

あなたの答え