WebBrowserｓ\誇餅調廾りツ廸餅するには？ (ID:81799)

名前

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

本文 間違い。m(_ _)m 以下のように差し替えてください。 > ============= Class1 =========== Option Explicit Public Event onerror( _ ByVal description As Variant, _ ByVal URL As Variant, _ ByVal line As Variant, _ ByRef Handled As OLE_CANCELBOOL) '[ツール]-[プロシージャ属性]で、このFunctionのプロシージャIDを '『(既定値)』に変更しておいてください。 Public Function onerror_( _ ByVal description As Variant, _ ByVal URL As Variant, _ ByVal line As Variant) As Variant Dim Handled As OLE_CANCELBOOL Handled = False RaiseEvent onerror(description, URL, line, Handled) onerror_ = Handled End Function