タイトル : webbrowser スクロールイベントの取得 投稿日 : 2010/03/17(Wed) 11:00 投稿者 : ひろ
【webbrowserでのスクロールイベントの取得に関して】 webbrowser上に自動実装されるスクロールのイベント及び、 スクロールの値の取得をまとめてみました。 'WithEvents:WebBrowser上のドキュメントイベントを取得 (VB 6.0) 'web browser スクロールイベント取得用 Private WithEvents w_webbr As HTMLBody 'webbrowserスクロールイベント用オブジェクト Private st_pos_x As Long 'webbrowser html画面表示左座標 Private st_pos_y As Long 'webbrowser html画面表示上座標 'html読み込み完了 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) Dim Doc As HTMLDocument Set Doc = from1.WebBrowser1.Document 'web browser スクロールイベント取得 Set w_webbr = Doc.body End Sub 'スクロールイベント Private Sub w_webbr_onscroll() Set Doc = from1.WebBrowser1.Document 'スクロール座標取得 On Error Resume Next '現在の表示位置を格納 st_pos_x = Doc.documentElement.scrollLeft st_pos_y = Doc.documentElement.scrollTop End Sub 'スクロール関数 '画面の移動 from1.WebBrowser1.Document.parentWindow.Scroll st_pos_x, st_pos_y 現状では、一回目のDocumentComplete時にスクロールイベントが取れていない (調査中)がありますが、再度読み込みを行いDocumentCompleteで取得した htmlDoc.bodyのスクロールイベントで取得確認は行っております。 以上 |