うーん・・・

【HTML、VBScript】HTAでのイベントハンドラの内容を変更するには？

締切済

質問者：hopemagic
質問日時：2016/01/31 20:42
回答数：1件

こんばんは

下記内容はHTAアプリケーションにおいて、button1をクリックすると、1回目はSample1プロシージャが発動をし、２回目以降はSample2プロシージャが発動することを期待したコードになります。

<body>
<script type="text/vbscript">
Sub Sample1
button1.onclick = "Sample2"
msgbox "Sample1"
End Sub

Sub Sample2
msgbox "Sample2"
End Sub
</script>

<input type="Button" onclick="Sample1" value="実行" id="button1">
</body>

しかし、実際には２回目以降はメッセージボックスが表示されず、onclickイベントが動作していないようです。

ここで質問なのですが、onclick="Sample1"の状態からonclick="Sample2"の状態へとタグ内容を変更をすることはできるのでしょうか？（if条件式を用いてプロシージャの実行先を変更したいのではありません。タグの書き換えによる実行先の変更を目的とした質問です）

また、onclickから他のイベント（例えばonmouseover）に変更することはできるのでしょうか？
以上２点です。ご存じの方は教えていただきたいです。

なお、現状の回避策としてはinputタグをdiv要素に組み込んで、div1.innerHTMLにてinputタグの中身をすべて書き換えています。↓

Sub Sample1
div1.innerHTML = "<input type=""Button"" onclick=""Sample2"" value=""実行"" id=""button1"">"
msgbox "Sample1"
End Sub

<div id="div1">
<input type="Button" onclick="Sample1" value="実行" id="button1">
</div>

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

最新から表示
回答順に表示

No.1

回答者： fujillin
回答日時：2016/02/01 12:44

こんにちは

VBSをほとんど知らないので、正しくはないかもしれないけれど、

想像するところ、ハンドラへの参照を設定しなければならないはずなので…
　Sub Sample1
　　Set button1.onclick = GetRef("Sample2")
　　msgbox "Sample1"
　End Sub

　Sub Sample2
　　msgbox "Sample2"
　End Sub
とかで、いけるんではないでしょうか？