Vb.net 查找下一个函数

我有个小问题需要帮助

我有一个webbrowser和一个按钮，可以从类中查找文本，下面是代码：

Dim word As String = (WebBrowser1.Document.GetElementsByTagName("P").Cast(Of HtmlElement) _
       .FirstOrDefault(Function(el) el.GetAttribute("className") = "tagline").InnerText)

    Dim lastWord As String = word.Split(" ").Last

    If Not ListBox1.Items.Contains(lastWord) Then
        ListBox1.Items.Add(lastWord)
    End If

该站点有多个名为“tagline”的多表类，我希望在按下该按钮后，该按钮可以获得下一个类。

---

我该怎么做

您需要有一个全局变量来保存要检索的“标记行”的索引。并将此索引器用作Skip方法的参数，以应用于Where而不是FirstOrDefault返回的序列

' Declared at the global level
Dim index as Integer = 0

' At each button press you write
 Dim word As String = WebBrowser1.Document.GetElementsByTagName("P") _ 
   .Cast(Of HtmlElement) _
   .Where(Function(el) el.GetAttribute("className")  = "tagline") _
   .Skip(index) _ 
   .First().InnerText
Dim lastWord As String = word.Split(" ").Last
index = index + 1

因此，按下“下一步”按钮时，跳到第二个元素，然后跳到第三个元素，依此类推。然而，这带来了一个问题。您应该知道WebBrowser文档中存在多少元素，以避免请求不远处的元素。因此，最好是获取具有“tagline”属性的所有元素，并将它们保存在一个易于检索的列表中

' Declared at the global level
Dim index as Integer = 0
Dim elements = new List(Of HtmlElement)()

' After you have loaded the document
elements = WebBrowser1.Document.GetElementsByTagName("P") _ 
           .Cast(Of HtmlElement) _
           .Where(Function(el) _ 
              el.GetAttribute("className")  = "tagline") _
           .ToList()    

在按钮代码中

if index < elements.Count Then
    Dim word = elements.Skip(index).First().InnerText
    Dim lastWord As String = word.Split(" ").Last
    index = index + 1
End if

如果索引<元素，则计数
Dim word=elements.Skip（index）.First（）.InnerText
将lastWord的大小设置为String=word.Split（“”）。Last
索引=索引+1
如果结束

这里是新手。如何将所有元素加载到列表框。。？站点也有25个元素。只需将列表框的数据源设置为检索到的元素或要显示的字符串。但这足够回答另一个问题（我建议你发帖）了，谢谢，伙计！现在一切都像我想的那样工作。谢谢你的帮助！：）