Il problema e che GetElementsByTagName restituisce un array devi ciclarlo con for each
ecco un esempio
Private Sub DisplayMetaDescription()
If (WebBrowser1.Document IsNot Nothing) Then
Dim Elems As HtmlElementCollection
Dim WebOC as WebBrowser = WebBrowser1
Elems = WebOC.Document.GetElementsByTagName("div")
For Each elem As HtmlElement In Elems
Dim NameStr As String = elem.GetAttribute("name")
Next
End If
End Sub
Ultima modifica effettuata da Federico1976 il 06/07/2010 alle 22:56 |