ブラウザでマウスが位置する箇所の文字列 (ID:100463)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

> マウスが位置する箇所の文字を取りたいのですが出来るでしょうか？

oleacc.dll を参照設定した上で、ListBox と Timer と WebBrowser を
フォームに貼って、下記のコードを試してみてください。
(カーソルが WebBrowser の上にあるかどうかは判定していません)

'-----------
Option Explicit

Private Declare Function GetCursorPos Lib "user32" _
   (ByRef xyScreen As Long) As Long
    
Private Declare Function AccessibleObjectFromPoint Lib "oleacc" _
   (ByVal xScreen As Long, _
    ByVal yScreen As Long, _
    ByRef ppvObject As Any, _
    ByRef pvarChild As Variant) As Long
    
Private Sub Form_Load()
    Timer1.Interval = 250
    Timer1.Enabled = True
    WebBrowser1.Navigate "http://msdn.microsoft.com/library/ja/jpdnacc/htm/ms_active.asp"
End Sub

Private Sub Timer1_Timer()
    Dim xy(1) As Long
    GetCursorPos xy(0)
    
    Dim objAcc As IAccessible
    Dim child As Variant
    AccessibleObjectFromPoint xy(0), xy(1), objAcc, child
    
    List1.Clear
    On Error Resume Next
    Dim ltwh(3) As Long
    objAcc.accLocation ltwh(0), ltwh(1), ltwh(2), ltwh(3), child
    List1.AddItem "Pos:" _
        & "Left" & CStr(ltwh(0)) & "," _
        & "Top" & CStr(ltwh(1)) & "," _
        & "Width" & CStr(ltwh(2)) & "," _
        & "Height" & CStr(ltwh(3))
    List1.AddItem "Name=" & objAcc.accName(child)
    List1.AddItem "Value=" & objAcc.accValue(child)
    List1.AddItem "Description=" & objAcc.accDescription(child)
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る