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

名前

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

本文

WindowsXpPro（SP2）VisualBasic．NET2003  Framework1.1
上記の環境なのですが、AxWebBrowserでＷＥＢページを表示した際に
ページの垂直スクロールバー動かした時にイベントを発生させたいのですが、
どのような方法でやればよいでしょうか？

インターネット上にリストボックスのスクロールバーを操作した時に
イベントが出るようにするソースコードがあったので、
それを下のように変更してみたのですが、２行と２３行にエラーの下線が
付いてしまいました。
ListBoxなどをWebBrowserなどに変更しただけなのですが、
この先が分からないため、良い方法がありましたらご教示いただきたいです。
よろしくお願い致します。

01 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
02 MyWebBrowser1.Name = "MyWebBrowser1"
03 MyWebBrowser1.Size = New Size(500, 500)
04 MyWebBrowser1.Location = New Point(0, 0)
05 Me.Controls.Add(MyWebBrowser1)
06 End Sub

07 Private WithEvents MyWebBrowser1 As AxSHDocVw.AxWebBrowser

08 Private Class MyWebBrowser
09 Inherits AxSHDocVw.AxWebBrowser

10 Public Event Scroll()
11 Protected Overrides Sub WndProc(ByRef m As Message)
12 Const WM_VSCROLL As Integer = &H115I
13 If m.Msg = WM_VSCROLL Then
14 RaiseEvent Scroll()
15 End If
16 MyBase.WndProc(m)
17 End Sub

18 Protected Overrides Sub OnMouseWheel(ByVal e As MouseEventArgs)
19 If e.Delta <> 0 Then
20 RaiseEvent Scroll()
21 End If
22 End Sub

23 Protected Overrides Sub OnSelectedIndexChanged(ByVal e As EventArgs)
24 RaiseEvent Scroll()
25 End Sub

26 End Class

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

戻る