WebBrowserのリンク先取得について (ID:121650)

名前

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

本文

こんな具合でどうでしょうか。

' 参照設定: Microsoft HTML Object Library (MSHTML.tlb)
Option Explicit

Private WithEvents HtmlDoc As HTMLDocument

Private Sub Form_Load()
    WebBrowser1.Navigate2 "http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi"
End Sub

Private Sub HtmlDoc_onmouseout()
    Text1.Text = ""
End Sub

Private Sub HtmlDoc_onmouseover()
    Dim oElement As IHTMLElement
    Set oElement = HtmlDoc.parentWindow.event.srcElement
    If (oElement.tagName <> "A") Then
        Set oElement = oElement.parentElement
    End If
    If (oElement.tagName = "A") Then
        Text1.Text = oElement.innerText & vbNewLine & oElement.href
    End If
    Set oElement = Nothing
End Sub

Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, Flags As Variant, TargetFrameName As Variant, PostData As Variant, Headers As Variant, Cancel As Boolean)
    Set HtmlDoc = Nothing
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set HtmlDoc = WebBrowser1.Document
End Sub

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

戻る