イベント連結方法3(VBScriptの特殊構文による連結：マウス位置表示を例に)

VBScriptの特殊構文を使った連結方法。この例のように、Subに続けてmy_body_onmousemove()のように、 IDの名前とイベントハンドラをアンダースコア(_)で結ぶ。そして、 End Subとのあいだに、連結先の処理を書く。この例では、window.event.xのように、 window.を付けないとエラーになった(なぜかは不明)。

<SCRIPT LANGUAGE="VBScript">
	Sub my_body_onmousemove()
		area1.innerText = window.event.x
		area2.innerText = window.event.y
	End Sub
</SCRIPT>
.
.
.
<BODY ID="my_body">