-2

href でエラーを見つけたので、助けてください

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow
    Dim thiselement As HtmlElement = WebBrowser1.Document.ActiveElement
    Dim targeturl As String = thiselement.GetAttribute("href") 
    e.Cancel = True
    Dim window As New Form1
    window.Show()
    window.WebBrowser1.Navigate(targeturl)
End Sub

「href」で、オブジェクト参照がオブジェクトのインスタントに設定されていないなどのエラーが見つかりました。私のコードはvb.net 2010にあります。

4

2 に答える 2

0

イベントを処理しNavigatingます。例:

webBrowser1.Navigating += Function(source, args) 
    Dim uriClicked = args.Uri
    ' Create your new form or do whatever you want to do here
End Function
于 2013-10-05T06:25:04.217 に答える