サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.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
 |
