WebBrowser内のオブジェクトをClick時に投げれるか (ID:116354)

名前

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

本文

onclickイベントを取得するなら、MSHTML.TLB ファイルを参照設定して、
WithEvents 変数で受け取れば OK です。
(参照設定せずに onclick を受け取る方法もありますけれどね)

「自前のHTMLファイル」の内容がわからなかったので、ここでは
HTMLの内容を動的に生成していますが、HTMLファイルを表示させる場合も
基本的には同様で、WithEvents 変数で受け取るだけで取得できるかと。

Option Explicit

Private WithEvents Body As MSHTML.HTMLBody
Private H1 As MSHTML.HTMLHeadElement

Private Function Body_onclick() As Boolean
    H1.innerText = Format(Now(), "YYYY-MM-DD hh:mm:ss")
End Function

Private Sub Form_Load()
    WebBrowser1.Navigate2 "about:blank"
End Sub

Private Sub Form_Resize()
    WebBrowser1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    With WebBrowser1.Document
        Set Body = .Body
        Set H1 = .createElement("H1")
    End With
    H1.runtimeStyle.backgroundColor = "Window"
    Body.insertAdjacentElement "afterBegin", H1
    H1.innerText = "クリックしてください。"
    With Body.runtimeStyle
        .margin = "0px"
        .BorderStyle = "none"
        .overflow = "hidden"
        .backgroundColor = "ThreeDFace"
    End With
End Sub

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

戻る