Olá!
Estou desenvolvendo um aplicativo para mim e estou tendo um problema, alguém pode me ajudar?
Eu tenho um módulo
Module Extensions
<Runtime.CompilerServices.Extension()> _
Public Function GetElementsByClassName(ByVal Source As HtmlDocument, ByVal ClassName As String) As HtmlElement()
Dim output As New List(Of HtmlElement)
For i As Integer = 0 To Source.All.Count - 1
Try
If (Source.All(i).GetAttribute("className") = ClassName) Then
output.Add(Source.All(i))
End If
Catch ex As Exception
End Try
Next
Return output.ToArray()
End Function
End Module
Enfim, o problema é que eu preciso para obter mais de uma classe em uma única linha.
Eu tenho o seguinte código plus está retornando erro
Dim app As HtmlElement = WebBrowser1.Document.GetElementsByClassName("pid-1-high" & "pid-1-ask & pid-1-ask2")(0)
Quero adicionar esta classe automaticamente em um listview
Dim z As ListViewItem
z = New ListViewItem(app.GetAttribute("InnerText"))
Alguém pode me ajudar? Obrigado