| 投稿日 | ： 2006/09/26(Tue) 16:56 |
| 投稿者 | ： ヤマ＠文系 |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re^3: IEの選択されたフレームを取得したい |
いつもお世話になっております。
DHTMLに関して調べてみるといいと思います。
下記をちょっと作ってみましたが、
フォーカスがあたっているところは
activeElementとしてエレメントが帰ってるので判別がつきます。
ただし、インラインフレームの場合（または入った場合）はＮＧが起こるのでもう少し手のこった方法が必要になります。
（確かiframeにアクセスするとエラーになったようなきがします）
（以前書いたソースコードがあると思いますが、若干トリッキーなので省きます）
Dim iDoc As HTMLDocument
Private Sub Command1_Click()
WebBrowser1.Navigate "http://hanatyan.sakura.ne.jp/"'規約によりhを抜いてあります！
End Sub
Private Sub Command2_Click()
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Dim Element2 As Object
Dim i As Integer
For Each element In iDoc.All.tags("frame")
Set Element2 = iDoc.activeElement
Debug.Print "フォーカス:" & Element2.src
Debug.Print "フレーム" & CStr(i) & ":" & element.src
i = i + 1
Next
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Set iDoc = WebBrowser1.Document
End Sub