掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
WebBrowserでスクロールイベントを発生させるには？ (ID:139753)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> 発生しない原因を自分では見つけ出すことができませんでした。 IE の 後方互換モードとの差異ですね。 これでどうかな。IE6 で動作確認。IE7 や IE8beta では未検証。 Private Sub AxWebBrowser1_DocumentComplete(ByVal sender As Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_DocumentCompleteEvent) Handles AxWebBrowser1.DocumentComplete _onscroll = New EventClass _onmousewheel = New EventClass ReleaseDocument() document = AxWebBrowser1.Document Dim element As Object = Nothing Try If document.compatMode = "BackCompat" Then element = document.body Else element = document.documentElement End If element.onscroll = _onscroll element.onmousewheel = _onmousewheel Finally If Not element Is Nothing Then If Marshal.IsComObject(element) Then Marshal.ReleaseComObject(element) End If element = Nothing End If End Try End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.