WebBrowserでスクロールイベントを発生させるには？ (ID:139750)

名前

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

本文

しまった。DocumentComplete イベントの処理で、
body オブジェクトの解放処理を書くのを忘れていた…。

一応修正。

==================================================
Sub Sub AxWebBrowser1_DocumentComplete の修正。
--------------------------------------------------
《修正前》
> With document.body
>    .onscroll = _onscroll
>    .onmousewheel = _onmousewheel
> End With
--------------------------------------------------
《修正後》
Dim body As Object = Nothing
Try
  body = document.body
  body.onscroll = _onscroll
  body.onmousewheel = _onmousewheel
Finally
  If Not body Is Nothing Then
    If Marshal.IsComObject(body) Then
      Marshal.ReleaseComObject(body)
    End If
    body = Nothing
  End If
End Try

==================================================
EventClass クラスの修正。
--------------------------------------------------
《修正前》
> Public Class EventClass
--------------------------------------------------
《修正後》
<ComVisible(True)> Public Class EventClass

==================================================
Sub ReleaseDocument の修正。
--------------------------------------------------
《修正前》
> If Not document Is Nothing AndAlso Marshal.IsComObject(document) Then
>     Marshal.ReleaseComObject(document)
> End If
--------------------------------------------------
《修正後》
If Not document Is Nothing Then
  If Marshal.IsComObject(document) Then
    Marshal.ReleaseComObject(document)
  End If
  document = Nothing
End If

==================================================
Sub _onmousewheel_OnEvent の修正。
--------------------------------------------------
《修正前》
> If Not eventObj Is Nothing AndAlso Marshal.IsComObject(eventObj) Then
>     Marshal.ReleaseComObject(eventObj)
> End If
> If Not win Is Nothing AndAlso Marshal.IsComObject(win) Then
>     Marshal.ReleaseComObject(win)
> End If
--------------------------------------------------
《修正後》
If Not eventObj Is Nothing Then
  If Marshal.IsComObject(eventObj) Then
    Marshal.ReleaseComObject(eventObj)
  End If
  eventObj = Nothing
End If
If Not win Is Nothing Then
  If Marshal.IsComObject(win) Then
    Marshal.ReleaseComObject(win)
  End If
  win = Nothing
End If

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

戻る