none
WebBrowser Refresh Completed 問題 RRS feed

  • 問題

  •     Private Sub BuyItem(ByVal sender As System.Object, ByVal e As WebBrowserDocumentCompletedEventArgs)
            Try
                Page1.WebBrowser.Document.GetElementById("imgB" & OutPutID).InvokeMember("onclick")
            Catch ex As Exception
                MsgBox("找不到貨品編號 : imgB" & OutPutID, MsgBoxStyle.Critical, Me.Text)
            End Try
        End Sub
    
        Public Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
            Page1.WebBrowser.Refresh()
    
            Dim ItemWebBrowser As New WebBrowser
            AddHandler ItemWebBrowser.DocumentCompleted, New  _
            WebBrowserDocumentCompletedEventHandler(AddressOf BuyItem)
        End Sub
    

    有辦法達到當 Page1.WebBrowser.Refresh() 等待重新整理完成後, 才執行 BuyItem
    2011年12月20日 上午 11:34

解答

  • 您可以不要建立新的WebBrowser, 請將以下的程式碼:

    Dim ItemWebBrowser As New WebBrowser
    AddHandler ItemWebBrowser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf BuyItem)

    改成:

    AddHandler Page1.WebBrowser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf BuyItem)

    2011年12月22日 下午 12:52

所有回覆

  • 請問為何不在Page1.WebBrowser的DocumentCompleted event中處理就可以了呢?

    亂馬客blog: http://www.dotblogs.com.tw/rainmaker/
    2011年12月20日 下午 02:32
  • 您可以不要建立新的WebBrowser, 請將以下的程式碼:

    Dim ItemWebBrowser As New WebBrowser
    AddHandler ItemWebBrowser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf BuyItem)

    改成:

    AddHandler Page1.WebBrowser.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf BuyItem)

    2011年12月22日 下午 12:52