2

HTAでテキストボックスを動的に削除する方法を教えてもらえますか？

このコードは、テキストボックスを動的に追加します。

Sub AddTextBox
    strHTML = DataArea.InnerHTML strHTML=strHTML&"<tr><td>Source Path</td><td><input type="&Chr(34)& _ "text"&Chr(34)&">"&"</td><td><button type="&Chr(34)&"button"&Chr(34)& _ "onclick="&Chr(34)&"RemoveTextBox"&Chr(34)&">"&"x"&"</button></td></tr>"
    DataArea.InnerHTML = strHTML
    tabHTML = tabHTML & strHTML
End Sub
4

1 に答える 1

0

これはあなたが探しているものと似ていると私は信じています、これは少なくともあなたが構築できる実用的な例をあなたに与えるでしょう。サブルーチンは最初のWindow_OnLoadコンテンツをロードし、新しく作成されたコンテンツにはボタンが含まれています。このボタンをクリックすると、テキストボックス/ボタンが削除され、。というラベルの付いた新しいボタンが追加されAdd Again?ます。この新しいボタンは、Window_OnLoadサブルーチンを再度呼び出して、元のコンテンツを再ロードできます。

<html>
<head>
<title>Dynamically Add Controls</title>
<HTA:APPLICATION
  APPLICATIONNAME="Dynamically Add Controls"
  ID="Dynamically_Add_Controls"
  VERSION="1.0"/>
</head>

<script language="VBScript">

Sub Window_OnLoad
    strHTML = "<tr><td>Source Path</td><td><input type="& Chr(34)& "text"&Chr(34)&">"&"</td><td><button type="&Chr(34)&"button"&Chr(34)& "onclick="&Chr(34)&"RemoveTextBox"&Chr(34)&">"&"Remove All?"&"</button></td></tr>"
    DataArea.InnerHTML = strHTML
End Sub

Sub RemoveTextBox()
    strHTML = "<td><button type="&Chr(34)&"button"&Chr(34)& "onclick="&Chr(34)&"Window_OnLoad"&Chr(34)&">"&"Add Again?"&"</button></td></tr>"
    DataArea.InnerHTML = strHTML
End Sub

</script>

<body bgcolor="white">
    <table border="0" cellspacing="0" cellpadding="0">
        <tr>
            <td valign="top"><Div id="DataArea"></Div></td>
        </tr>
    </table>
</body>
</html>
于 2013-05-31T22:44:03.567 に答える