如何在foreach循环

Question

处理什么，我有以下功能：

Public Sub performautowebrowserOperations() 
    Try 
     For Each link As HtmlElement In WebBrowser2.Document.GetElementsByTagName("input") 'sometimes throws a null reference exception 
      If link.GetAttribute("value") IsNot Nothing Then 
       If link.GetAttribute("value") = "Compare prices" Then 
        link.InvokeMember("click") 
       End If 
      End If 
     Next 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub 

有时候注释行抛出一个NullReferenceException。为什么，以及如何解决它？

Answer 1

我会更改GetElementsByTagName，使它在For Each语句之外，这样可以更容易地检查Collection是否为空或空。

Public Sub performautowebrowserOperations() 
    Try 
     Dim elements As HtmlElementCollection = WebBrowser2.Document.GetElementsByTagName("input") 
     If Not IsNothing(elements) And elements.Count > 0 Then 
      For Each link As HtmlElement In elements 
       If link.GetAttribute("value") IsNot Nothing Then 
        If link.GetAttribute("value") = "Compare prices" Then 
         link.InvokeMember("click") 
        End If 
       End If 
      Next 
     End If 
    Catch ex As Exception 
     MsgBox(ex.Message) 
    End Try 
End Sub