0

私はWebBrowserクラスでクラスを使用しています。webbrowser_documentcompleteイベントハンドラーを追加しようとしていますが、そのイベントが発生しないことがわかりました。私が使用している以下のコードを見つけてください。このコードはWindowsフォームで機能しますが、クラスでは機能しません。

Imports System.Windows.Forms

Imports System.Threading

Public Class GoogleSearch

    Dim WithEvents WBBrowser As New Windows.Forms.WebBrowser

    Dim TimCount As New System.Timers.Timer()

    Sub New(ByVal SearchParameter As String, ByVal ResultPage As Integer)


        TimCount.Interval = 2000
        TimCount.Enabled = False
        AddHandler TimCount.Elapsed, AddressOf TimCount_Tick


        WBBrowser.Visible = True
        WBBrowser.ScriptErrorsSuppressed = True

        AddHandler WBBrowser.DocumentCompleted, AddressOf WBBrowser_DocumentCompleted


        WBBrowser.Navigate("http://www.google.com", False)
    End Sub

    Private Sub TimCount_Tick(ByVal sender As Object, ByVal e As System.EventArgs)
        Try
            TimCount.Enabled = False
'Some code goes here

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub WBBrowser_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Try
            If WBBrowser.ReadyState <> Windows.Forms.WebBrowserReadyState.Complete Then
                Return
            Else
                TimCount.Start()
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

End Class
4

1 に答える 1

1

DocumentCompletedイベントの署名は次のとおりです。

    (ByVal sender As Object, ByVal e As WebBrowserDocumentCompletedEventArgs)

驚いたことに、コンパイラーはそれについてあなたを怒らせませんでした。

于 2012-12-24T23:06:57.193 に答える