在后台线程中创建webbrowser,然后应该导航到一个url并返回一个htmldocument,但由于某种原因导航失败,为什么?为什么此背景浏览器控件无法导航?
注意:这是您看到ME.url或我的类的一部分。 ... me.isrunning =布尔默认 me.url =位置的URI虚假导航到
Public Function GetDOC(ByVal url As Uri) As HtmlDocument
If Me.IsRunning Then
Throw New Exception("Object Currently In use")
End If
htmdoc = Nothing
Dim cp As New Threading.Thread(AddressOf thrdowo)
cp.SetApartmentState(Threading.ApartmentState.STA)
cp.Start()
run = True
While run
End While
Return htmdoc
End Function
Private Sub thrdowo()
Dim cbl As New WebBrowser
'cbl.Url = Me.URL
cbl.Navigate("about:blank")
cbl.Navigate(Me.URL)
While cbl.IsBusy
End While
htmdoc = cbl.Document
run = False
End Sub