IE SELECT後 .fireEventでJavaScriptのイベントを起動

メルマガ発行内容

＜IE SELECT後 .fireEventでJavaScriptのイベントを起動＞
どうも、三流プログラマーのＫｅｎ３です。

今回は、前回の続きで、
IEでSELECT タグの操作を探ってみます。

今回の、サンプルファイルは、
http://www.ken3.org/vba/lzh/vba155.lzh
にvba155.xls(Excel2000版)が保存されています。
※自分でテストページを作ったりして、遊んでみてください。

関連項目、
VBAでInternetExplorer.Applicationを操作する(IE操作)
http://www.ken3.org/cgi-bin/group/vba_ie.asp
もヨロシクね。

/*
 * １．今回のキッカケ
*/

VBA系の掲示板
http://www.ken3.org/cgi-bin/bbs/vba/wforum.cgi
で、SELECTタグOPTIONの選択でJavaScriptが起動しない、
そんな問題にぶちあたりました。
もらった質問に対して、いつものように、違う方向に進んでいるんだけど。

下記がもらった質問です。
----
<FORM name=form1 onsubmit="mai('s');return false;">
<TBODY>
<TR>
<TD><B>場名</B><BR>
<DIV align=right><SELECT onchange=Rdp(); name=JYO>
 <OPTION value=0 selected>選択項目　</OPTION></SELECT></DIV></TD></TR>
<TR>
<TD><B>レース</B><BR>
<DIV align=right><SELECT onchange=Hdp(); name=Race>
 <OPTION value=0 selected>選択項目　</OPTION></SELECT></DIV></TD></TR>
<TR>
あるサイトの一部ぬきだしました。
ここで、おそわったのを、まねして
WB1.Document.form1.jyo.selectedIndex = 1
WB1.Document.form1.jyo.Options(1).selected = "selected"
WB1.Document.form1.jyo.Options(1).selected = True
と、やると、コンボに選択された文字がでました。成功！と
おもいきや、つぎのレースの選択項目が、からっぽです。
ためしに、マウスでクリックすると、選択項目が、
ふくまれます。ｄｏｃｕｍｅｎｔも、かわるようです。

どうやら、ｏｎｃｈａｎｇｅが、おきてないためらしい。
これについて、いろいろ、しらべたけど、わかりません。
疑問１：ｒｄｐ（）という関数は、どこにあるんでしょうか。
　　　　　このｈｔｍｌの、最後に、なにか、
　　　　　ｓｃｒｉｐｔが、あるのですが、（よめない）
　　　　　どうも、それではないみたいです。
疑問２：　ｏｎｃｈａｎｇｅを、ｖｂから、起こしてやることは
　　　　　できないでしょうか。
----

それに対して、
http://www.ken3.org/vba/test153.html
で、
テストで、下記のjavaScriptを書いてみました。

場名を選択すると、レース内容を変更する<br>
<br>
<FORM name=form1 onsubmit="mai('s');return false;">
<TABLE BORDER="1">
<TR>
<TD><B>場名</B><BR>
<DIV align=right>
<SELECT onchange=Rdp(); name=JYO>
 <OPTION value=0 selected>選択項目　</OPTION>
</SELECT></DIV></TD>
</TR>
<TR>
<TD><B>レース</B><BR>
<DIV align=right><SELECT onchange=Hdp(); name=Race>
 <OPTION value=0 selected>選択項目　</OPTION></SELECT></DIV></TD>
</TR>
<TR><TD><INPUT TYPE="submit" VALUE="送信"></TD></TR>
</TABLE>
</FORM>

<script type="text/javascript">
  //場名を初期化する
  document.form1.JYO.length = 5;  //強引にオブジェクトを増やす(オイオイ)
  document.form1.JYO.options[1].text = "東京";
  document.form1.JYO.options[2].text = "京都";
  document.form1.JYO.options[3].text = "中山";
  document.form1.JYO.options[4].text = "阪神";
  //↑強引に選択肢を増やしてみた（笑）
</script>

<script type="text/javascript">
<!--   //ここからJavaの関数を書いてみる
function Rdp(){  // Rdp 場所が選択されたらレース内容を変更する
  //レース内容を場所に合わせて変更
  document.form1.Race.length = 3;  //強引にオブジェクトを3にする(ホントは12R)
  var n = document.form1.JYO.selectedIndex //場名選択位置を代入
  alert("開催選択後、Rdp呼ばれたよn="+n);

  switch (n) {
    case 1: //東京なら
      document.form1.Race.options[0].text = "9Ｒ  昇仙峡特別";
      document.form1.Race.options[1].text = "10R  奥多摩ステークス";
      document.form1.Race.options[2].text = "11R  霜月ステークス";
      break;
    case 2: //京都なら
      document.form1.Race.options[0].text = "9R もみじステークス";
      document.form1.Race.options[1].text = "10R古都ステークス";
      document.form1.Race.options[2].text = "11Rマイルチャンピオンシップ(ＧＩ)";      break;
    case 3: //中山なら
      alert("開催してないよ");
      break;
    case 4: //阪神なら
      alert("開催してないよ");
      break;
  }
}

function Hdp(){  // Hdp レースが選択されたら次は？（今回は省略）
  alert("Hdp呼ばれたよ(レース選択後)");
}

function mai(parapara){  // maiイベントのテスト
  // Submitボタンが押されると、ここが走るのでテストする
  alert("受け取ったのは"+parapara);
}

// -->
</script>

これで、テスト用のHTMLは完成したけど、
本題は、IEからの操作でした。

/*
 * ２．.SelectedIndexを使って普通に選択してみる
*/
.SelectedIndex なんて方法を知ったので、
下記のように組んでみました。

Sub ie_test()

    Dim objIE    As Object  'ＩＥオブジェクト参照用

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")

    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ(テストのHTMLを表示する)
    objIE.Navigate "http://www.ken3.org/vba/test155.html"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     '場名を選択する
     'SELECTタグに付いた名前(Name)がJYOの上から２番目(1)をテストでセット
     '.SelectedIndexに1をセット(012345で2番目となる)
     objIE.Document.all.JYO.SelectedIndex = 1
     
     'レースを選択する
     'Raceの上から３番目(2)をテストで選択する.SelectedIndexに2をセット
     objIE.Document.all.Race.SelectedIndex = 2

     '０からインデックスが始まるのがポイントです↑

End Sub

プログラムはエラーで止まらずに動作するが、
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
<SELECT onchange=Rdp(); name=JYO>
や
<SELECT onchange=Hdp(); name=Race>
が走らない。

Rdp()で、レース場単位でレース名を動的に切り替えているので、
これが起動しないと、データがセットできない。

/*
 * ３．JavaScriptの起動を調べてみる。発砲？
*/

SELECTタグかぁ・・・あまり気が進まないが、少しみてみる。

下記が、DHTMLのSELECTの説明ページです。
http://msdn.microsoft.com/workshop/author/dhtml/reference/objects/select.asp
ここみると、
Attributes/Properties 
Behaviors 
Collections 
Events 
Methods 
Objects 
Styles 
なんてあって、とても一発じゃ探せないんだけど（かなり時間かかったけど）

Methods の中に、(Methodsを翻訳ソフトで調べると 方法/方式?だよね)

fireEvent --- Fires a specified event on the object. 
(オブジェクトに指定された出来事を発砲します。)
なんてのがあります。

おっ、これで指定したイベントを発生させることができそうですね。
※発砲って表現を、発行に置き換えるとイベントらしいよね。

fireEvent
http://msdn.microsoft.com/workshop/author/dhtml/reference/methods/fireevent.asp
をみてみると、使い方は、

Fires a specified event on the object.

bFired = object.fireEvent(sEvent [, oEventObject])

Parameters
sEvent Required. String that specifies the name of the event to fire. 
oEventObject Optional. Object that specifies the event object from which to 
obtain event object properties. 

よくわかんないけど、ストリングの文字列でイベントの名前渡せって？
イベントの名前を渡すだけでいいのかぁ。

Return Value
Boolean. Returns one of the following values:
true Event fired successfully. 
false Event was cancelled. 

リターン値も返って来るんだね。※いつも手抜きで見てないけど。

コイツを組み込むと、しますか。（ここまでに何時間かかったんだよ・・・）

Sub ie_test()

    Dim objIE    As Object  'ＩＥオブジェクト参照用

    'インターネットエクスプローラーのオブジェクトを作る
    Set objIE = CreateObject("InternetExplorer.application")

    objIE.Visible = True '見えるようにする(お約束)

    '文字列で指定したＵＲＬに飛ぶ(テストのHTMLを表示する)
    objIE.Navigate "http://www.ken3.org/vba/test155.html"

    '表示終了まで待つ
     Do While objIE.Busy = True
         '何もしないループ（笑）
         DoEvents
     Loop

     '場名を選択する
     'SELECTタグに付いた名前(Name)がJYOの上から３番目(2)をテストでセット
     '.SelectedIndexに2をセット(012345で2番目となる)
     objIE.Document.all.JYO.SelectedIndex = 2
     
     '選択後にonchangeのイベントを発生させる
     objIE.Document.all.JYO.fireEvent ("onchange")
     
     'レースを選択する
     'Raceの上から３番目(2)をテストで選択する.SelectedIndexに2をセット
     objIE.Document.all.Race.SelectedIndex = 2
     objIE.Document.all.Race.fireEvent ("onchange")  '変更時のイベントを発生させる

End Sub

あれ、こんな簡単に出来てしまった・・・

/*
 * ４．終わりの挨拶
*/

今回は、
プログラムから値をセット後、
操作じゃないのでイベント発生しない、、
そんな時は、
.fireEventでJavaScriptのイベントを起動。そんな話でした。

何か読者の心に残れば、うれしいです。
＊私の独り言をうまく消化してくださいね。

いつも失敗？の負け組のＫｅｎ３でした。
~~~~~~~(↑オイオイ)

フィードバック

評価・感想

ページフッター(リンクや広告など)

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック