VBレスキュー(花ちゃん)の Visual Basic 6.0用掲示板

タイトル	： Form.Element.EventObserverを反応させたい。
記事No	： 15212
投稿日	： 2011/06/04(Sat) 16:49
投稿者	：セル

教えて下さい。

VB6,IE,XP

IEをVBで操作する事をいろいろとインターネット等で調べ何とかinputタグに値を入れることは出来たのですか、下記のForm.Element.EventObserverが反応しません。

もちろん変更をしていないからだとは分かっておりますが、何とか反応さす方法はないのでしょうか。

よろしくお願いします。

<script type="text/javascript">
window.onload = function() {
    new Form.Element.EventObserver('d_name',
        function (element, value) {
            $('result').innerHTML = element.id+"の値が"+value+"に変更されました";
        }
    );
}
</script>
<body>
<form method="get" action="" id="form1">
名前：<input type="text" name="name" id="d_name" value="">

[ツリー表示へ]

タイトル	： Re: Form.Element.EventObserverを反応させたい。
記事No	： 15213
投稿日	： 2011/06/06(Mon) 10:24
投稿者	：魔界の仮面弁士

> もちろん変更をしていないからだとは分かっておりますが、
onchange イベントを強制発火させるとか。

> 何とか反応さす方法はないのでしょうか。
反応さす → 反応させる

Option Explicit

Private Sub Form_Load()
    Command1.Enabled = False
    WebBrowser1.Navigate "http://javascriptist.net/ref_prototype/Form.Element.EventObserver.sample.html"
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Command1.Enabled = True
End Sub

Private Sub Command1_Click()
    Dim dt As String
    dt = Format(Now, "HH\:mm\:ss") & Format(Timer - DateDiff("s", Date, Now), ".0000")

    With WebBrowser1.Document.getElementById("d_name")
        .Value = dt
        .fireEvent "onchange"
    End With
End Sub

[ツリー表示へ]

タイトル	： Re^2: Form.Element.EventObserverを反応させたい。
記事No	： 15214
投稿日	： 2011/06/06(Mon) 19:08
投稿者	：セル

魔界の仮面弁士様

早速にアドバイスいただきありがとうございます。

onchangeの強制実行の仕方がわからず困っておりました。

大変参考になります。。

ありがとうございます。

>> 何とか反応さす方法はないのでしょうか。
> 反応さす → 反応させる

大変失礼な言い方になってしまっており大変申し訳ございませんでした。

以後気をつけさせていただきます。

今後ともよろしくお願いします。

[ツリー表示へ]