タイトル : Re: Form.Element.EventObserverを反応させたい。 投稿日 : 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 |