VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

マウスカーソル直下のオブジェクト(文字列等)を取得(VB6.0) ( No.0 ) 　[親スレッドへ]

日時： 2009/12/26 18:59
名前： 花ちゃん: ***********************************************************************************
* カテゴリー：[他のアプリ関係][インターネット][]                                  *
* キーワード：文字列を取得,マウスカーソルの下,現在フォーカスがあるオブジェクト    *
***********************************************************************************
タイトル：リンク先のアドレスを取得するには
記事No ： 12715
投稿日： 2008/07/07(Mon) 06:44
投稿者：ととろ

ウェブブラウザコントロール上に表示されているページの、現在フォーカスがあるオブジェクト(または、マウスの下のオブジェクト)を取得するにはどうすればいいでしょうか？

-----------------------------------------------------------------------------------
記事No ： 12717
投稿日： 2008/07/07(Mon) 09:33
回答者：魔界の仮面弁士
-----------------------------------------------------------------------------------

Option Explicit

Private Declare Function GetCursorPos Lib "user32" _
    (ByRef lpPoint As Long) As Long

Private Declare Function AccessibleObjectFromPoint Lib "oleacc" _
    (ByVal x As Long, _
     ByVal y As Long, _
     ByRef ppoleAcc As Object, _
     ByRef pvarElement As Variant) As Long

Private Sub Form_Load()
    Timer1.Interval = 300
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Dim xy(1) As Long
    GetCursorPos xy(0)

    Dim objAccessible As Object
    Dim v As Variant
    AccessibleObjectFromPoint xy(0), xy(1), objAccessible, v

    Dim sName As String, sValue As String
    On Error Resume Next
    sName = objAccessible.accName(v)
    sValue = objAccessible.accValue(v)
    On Error GoTo 0

    Label1.Caption = sName
    Label2.Caption = sValue
End Sub