[リストへもどる]
一括表示

投稿時間:2004/01/13(Tue) 16:48
投稿者名:石川
Eメール:
URL :
タイトル:
Webbrowser上のマウスの位置
いつも参考にさせていただいています。
Webbrowser上でクリックなどをした場合のマウスの位置をどのように取得したら良いのでしょうか。
イベントに無かったのでやり方がわかりません。
あと、Webbrowser上でクリックなどが出来ないようにする方法も分かりません。
VB6.0で製作しております。よろしくお願いします。

投稿時間:2004/01/13(Tue) 22:06
投稿者名:魔界の仮面弁士
Eメール:
URL :
タイトル:
Re: Webbrowser上のマウスの位置
> Webbrowser上でクリックなどをした場合のマウスの位置をどのように取得したら良いのでしょうか。
eventオブジェクトで取得します。

    Dim Evt As Object

    Set Evt = Me.WebBrowser1.Document.parentWindow.event

    Debug.Print "(X, Y)=("; Evt.x; ","; Evt.y; ")"
    Debug.Print "client=("; Evt.clientX; ","; Evt.clientY; ")"
    Debug.Print "offset=("; Evt.offsetX; ","; Evt.offsetY; ")"
    Debug.Print "screen=("; Evt.screenX; ","; Evt.screenY; ")"

    Set Evt = Nothing

# eventオブジェクトは、HTMLのイベント処理中のみ使用可能です。

> イベントに無かったのでやり方がわかりません。
WebBrowserのイベントではなく、HTML文書側のイベントを使ってください。
(例えば、documentオブジェクトのonclickイベントなど)

投稿時間:2004/01/14(Wed) 17:23
投稿者名:石川
Eメール:
URL :
タイトル:
Re^2: Webbrowser上のマウスの位置
魔界の仮面弁士様、早い回答ありがとうございます。位置を取得できました。
これを元に、クリックしたURLを取得するつもりです。
また、何かあったらよろしくお願いいたします。