WebBrowser上でのイベントを取得するには？

ぐーぐーがんも 2005-11-24 04:40:30 No: 128149

Formの一部に webbrowserを組み込んでいます。
ブラウザ上で表示させているのは地図で、その地図はクリッカブルマップ方式に
しています。

ここで、ある箇所をクリックされた時、何かユニークな番号をHTMLより取得し
VB内で認識したいのですが、どのような記述をすればよいのでしょうか。

<--- VB側 --->
Private Sub Form_Load()
Brows.Navigate2 ("E:\HTML\map.html")
※ここで、map.html上でクリックされた箇所を認識したい。

End Sub

<--- HTML側 --->
<body>
<table width="100%" height="100%">
<tr><td align="center" valign="center">
<img src="./img/map.gif" usemap="#UserMap" border="0">
</td></tr>
</table>

<map name="UserMap">
<area shape=rect coords="11,16,63,54" alt="札幌" href=???>
</map>
※ここでは、「札幌」エリアをクリックされた場合、HTML上から何らかの番号を
返し、VBのForm内で番号を取得したい。

以上、ご存知の方いらっしゃいましたらお願い致します。

環境は windows2000, vb6.0です。

魔界の仮面弁士 2005-11-24 08:06:22 No: 128150

方法1) MSHTML.TLBを参照設定しておき、処理対象のHTML要素を
WithEvents宣言した変数にSetする。これにより、クリック時に
Sub 変数名_onclick() プロシージャの呼び出しが行われる。

方法2) 引数の無いメソッドをデフォルトメンバとしたClassを用意して、
そのClassのインスタンスを処理対象のHTML要素のonclickプロパティに
Setする。これにより、クリック時に、そのデフォルトメソッドが呼ばれる。